|
发表于 2017-5-24 14:49
|
显示全部楼层
本楼为最佳答案
本帖最后由 france723 于 2017-5-24 14:51 编辑
第09行, 我写的是".."连接两个数据, 你可以更换任何符号
- Sub aa()
- Dim y, ar, s, i, j, br, p
- y = Range("a65536").End(xlUp).Row
- ar = Range("a2:b" & y)
- ReDim br(1 To y, 1 To 2)
- For i = 1 To UBound(ar)
- For j = 1 To UBound(ar, 2)
- s = Split(ar(i, j), ",")
- p = s(0) & ".." & s(1)
- br(i, j) = p
- Next j
- Next i
- Range("a2").Resize(UBound(br), 2) = br
- End Sub
复制代码
|
|