Question

VBA 提示下标越界，哪里出了问题？

Sub lqxs()
Dim Arr, i&, Brr, d
Set d = CreateObject("Scripting.Dictionary")
Sheets("sheet2").Activate
Arr = Sheets("sheet1").[a1].CurrentRegion
For i = 2 To UBound(Arr)
x = Arr(i, 1) & "|" & Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4)
d(x) = Arr(i, 5)
Next
Brr = [a1].CurrentRegion
For i = 2 To UBound(Brr)
x = Brr(i, 1) & "|" & Brr(i, 2) & "|" & Brr(i, 3) & "|" & Brr(i, 4)
If d.exists(x) Then Cells(i, 5) = d(x)
Next
End Sub

Answer 1

应该是currentregion和BRR的关系有问题。。你调试后光标定在那个位置的？