Excel VBA，比较两个不同列中的值，并保留整行的常用值

Sub CompareColumns()
    Dim ws As Worksheet ' 工作表
    Dim firstCol As Range ' 第一个列
    Dim secondCol As Range ' 第二个列
    Dim cell As Range ' 单元格
    
    ' 设置工作表和列范围
    Set ws = ThisWorkbook.ActiveSheet
    Set firstCol = ws.Range("A1:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    Set secondCol = ws.Range("B1:B" & ws.Cells(ws.Rows.Count, "B").End(xlUp).Row)
    
    ' 遍历第一个列中的每个单元格
    For Each cell In firstCol
        ' 在第二个列中查找匹配的值
        If Not IsError(Application.Match(cell.Value, secondCol, 0)) Then
            ' 找到匹配的值，将整行数据复制到另一个工作表的下一行
            cell.EntireRow.Copy Destination:=ws.Range("C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row + 1)
        End If
    Next cell
End Sub