EXCEL怎么用VBA在当前表提取符合多个条件其他表的数据

表发来 看看 你怎么写的，给你改好 1052974911@qq.com
================
Sub chaxun()
Dim Arr, i&, d, Brr, aa$
Set d = CreateObject("Scripting.Dictionary")
Arr = Sheet2.UsedRange
For i = 2 To UBound(Arr)
d(Arr(i, 1) & Arr(i, 6)) = Arr(i, 8)
Next
For j = 2 To Sheet1.Range("a65536").End(xlUp).Row
If d.exists(Sheet1.Cells(j, 1) & Sheet1.Cells(j, 2)) Then
Sheet1.Cells(j, 3) = d(Sheet1.Cells(j, 1) & Sheet1.Cells(j, 2))
End If
Next
End Sub

请拷屏你的表，粘贴你的代码（文本，指出下标越界的语句），大家给你修改，这样大家就不用自己输入数据、编写代码那样浪费时间。