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

表1中A、B列分别是省份、城市名称与表2中A、F列对应，表2中H列有城镇名称（个别值是空的）。需要实现在表1操作时查找表2中省份、城市名称相同的所有城镇名称输入到H列，自己琢磨时老是提示下标出界类问题。。。。求指导
凑合解决了，没有实现去重

Sub chaxun()
Dim Arr, i&, d, Brr, aa$
Sheet1.Activate
Arr = Sheet2.UsedRange
j=2

For i = 2 To UBound(Arr)
If Arr(i, 8) > 0 And Arr(i, 1) = Sheet1.Range("a" & i) And Arr(i, 6) = Sheet1.Range("b" & i) Then
Sheet1.Range("H" & j) = Arr(i, 8)
j=j+1
End If
Next

End Sub

表发来 看看 你怎么写的，给你改好 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

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/f77v2f7s4v77s4f4fq7.html