VBA进行两个sheet页中的数据对比并标记红色

好的，您的问题是如何使用 VBA 进行两个 Sheet 页中的数据对比，并将不一致的单元格标记为红色。

以下是一个示例代码，它可以帮助您实现这个功能：

Sub CompareSheetsAndMark()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim row As Integer, col As Integer
    Set ws1 = Worksheets("Sheet1") '第一个 Sheet 页的名称
    Set ws2 = Worksheets("Sheet2") '第二个 Sheet 页的名称
    For row = 1 To ws1.UsedRange.Rows.Count '循环行
        For col = 1 To ws1.UsedRange.Columns.Count '循环列
            If ws1.Cells(row, col) <> ws2.Cells(row, col) Then '比较单元格值
                ws1.Cells(row, col).Interior.Color = vbRed '将不一致的单元格标记为红色
            End If
        Next col
    Next row
End Sub

上述代码与之前的示例代码非常相似，唯一的区别是它将不一致的单元格标记为红色。

具体来说，我们使用 `ws1.Cells(row, col).Interior.Color` 将单元格的背景色设置为红色，以标记不一致的单元格。

最后，您只需要运行上述代码即可进行两个 Sheet 页中的数据对比，并将不一致的单元格标记为红色。