Question

EXCEL通过VBA多条件查找怎样写？

提问一：1个条件查找；提问二：2个条件查找；提问三：3个条件查找；提问四：4个条件查找；谢谢
单寻找表的条件取消，分数自动清空





Answer 1

Sub 查找()
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