[已解决]代码运行中数组装入有问题？

liyizhe000

代码运行中，数组arr，brr如果放在相应的表格中装入数据，运行代码没问题，如果在表2中直接运行代码，数组arr装入数据出现问题，只有三列，不知道是什么原因？求大神解惑
Sub test1()
Dim arr, i, brr, k, m
arr = Sheets(1).Range("D3:s" & Range("D65536").End(xlUp).Row)
brr = Sheets(2).Range("a1:c" & Range("b65536").End(xlUp).Row)
With Sheets(2)
For i = 1 To UBound(arr)
    For k = 1 To UBound(brr) Step 8
     If brr(k, 1) = arr(i, 1) Then
     m = m + 1
     .Cells(m, 3) = arr(i, 9)
     .Cells(m + 1, 3) = arr(i, 10)
     .Cells(m + 2, 3) = arr(i, 11)
     .Cells(m + 3, 3) = arr(i, 12)
     .Cells(m + 4, 3) = arr(i, 13)
     .Cells(m + 5, 3) = arr(i, 14)
     .Cells(m + 6, 3) = arr(i, 15)
     .Cells(m + 7, 3) = arr(i, 16)
     m = m + 7
     End If
  Next
Next
End With
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-14 11:09

arr = Sheets(1).Range("D3:s" & Sheets(1).Range("D65536").End(xlUp).Row)
brr = Sheets(2).Range("a1:c" & Sheets(2).Range("b65536").End(xlUp).Row)

跳转到最佳答案楼层

grf1973

arr = Sheets(1).Range("D3:s" & Sheets(1).Range("D65536").End(xlUp).Row)
brr = Sheets(2).Range("a1:c" & Sheets(2).Range("b65536").End(xlUp).Row)