请求实现Excel两工作表单元格对比：标记差异并同步至主表

嘿，我整理了一个完整的VBA脚本，正好能实现你要的功能——对比两个工作表的单元格，标记test表中变更的内容，同时把更新同步到master主表：

完整代码 #

Sub SyncMasterAndTest()
    Dim varSheetA As Variant
    Dim varSheetB As Variant
    Dim strRangeToCheck As String
    Dim iRow As Long
    Dim iCol As Long
    Dim wsMaster As Worksheet
    Dim wsTest As Worksheet
    
    ' 绑定对应的工作表（确保表名和你的文件一致）
    Set wsMaster = ThisWorkbook.Worksheets("master")
    Set wsTest = ThisWorkbook.Worksheets("test")
    
    ' 定义要检查的单元格范围，按需缩小能提升速度
    strRangeToCheck = "A1:V1000"
    
    Debug.Print "对比启动时间: " & Now
    
    ' 把数据读入数组，比直接遍历单元格效率高太多
    varSheetA = wsMaster.Range(strRangeToCheck).Value
    varSheetB = wsTest.Range(strRangeToCheck).Value
    
    ' 逐个单元格对比
    For iRow = LBound(varSheetA, 1) To UBound(varSheetA, 1)
        For iCol = LBound(varSheetA, 2) To UBound(varSheetA, 2)
            ' 内容不一致时执行操作
            If varSheetA(iRow, iCol) <> varSheetB(iRow, iCol) Then
                ' 给test表的变更单元格标记黄色（颜色可自行修改）
                wsTest.Cells(iRow, iCol).Interior.Color = RGB(255, 255, 0)
                ' 把test的更新同步到master表
                wsMaster.Cells(iRow, iCol).Value = wsTest.Cells(iRow, iCol).Value
            End If
        Next iCol
    Next iRow
    
    Debug.Print "对比完成时间: " & Now
    MsgBox "变更标记与同步已完成！", vbInformation
End Sub

几个实用的调整点 #

• 缩小检查范围：如果你的数据没到V1000，把strRangeToCheck改成实际的范围（比如A1:Z500），能大幅提升运行速度
• 修改标记颜色：代码里用的是黄色（RGB(255,255,0)），你可以换成任意颜色，比如红色RGB(255,0,0)或者浅蓝RGB(189,215,238)
• 工作表名称匹配：如果你的主表/测试表名字不是master/test，记得修改Set wsMaster和Set wsTest里的工作表名称
• 空值处理：如果需要区分空单元格和有内容的单元格，这个逻辑已经能直接处理，不用额外调整

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