Excel比较两列的值是否相同

方法一：使用条件格式化（推荐）

步骤：

选择第七列（G列）
- 点击G列的列标题，或选择需要格式化的G列单元格范围
应用条件格式化
- 点击"开始"选项卡 → "条件格式" → "新建规则"
设置绿色规则（相同时）
- 选择"使用公式确定要设置格式的单元格"
- 输入公式：=$B1=$F1
- 点击"格式"按钮
- 选择"填充"选项卡，选择绿色
- 点击"确定"
设置蓝色规则（不同时）
- 再次点击"条件格式" → "新建规则"
- 选择"使用公式确定要设置格式的单元格"
- 输入公式：=$B1<>$F1
- 点击"格式"按钮
- 选择"填充"选项卡，选择蓝色
- 点击"确定"

方法二：使用VBA宏（自动化处理）

如果您需要经常执行此操作，可以使用VBA宏：### 如何使用VBA代码：

按 Alt + F11 打开VBA编辑器
插入新模块：右键点击项目 → 插入 → 模块
将上述代码复制粘贴到模块中
关闭VBA编辑器
按 Alt + F8 运行宏，选择相应的宏名称执行

VBA 复制代码

Sub CompareColumnsAndColor()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置工作表（使用当前活动工作表）
    Set ws = ActiveSheet
    
    ' 获取最后一行的行号（基于B列）
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 循环每一行进行比较
    For i = 1 To lastRow
        ' 比较第二列（B列）和第六列（F列）
        If ws.Cells(i, 2).Value = ws.Cells(i, 6).Value Then
            ' 如果相同，将第七列（G列）设置为绿色
            ws.Cells(i, 7).Interior.Color = RGB(146, 208, 80)  ' 浅绿色
        Else
            ' 如果不同，将第七列（G列）设置为蓝色
            ws.Cells(i, 7).Interior.Color = RGB(142, 169, 219)  ' 浅蓝色
        End If
    Next i
    
    MsgBox "对比完成！共处理了 " & lastRow & " 行数据。", vbInformation
End Sub

' 可选：清除第七列的颜色
Sub ClearColumnColors()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    ' 清除第七列的背景色
    ws.Columns(7).Interior.ColorIndex = xlNone
    
    MsgBox "已清除第七列的颜色标记。", vbInformation
End Sub

' 高级版本：包含空值处理和更多选项
Sub CompareColumnsAdvanced()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim col2Value As Variant
    Dim col6Value As Variant
    
    ' 设置工作表
    Set ws = ActiveSheet
    
    ' 获取最后一行
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 可以选择从第2行开始（跳过标题行）
    For i = 2 To lastRow  ' 从第2行开始，跳过标题
        col2Value = ws.Cells(i, 2).Value
        col6Value = ws.Cells(i, 6).Value
        
        ' 处理空值情况
        If IsEmpty(col2Value) And IsEmpty(col6Value) Then
            ' 两个都是空值，视为相同
            ws.Cells(i, 7).Interior.Color = RGB(146, 208, 80)  ' 绿色
        ElseIf col2Value = col6Value Then
            ' 值相同
            ws.Cells(i, 7).Interior.Color = RGB(146, 208, 80)  ' 绿色
        Else
            ' 值不同
            ws.Cells(i, 7).Interior.Color = RGB(142, 169, 219)  ' 蓝色
        End If
        
        ' 可选：在第七列添加文字说明
        If col2Value = col6Value Then
            ws.Cells(i, 7).Value = "匹配"
        Else
            ws.Cells(i, 7).Value = "不匹配"
        End If
    Next i
    
    MsgBox "对比完成！共处理了 " & lastRow - 1 & " 行数据（不含标题行）。", vbInformation
End Sub

方法三：使用公式配合条件格式

如果您想在第七列显示比较结果的文字，可以：

在G1单元格输入公式：
excel 复制代码
```
=IF(B1=F1,"相同","不同")
```
向下拖动填充公式到所有需要的行
然后对G列应用条件格式：
- 选择G列
- 条件格式 → 突出显示单元格规则 → 文本包含
- 输入"相同"，设置为绿色格式
- 再次设置规则，输入"不同"，设置为蓝色格式

注意事项：

如果数据中包含空单元格，需要考虑如何处理（是否将两个空值视为相同）
如果是文本比较，Excel默认不区分大小写
如果是数字比较，注意小数位数可能影响比较结果
建议先在测试数据上试验，确认效果后再应用到实际数据

选择哪种方法取决于您的具体需求：

一次性操作：使用方法一（条件格式化）
频繁操作：使用方法二（VBA宏）
需要显示文字结果：使用方法三（公式+条件格式）