如何在VBA中比较两列并复制值

Sub CompareAndCopyValues()
    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
    
    '从第1行开始逐行比较
    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
        End If
    Next i
End Sub