[已解决]不规则多列变两列

sixnu

不规则多列变两列

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-29 18:02

1. Sub Macro1()
   
2. Dim arr, brr(1 To 60000, 1 To 2), i&, j%, s&
   
3. arr = Sheet1.Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 2 To UBound(arr, 2)
   
6.         If arr(i, j) <> "" Then
   
7.             s = s + 1
   
8.             brr(s, 1) = arr(i, 1)
   
9.             brr(s, 2) = arr(i, j)
   
10.         End If
    
11.     Next
    
12. Next
    
13. [a1:b1] = Array("省", "市县")
    
14. Range("a2").Resize(s, 2) = brr
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr(1 To 60000, 1 To 2), i&, j%, s&
   
3. arr = Sheet1.Range("a1").CurrentRegion
   
4. For i = 2 To UBound(arr)
   
5.     For j = 2 To UBound(arr, 2)
   
6.         If arr(i, j) <> "" Then
   
7.             s = s + 1
   
8.             brr(s, 1) = arr(i, 1)
   
9.             brr(s, 2) = arr(i, j)
   
10.         End If
    
11.     Next
    
12. Next
    
13. [a1:b1] = Array("省", "市县")
    
14. Range("a2").Resize(s, 2) = brr
    
15. End Sub
    

复制代码

dsmch

………………

huangcaiguang

技巧题？