基于单元格值验证2列的Excel宏

Sub ValidateColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 循环验证每一行的值
    For i = 2 To lastRow
        ' 获取第一列和第二列的值
        Dim value1 As String
        Dim value2 As String
        value1 = ws.Cells(i, 1).Value
        value2 = ws.Cells(i, 2).Value
        
        ' 进行值的比较
        If value1 <> value2 Then
            ' 如果不匹配，给出提示
            MsgBox "第" & i & "行的值不匹配！"
        End If
    Next i
End Sub