如何行列转换

nyakjsc

如何把原表中的行排列根据乡镇转换成竖排列

jiangxiaoyun

1. Sub vv()
   
2.     Dim arr, brr()
   
3.     arr = Sheet1.[a1].CurrentRegion
   
4.     ReDim brr(1 To UBound(arr) * 20, 1 To 5)
   
5.     For i = 2 To UBound(arr)
   
6.         k = k + 1
   
7.         For j = 1 To 5
   
8.             brr(k, j) = arr(i, j)
   
9.         Next
   
10.         For y = 6 To UBound(arr, 2) Step 2
    
11.             If arr(i, y) <> "" Then
    
12.                 k = k + 1
    
13.                 brr(k, 1) = arr(i, 1)
    
14.                 brr(k, 2) = arr(i, 2)
    
15.                 brr(k, 3) = arr(i, y)
    
16.                 brr(k, 4) = arr(i, y + 1)
    
17.             Else
    
18.                 Exit For
    
19.             End If
    
20.         Next
    
21.     Next
    
22.     Sheet2.[a2:e66666] = ""
    
23.     Sheet2.Columns(4).NumberFormat = "@"
    
24.     Sheet2.[a2].Resize(k, 5) = brr
    
25. End Sub
    

复制代码

jiangxiaoyun

求助.zip (22.09 KB, 下载次数: 11)

2018-4-12 08:28 上传

点击文件名下载附件

>>>>>>>>>>>>>>

nyakjsc

jiangxiaoyun 发表于 2018-4-12 08:28
>>>>>>>>>>>>>>

非常感谢，太好用了，能不能做成个工具放在菜单栏上。