工作表%1中的VBA数据与列A中的任何单元格匹配工作表%2

Sub 匹配数据()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim dataRange As Range
    Dim cell As Range
    Dim matchRange As Range
    
    ' 设置工作表对象
    Set ws1 = ThisWorkbook.Sheets("工作表1")
    Set ws2 = ThisWorkbook.Sheets("工作表2")
    
    ' 获取数据范围
    Set dataRange = ws1.Range("A1:A" & ws1.Cells(Rows.Count, 1).End(xlUp).Row)
    
    ' 遍历数据范围中的每个单元格
    For Each cell In dataRange
        ' 在工作表2的列A中查找匹配的单元格
        Set matchRange = ws2.Range("A:A").Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配的单元格，则进行相应的操作
        If Not matchRange Is Nothing Then
            ' 进行匹配后的操作，例如将匹配到的单元格标记为红色
            matchRange.Interior.Color = RGB(255, 0, 0)
        End If
    Next cell
End Sub