使用宏来比较两个Excel工作表中的列，并将匹配项添加到第三个工作表

Sub CompareWorksheets()
    Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
    Dim cell1 As Range, cell2 As Range, cell3 As Range
    Dim valueToFind As String
    
    ' 设置要比较的工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1") ' 第一个工作表
    Set ws2 = ThisWorkbook.Sheets("Sheet2") ' 第二个工作表
    Set ws3 = ThisWorkbook.Sheets("Sheet3") ' 第三个工作表
    
    ' 清空第三个工作表中的内容
    ws3.Cells.Clear
    
    ' 循环遍历第一个工作表中的每个单元格
    For Each cell1 In ws1.UsedRange
        valueToFind = cell1.Value
        
        ' 在第二个工作表中查找匹配项
        For Each cell2 In ws2.UsedRange
            If cell2.Value = valueToFind Then
                ' 将匹配项添加到第三个工作表
                Set cell3 = ws3.Cells(ws3.Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
                cell3.Value = valueToFind
                Exit For
            End If
        Next cell2
    Next cell1
End Sub