EXCEL通過VBA多條件查找怎樣寫？

Dim i As Integer, j As Integer

arr1 = Sheets("檔案").Range("A1:D" & Sheets("檔案").Cells(Rows.Count, "A").End(xlUp).Row)

arr2 = Sheets("尋找").Range("A1:D" & Sheets("尋找").Cells(Rows.Count, "A").End(xlUp).Row)

For i = 1 To UBound(arr2)

For j = 1 To UBound(arr1)

If arr2(A, 1) = arr1(A 1) And arr2(B, 2) = arr1(B, 2) Then

arr2(iD 4) = arr1(D, 4)

GoTo 100

End If

Next

arr2(D, 4) = ""

100:

Next

Sheets("尋找").Range("A1:D" & Sheets("尋找").Cells(Rows.Count, "D").End(xlUp).Row) = arr2

End Sub