自己写的用VBA进行两个sheet页中的数据对比

好的，您的问题是如何用 VBA 进行两个 Sheet 页中的数据对比。

首先，您需要打开 VBA 编辑器，在 Excel 中按下 ALT + F11 快捷键即可打开。

然后，您需要在 VBA 编辑器中创建一个新的模块，可以在左侧的项目资源管理器中右键单击工作簿，选择“插入”>“模块”。

接下来，您可以使用以下代码示例来比较两个 Sheet 页中的数据：

Sub CompareSheets()
    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 '比较单元格值
                MsgBox "数据不一致：" & ws1.Cells(row, col) & " 与 " & ws2.Cells(row, col) '弹出消息框
            End If
        Next col
    Next row
End Sub

上述代码中，我们首先定义了两个变量 `ws1` 和 `ws2` 分别代表两个 Sheet 页，您需要将其替换为您实际使用的 Sheet 页名称。

然后，我们使用两个嵌套的循环来遍历两个 Sheet 页中的所有单元格，并使用 `If` 语句来比较单元格值是否相等。如果不相等，我们将使用 `MsgBox` 函数弹出一个消息框，显示两个单元格的值。

最后，您只需要运行上述代码即可比较两个 Sheet 页中的数据。