复制行后基于单元格值修改特定行多单元格颜色异常问题

你的代码核心问题是重复复制整行：循环里每碰到一个有差异的列，就把ws1的第i行重新复制到ws3的同一行，后面的复制会彻底覆盖之前该行的所有内容（包括已经标红的单元格），所以最终只有最后一个触发条件的单元格能保留红色。

先收集当前行所有需要标红的列号，再一次性复制整行，最后批量设置颜色，避免重复覆盖：

Dim redColumns As Collection
Set redColumns = New Collection

' 第一步：遍历所有列，收集需要标红的列号
For k = 1 To column_count
    Dim ws1Cell As Range, ws2Cell As Range
    Set ws1Cell = ws1.Cells(i, k)
    Set ws2Cell = ws2.Cells(j, k)
    
    ' 判断单元格是否存在差异（含空值与非空值的对比）
    If ws1Cell.Value <> ws2Cell.Value Or _
       (Not IsEmpty(ws1Cell.Value) And IsEmpty(ws2Cell.Value)) Or _
       (IsEmpty(ws1Cell.Value) And Not IsEmpty(ws2Cell.Value)) Then
        redColumns.Add k ' 记录需要标红的列号
    End If
Next k

' 第二步：仅当存在差异列时，执行复制和标红操作
If redColumns.Count > 0 Then
    ' 只复制一次整行，避免覆盖
    ws1.Rows(i).Copy Destination:=ws3.Rows(lastRow3)
    
    ' 批量设置需要标红的单元格颜色
    Dim colNum As Variant
    For Each colNum In redColumns
        ws3.Cells(lastRow3, colNum).Interior.Color = RGB(255, 0, 0)
    Next colNum
End If

• 先收集所有差异列，彻底避免重复复制导致的内容覆盖
• 仅当存在差异时才执行复制操作，减少不必要的性能消耗
• 用Collection存储列号，逻辑清晰且易于维护

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