Excel VBA:查找具有多个条件的单元格的值的方法

Sub FindCells()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim searchValue1 As String
    Dim searchValue2 As String
    
    ' 设置要查找的条件值
    searchValue1 = "条件1"
    searchValue2 = "条件2"
    
    ' 设置要查找的范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set rng = ws.Range("A1:A10")
    
    ' 循环遍历每个单元格，并检查是否满足条件
    For Each cell In rng
        If cell.Value = searchValue1 And cell.Offset(0, 1).Value = searchValue2 Then
            ' 找到符合条件的单元格
            MsgBox "找到符合条件的单元格：" & cell.Address
        End If
    Next cell
End Sub