坐等大神解惑

lyh超人

如何将图一里的表转化成图二里的表？

jiangxiaoyun

1. Sub cd()
   
2.     Dim arr, brr()
   
3.     arr = Range("e1", [e1024768].End(3))
   
4.     ReDim brr(1 To UBound(arr) / 6, 1 To 6)
   
5.     For i = 1 To UBound(arr) Step 6
   
6.         k = k + 1
   
7.         For m = 1 To 6
   
8.             brr(k, m) = arr(i + m - 1, 1)
   
9.         Next
   
10.     Next
    
11.     [h1:m10246] = ""
    
12.     [h1].Resize(k, 6) = brr
    
13. End Sub

复制代码

lyh超人

jiangxiaoyun 发表于 2017-8-11 21:28

太好了，感激不尽

jblaiye

VB厉害，服