VBA - 比较两张工作表并将结果粘贴到新工作表上

Question

我有两张“2019 Project Detail”和“2019 Project Detail SOURCE”，结构相同，因为“2019 Project Detail SOURCE”是“2019 Project Detail”的副本。然后我想检查这两张纸之间是否有任何区别。如果有人更改了“2019 年项目详细信息”表上的任何数字/任何内容。如果是这样，则突出显示它们并将更改单元格的引用粘贴到第三张“结果”（即“2019 项目详细信息！AD4”）上。

我有突出显示更改的代码，但我不知道如何将更改粘贴到“结果”表上。

代码：

Sub CompareAndHighlightDifferences()

Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet

Set w1 = Sheets("2019 Project Detail")
Set w2 = Sheets("2019 Project Detail SOURCE")
Set w3 = Sheets("Results")

With w1
    For Each cel In .UsedRange
        If cel.Value <> w2.Cells(cel.Row, cel.Column).Value Then cel.Interior.Color = vbBlue

    Next cel
End With

End Sub

请给我一些建议好吗？

非常感谢！

Answer 1

这段代码会将所有更改记录到 w3 中：

Dim row As Long
row = 1

With w1
    For Each cel In .UsedRange
        If cel.Value <> w2.Cells(cel.row, cel.Column).Value Then
            cel.Interior.Color = vbBlue
            w3.Cells(row, 1) = cel.Address
            w3.Cells(row, 2) = cel.Value
            w3.Cells(row, 3) = w2.Cells(cel.row, cel.Column).Value
            row = row + 1
        End If
    Next cel
End With

Answer 2

可能，其中一个选项将有助于比较更改。 选项 1 将在“结果”工作表的同一单元格中显示两个工作表中的值。选项 2 可以列出不同单元格的名称。

Sub CompareAndHighlightDifferences()
Dim w1 As Worksheet, w2 As Worksheet, w3 As Worksheet
Set w1 = Sheets("Sheet1")
Set w2 = Sheets("Sheet2")
Set w3 = Sheets("Sheet3")
For Each cel In w1.UsedRange
    If cel.Value <> w2.Cells(cel.Row, cel.Column).Value Then
        cel.Interior.Color = vbBlue
        'Option 1
        'w3.Cells(cel.Row, cel.Column).Value = w1.Name & " value: " & cel.Value & " / " & _
        'w2.Name & " value: " & w2.Cells(cel.Row, cel.Column).Value

        'Option 2
        lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
        w3.Cells(lLastRow + 1, 1).Value = Split(cel.Address(True, False), "$")(0) & cel.Row
    End If
Next cel
End Sub