[已解决]单元格特殊合并

精灵学vba

合并要求在附件中

最佳答案

月排行榜 / 总排行榜

26759761@qq.com

2015-3-22 23:00

1. Sub x()
   
2. Dim ar, x, st
   
3. ar = Range("b2:b" & [b65500].End(3).Row)
   
4.   For x = 1 To UBound(ar)
   
5.     If ar(x, 1) <> "" Then st = st & " " & """" & ar(x, 1) & """"
   
6.   Next
   
7.   [c2] = Mid(st, 2)
   
8. End Sub
   

复制代码

跳转到最佳答案楼层

26759761@qq.com

1. Sub x()
   
2. Dim ar, x, st
   
3. ar = Range("b2:b" & [b65500].End(3).Row)
   
4.   For x = 1 To UBound(ar)
   
5.     If ar(x, 1) <> "" Then st = st & " " & """" & ar(x, 1) & """"
   
6.   Next
   
7.   [c2] = Mid(st, 2)
   
8. End Sub
   

复制代码

老大，还是将EXCEL升级到E立方管理平台吧，这也太纠结了

精灵学vba

QQ_AF525B 发表于 2015-3-23 08:03
老大，还是将EXCEL升级到E立方管理平台吧，这也太纠结了

你是哪位大师？