请求编写Excel宏：对比两组相邻单元格数据

嘿，作为宏编程新手能想到用自动化来处理数据对比真的很棒！针对你提到的需求——对比C列和D列的相邻单元格，同时关联A/B列的员工信息，我整理了一段实用的VBA宏代码，还会一步步解释怎么用，帮你快速上手。

先明确下我们要实现的核心逻辑：逐行对比同一行的C列和D列内容，区分「内容不一致」和「其中一列无记录」两种情况，同时把对应的员工ID、姓名所在行做标记，方便快速定位差异。

完整VBA宏代码 #

Sub CompareCDColumns()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置要操作的工作表（请替换成你实际的工作表名称，比如"员工数据"）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取数据的最后一行（以A列员工ID为准，确保不会漏过任何有效行）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 从第2行开始遍历（假设第1行是表头：A1=员工ID、B1=姓名、C1/D1=数据列标题）
    For i = 2 To lastRow
        ' 先重置该行的标记状态
        ws.Rows(i).Interior.Color = xlNone
        ws.Cells(i, "E").Value = ""
        
        ' 情况1：C列和D列内容完全不同
        If ws.Cells(i, "C").Value <> ws.Cells(i, "D").Value Then
            ws.Rows(i).Interior.Color = RGB(255, 255, 153) ' 浅黄色标记
            ws.Cells(i, "E").Value = "C列与D列内容不符"
        End If
        
        ' 情况2：其中一列无记录（空值），另一列有内容
        If (ws.Cells(i, "C").Value = "" And ws.Cells(i, "D").Value <> "") Or _
           (ws.Cells(i, "C").Value <> "" And ws.Cells(i, "D").Value = "") Then
            ws.Rows(i).Interior.Color = RGB(255, 204, 204) ' 浅红色标记
            ws.Cells(i, "E").Value = "其中一列无记录"
        End If
    Next i
    
    MsgBox "对比完成！差异行已标记在E列并添加颜色提示。", vbInformation
End Sub

代码关键说明 #

• 指定工作表：Set ws = ThisWorkbook.Worksheets("Sheet1") 里的Sheet1要改成你实际的工作表名称，比如你的数据在名为「员工数据」的表里，就改成"员工数据"
• 自动获取最后一行：用A列（员工ID）来判断数据的最后一行，避免因为C/D列记录不全导致漏行
• 双场景标记：用不同颜色和文字说明区分「内容不符」和「单列为空」，比单一标记更清晰
• 重置状态：每次循环先清空之前的标记，避免重复运行宏时出现混乱

新手快速上手步骤 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」里，右键点击你的工作表名称，选择「插入」→「模块」
3. 把上面的代码粘贴到新模块里，修改工作表名称（如果需要）
4. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选择CompareCDColumns执行
5. 运行完成后，E列会显示差异说明，差异行也会有颜色标记

自定义调整建议 #

• 如果你的表头不在第1行，把循环起始行i = 2改成对应的行号（比如表头在第3行，就改成i = 4）
• 可以修改RGB()里的数值来调整标记颜色，比如用RGB(204,255,204)设置浅绿色
• 如果不需要颜色标记，直接删除ws.Rows(i).Interior.Color = ...这两行即可

内容的提问来源于stack exchange，提问作者jnikhil019