使用vba比较两列并复制粘贴

Sub CompareAndPaste()
    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
        ' 比较第一列和第二列的数据
        If ws.Cells(i, 1).Value = ws.Cells(i, 2).Value Then
            ' 如果相等，则将第一列的数据复制到第三列
            ws.Cells(i, 3).Value = ws.Cells(i, 1).Value
        Else
            ' 如果不相等，则将第一列的数据复制到第四列
            ws.Cells(i, 4).Value = ws.Cells(i, 1).Value
        End If
    Next i
End Sub