如何用VBA EXCEL比较两列

Sub CompareColumns()
    Dim rng1 As Range, rng2 As Range, cell1 As Range, cell2 As Range
    
    ' 设置要比较的两列范围
    Set rng1 = Range("A1:A10")
    Set rng2 = Range("B1:B10")
    
    ' 循环遍历每个单元格进行比较
    For Each cell1 In rng1
        For Each cell2 In rng2
            ' 比较两个单元格的值
            If cell1.Value = cell2.Value Then
                ' 如果值相等，则在C列标记为"相等"
                cell1.Offset(0, 2).Value = "相等"
                cell2.Offset(0, 2).Value = "相等"
            Else
                ' 如果值不相等，则在C列标记为"不相等"
                cell1.Offset(0, 2).Value = "不相等"
                cell2.Offset(0, 2).Value = "不相等"
            End If
        Next cell2
    Next cell1
End Sub