比较同一工作表VBA中的两列

Sub CompareColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取当前工作表
    Set ws = ActiveSheet
    
    ' 获取"A"列的最后一行
    lastRow = ws.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 循环比较两列的值
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value = ws.Cells(i, "B").Value Then
            ' 如果两列的值相等，则在"C"列标记为"相等"
            ws.Cells(i, "C").Value = "相等"
        Else
            ' 如果两列的值不相等，则在"C"列标记为"不相等"
            ws.Cells(i, "C").Value = "不相等"
        End If
    Next i
End Sub