|
楼主 |
发表于 2014-4-3 21:14
|
显示全部楼层
01.Sub Macro1()
02.Dim arr, brr(1 To 20000, 1 To 5), i&, j%, k%, s&
03.arr = Sheet2.Range("b2").CurrentRegion
04.For i = 1 To UBound(arr)
05. For j = 1 To UBound(arr, 2) Step 4
06. If arr(i, j) <> "" Then
07. s = s + 1
08. For k = 0 To 3
09. brr(s, k + 1) = arr(i, j + k)
10. Next
11. brr(s, 5) = s + 110
12. End If
13. Next
14.Next
15.Range("l2").Resize(s, 5) = brr
16.End Sub
17.
|
|