用VBA写一个对比表格的代码,其中需要对比的表格无序且位于同一张工作表中，差异用颜色标出

下面是一个 VBA 代码，可以用于比较同一张工作表中的两个无序表格中的数据，并将它们的差异用颜色标出：

Sub CompareTables()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    
    '设置需要比较的表格
    Set ws = Worksheets("Sheet1")
    
    '获取表格的最后一行和最后一列
    lastRow = Application.WorksheetFunction.Max(ws.Range("A:A").End(xlDown).Row, _
                                               ws.Range("E:E").End(xlDown).Row)
    lastCol = Application.WorksheetFunction.Max(ws.Range("A:Z").End(xlToLeft).Column)
    
    '比较表格1和表格2中的数据，并将差异用颜色标出
    For i = 2 To lastRow '从第2行开始是因为第1行是表头
        For j = 1 To lastCol
            If ws.Cells(i, j).Value <> ws.Cells(i, j + 4).Value Then '假设需要比较的两个表格中间隔了4列
                ws.Cells(i, j).Interior.ColorIndex = 6 '将表格1中不同的单元格标为黄色
                ws.Cells(i, j + 4).Interior.ColorIndex = 6 '将表格2中不同的单元格标为黄色
            Else
                ws.Cells(i, j).Interior.ColorIndex = xlNone '将表格1中相同的单元格颜色恢复为默认
                ws.Cells(i, j + 4).Interior.ColorIndex = xlNone '将表格2中相同的单元格颜色恢复为默认
            End If
        Next j
    Next i
    
    MsgBox "比较完成！"
End Sub

这个代码假设需要比较的两个表格位于同一张工作表中，比较结果将会直接用颜色标出。在比较时，它会逐个比较两个表格中的单元格，如果发现有不同的内容，则会将两个单元格都标为黄色，表示这里存在差异。如果两个单元格相同，则将它们的颜色恢复为默认。最后，它会弹出一个提示框告诉你比较已经完成。注意，这个代码中的比较条件是需要比较的两个表格中间隔了4列。如果这个条件不符合你的需求，你可以根据实际情况进行修改。