[已解决]用VBA数组把A列数字分拆到D列

laoau138

用VBA数组把A列数字分拆到D列

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-1 18:43

1. Sub aaa()
   
2. Dim arr, i&, s$
   
3. arr = [a1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.   s = s & arr(i, 1)
   
6. Next i
   
7. arr = Split(s, ",")
   
8. [d1].Resize(UBound(arr) + 1) = Application.Transpose(arr)
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, s$
   
3. arr = [a1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.   s = s & arr(i, 1)
   
6. Next i
   
7. arr = Split(s, ",")
   
8. [d1].Resize(UBound(arr) + 1) = Application.Transpose(arr)
   
9. End Sub

复制代码