|
我的写的代码在模块里面。不知道是那里出了问题。求大师指点。
- Sub t1()
- Dim arr, arr1()
- Dim x, m, k
- arr = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row)
- m = 1: k = 1
- ReDim arr1(1 To 1000, 1 To m)
- For x = 1 To UBound(arr)
- If arr(x, 1) <> "" Then
- arr1(k, m) = arr(x, 1)
- k = k + 1
- Else
- m = m + 1: k = 1
- ReDim Preserve arr1(1 To 1000, 1 To m)
- arr1(k, m) = arr(x, 1)
- End If
- Next x
- Range("h1").Resize(1000, UBound(arr1, 2)) = arr1
- End Sub
复制代码稍微改了下思路
|
|