Excel VBA如何比较存在质量缺陷/错误的两个大型数据集中的值？

Sub CompareDatasets()
    Dim dataset1 As Range
    Dim dataset2 As Range
    Dim cell1 As Range
    Dim cell2 As Range
    
    ' 定义数据集的范围
    Set dataset1 = Worksheets("Sheet1").Range("A1:D10")
    Set dataset2 = Worksheets("Sheet2").Range("A1:D10")
    
    ' 遍历第一个数据集的每个单元格
    For Each cell1 In dataset1
        ' 获取对应单元格在第二个数据集中的值
        Set cell2 = dataset2.Cells(cell1.Row, cell1.Column)
        
        ' 比较两个单元格的值
        If cell1.Value <> cell2.Value Then
            ' 发现差异，执行相应操作，例如记录错误信息或进行修复
            Debug.Print "差异单元格：" & cell1.Address
        End If
    Next cell1
End Sub