在同一行VBA中的两列之间搜索匹配项

Sub SearchMatchingItems()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取第一列和第二列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历第一列的每个单元格
    For i = 1 To lastRow
        ' 获取第一列和第二列的值
        Dim value1 As String
        Dim value2 As String
        value1 = ws.Cells(i, 1).Value
        value2 = ws.Cells(i, 2).Value
        
        ' 判断是否匹配
        If value1 = value2 Then
            ' 找到匹配项，可以在这里进行相应的操作
            ' 例如，可以将匹配项的行标记为特定颜色
            ws.Cells(i, 1).Interior.Color = RGB(255, 0, 0) ' 红色
            ws.Cells(i, 2).Interior.Color = RGB(255, 0, 0) ' 红色
        End If
    Next i
End Sub