如何用excel vba比较选定区域中的多列(2列以上)

Sub CompareColumns()
    Dim rng As Range
    Dim cell As Range
    Dim resultColumn As Range
    
    ' 选择要比较的区域
    Set rng = Selection
    
    ' 添加一个新列用于存放比较结果
    Set resultColumn = rng.Columns(rng.Columns.Count + 1).EntireColumn
    resultColumn.Insert
    
    ' 循环比较每一行的两列数据
    For Each cell In rng.Columns(1).Cells
        ' 比较第一列和第二列的值
        If cell.Value = cell.Offset(0, 1).Value Then
            ' 如果相等，将结果设置为"相等"
            cell.Offset(0, 2).Value = "相等"
        Else
            ' 如果不相等，将结果设置为"不相等"
            cell.Offset(0, 2).Value = "不相等"
        End If
    Next cell
End Sub