VBA根据两个条件选择行；一个精确值，另一个值是另一个工作表上列表中的一个

Sub SelectRows()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim searchValue As String
    Dim searchRange As Range
    Dim cell As Range
    
    ' 设置工作表对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1") ' 假设条件值所在的工作表为Sheet1
    Set ws2 = ThisWorkbook.Worksheets("Sheet2") ' 假设列表所在的工作表为Sheet2
    
    ' 获取条件值
    searchValue = ws1.Range("A1").Value ' 假设条件值在Sheet1的A1单元格中
    
    ' 设置列表范围
    Set searchRange = ws2.Range("A1:A10") ' 假设列表在Sheet2的A1:A10范围内
    
    ' 遍历列表范围，根据条件选择行
    For Each cell In searchRange
        If cell.Value = searchValue Then
            ' 选择行的操作，这里仅仅是示例，你可以根据实际需求进行操作
            cell.EntireRow.Select
        End If
    Next cell
End Sub