Excel 将两列内容录入二维数组

普通浏览复制代码保存代码打印代码

1. Sub yy()
2. Dim i&, Myr&, r%, Arr, Arr1()
3. Sheet1.Activate
4. Myr = [q65536].End(xlUp).Row
5. Arr = Range("o1:q" & Myr)
6. For i = 2 To UBound(Arr)
7.     If Arr(i, 1) > 0 Then
8.         r = r + 1
9.         ReDim Preserve Arr1(1 To 2, 1 To r)
10.         Arr1(1, r) = Arr(i, 1)
11.         Arr1(2, r) = Arr(i, 3)
12.     End If
13. Next
14. [s1].Resize(r, 2) = Application.Transpose(Arr1)
15. End Sub