比较多列VBA EXCEL (嵌套循环)

Sub CompareColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    
    ' 设置要比较的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取第一个列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 外部循环，遍历第一个列的每一行
    For i = 1 To lastRow
        ' 获取当前行的值
        Dim value1 As Variant
        value1 = ws.Cells(i, 1).Value
        
        ' 内部循环，遍历其他列的每一行
        For j = 2 To 4 ' 假设要比较第2列到第4列
            ' 获取当前列的值
            Dim value2 As Variant
            value2 = ws.Cells(i, j).Value
            
            ' 比较数值
            If value1 = value2 Then
                ' 执行相应操作
                ' ...
            End If
        Next j
    Next i
End Sub