如何判断两张表中两个区域的数据是否相等？

a371014988

Sub text()
    Dim arr1 As Range
    Dim arr2 As Range
    Set arr1 = Sheets(1).UsedRange
    Set arr2 = Sheets(2).UsedRange
    If arr1.Address = arr2.Address Then
        MsgBox "两个区域相同"
    Else
        MsgBox "两个区域不相同"
    End If
End Sub

a371014988

尴尬死，看错附件，原来是单元格不相同的

金子

我想要的就是判断一下sheet1表中，单元格区域B8: AK8中的数据，与Sheet2表中，单元格区域B20:AK20中的数据，是否完全相等？前提当然是每个对应的单元格相等结果才会相等，但不一定要每个单元格都去判断，只要最终这两个区域中的数据是一致的即可，如果sheet1表、Sheet2表中的这两个区域最终结果相等就提示相等，不相等就提示不相等。

a371014988

简单死了，尴尬，我这新手摘你手上了

金子

最简单的说法就是分布在两张不同工作表中的两行数据是否完全相等，当然我要说的并不是整行，而只是一小块区域中的数据是否相等。

a371014988

你附件提供的太少了，终于明白问题了

hqswww

难道是这样的玩法?

a371014988

你的也错了大哥，人家是一个区块的

a371014988

美女，要不做个函数给你好了，让你自己选区域对比吧，工作中区块也不固定

a371014988

Function RangeValue(rg1 As Range, rg2 As Range) As Boolean
    Dim arr1
    Dim arr2
    Dim i As Integer, j As Integer
    arr1 = rg1
    arr2 = rg2
    RangeValue = True
    If UBound(arr1, 1) <> UBound(arr2, 1) Or UBound(arr1, 2) <> UBound(arr2, 2) Then
        RangeValue = False
        Exit Function
    End If
    For i = 1 To UBound(arr1, 1)
        For j = 1 To UBound(arr1, 2)
            If arr1(i, j) <> arr2(i, j) Then
                RangeValue = False
                Exit Function
            End If
        Next j
    Next i
End Function