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

金子

sheet1中数据在B8: AK8，Sheet2中数据在B20:AK20，如何用VBA来判断两张表中两个区域的数据是否相等？

liuyan819

用附件说话

金子

附件己上传，人工看是相等的，如何用程序来判断这两个区域是否相等。

a371014988

是对应没个单元格都要相等吗？

金子

是的，每个单元格对应要相等。

a371014988

那定义一个区域，使用for each target inrange来遍历循环，顺便获取target的address
利用target.address找到另一个工作表地址的value跟这个target。value对比，不同记录下str=str & target.address

[ 本帖最后由 a371014988 于 2010-8-26 20:13 编辑 ]

金子

功底差，不知道如何处理，请帮帮忙。

a371014988

我先实验下

a371014988

Option Explicit

Sub test()
    Dim arr As Range
    Dim target As Range
    Dim str As String
    Set arr = Sheets(1).Range("A1").Resize(10, 10)
    For Each target In arr
        
        If target.Value <> Sheets(2).Range(target.Address).Value Then
            str = str & " " & target.Address
        End If
    Next
End Sub
这个也许是你的需要噢，美女，那个区域自己写去，加我QQ啊 123994251

[ 本帖最后由 a371014988 于 2010-8-26 20:24 编辑 ]

a371014988

Option Explicit

Sub test()
    Dim arr As Range
    Dim target As Range
    Dim str As String
    Set arr = Sheets(1).UsedRange
    For Each target In arr
        If target.Value <> Sheets(2).Range(target.Address).Value Then
            str = str & " " & target.Address
        End If
    Next
   msgbox str
End Sub

[ 本帖最后由 a371014988 于 2010-8-26 20:35 编辑 ]