[已解决]用VBA数组把一列拆分成几列

laoau138

用VBA数组把一列拆分成几列

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2017-6-7 21:02

1. Sub 分列()
   
2. 
   
3. Dim myr As Long, i As Long, j As Byte, arr As Variant, brr
   
4. 
   
5. myr = Range("a1000").End(xlUp).Row
   
6. arr = Range("a1:d" & myr)
   
7. ReDim brr(1 To myr, 1 To 8)
   
8. 
   
9.     For i = 1 To myr
   
10.         brr(i, 1) = arr(i, 1)
    
11.         brr(i, 2) = arr(i, 2)
    
12.         For j = 3 To 7
    
13.            brr(i, j) = Split(arr(i, 3), " ")(j - 3)
    
14.         Next
    
15.         brr(i, 8) = arr(i, 4)
    
16.     Next
    
17.    
    
18. Range("f1").Resize(UBound(brr), 8) = brr
    
19. 
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub 分列()
   
2. 
   
3. Dim myr As Long, i As Long, j As Byte, arr As Variant, brr
   
4. 
   
5. myr = Range("a1000").End(xlUp).Row
   
6. arr = Range("a1:d" & myr)
   
7. ReDim brr(1 To myr, 1 To 8)
   
8. 
   
9.     For i = 1 To myr
   
10.         brr(i, 1) = arr(i, 1)
    
11.         brr(i, 2) = arr(i, 2)
    
12.         For j = 3 To 7
    
13.            brr(i, j) = Split(arr(i, 3), " ")(j - 3)
    
14.         Next
    
15.         brr(i, 8) = arr(i, 4)
    
16.     Next
    
17.    
    
18. Range("f1").Resize(UBound(brr), 8) = brr
    
19. 
    
20. End Sub
    

复制代码

laoau138

yorkchenshunan 发表于 2017-6-7 21:02

http://www.excelpx.com/thread-430909-1-1.html


VBA数组把A列拆分保存D列   改写加一个数组输出结果

idnoidno

請問樓上大大

1. Split(arr(i, 3), " ")(j - 3)

复制代码

這樣的用法可以解釋一下嗎

yorkchenshunan

idnoidno 发表于 2017-6-7 22:08
請問樓上大大

這樣的用法可以解釋一下嗎

• Split(arr(i, 3), " ")(j - 3)
  

将arr(i,3)以空格为分裂符进行分裂，并提取分裂后的第j-3个元素

idnoidno

這樣的用法還真的要學，用法好像是相乘，請問有可以參考的地方嗎，謝謝