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

可以通过以下步骤实现：

打开Excel，并创建一个新的工作表作为第三个工作表。
在第一个工作表中，选择要比较的列，并将其复制。
在第三个工作表中，选择要粘贴匹配项的列，并将其粘贴。
在Excel的开发工具栏中，点击“Visual Basic”按钮，打开Visual Basic for Applications（VBA）编辑器。
在VBA编辑器中，选择“插入”菜单，然后选择“模块”。
在新创建的模块中，编写以下宏代码：

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