vba 判断两张表的单元格是否相等 if

可以使用VBA编写一个子程序来判断两张表的单元格是否相等，代码如下：

Sub CompareCells()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim cell1 As Range, cell2 As Range
    
    ' 设置要比较的两个工作表
    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")
    
    ' 逐个比较单元格
    For Each cell1 In ws1.UsedRange
        Set cell2 = ws2.Range(cell1.Address)
        If cell1.Value <> cell2.Value Then
            ' 如果有任意一个单元格的值不相等，则退出循环
            MsgBox "单元格 " & cell1.Address & " 和 " & cell2.Address & " 的值不相等！", vbExclamation
            Exit Sub
        End If
    Next
    
    ' 所有单元格的值都相等
    MsgBox "两张表的所有单元格的值都相等。", vbInformation
End Sub

这个子程序会逐个比较两个工作表中的单元格，如果发现任意一个单元格的值不相等，就会弹出一个提示框并退出循环。如果所有单元格的值都相等，则会弹出一个提示框表示两张表的所有单元格的值都相等。