Excel VBA: 检查两列中的值是否相等

在 Excel VBA 中，我们可以使用以下代码来检查两个列中的值是否相等。

Sub CompareColumns()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To lastRow
        If Range("A" & i).Value <> Range("B" & i).Value Then
            Range("C" & i).Value = "不一致"
        Else
            Range("C" & i).Value = "一致"
        End If
    Next i
End Sub

在此示例中，我们将比较列 A 和列 B 中的值，并将结果写入列 C。如果两列中的值不同，则将“不一致”写入列 C，否则将“一致”写入列 C。

请注意，我们使用“lastRow”变量来查找列 A 中最后一个包含值的行。我们还使用“i”变量来循环遍历每一行，并使用“Range”函数访问单元格。我们使用“<>”运算符来比较列 A 和列 B 中的值。

在以下示例中，我们将列 A 和列 B 中的值进行了比较，结果在列 C 中显示。

| Column A | Column B | Column C | | -------- | -------- | -------- | | apple | apple | 一致 | | banana | orange | 不一致 | | orange | orange | 一致 |

以上是如何使用 Excel VBA 检查两列中的值是否相等。此代码适用于您想要比较类似数据的情况，例如两个列表中是否存在匹配项。