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

a371014988 · 发表于 2010-8-26 21:23

美女，在看看这个函数，行不行啊，在一个单元格输入=rangevalue（）,括号内是两个你要对比的区域

金子 · 发表于 2010-8-26 21:23

没人明白我的意思？我要的就是判断这两个区域数据是否相等，一次性给出提示即可。附件中的数据人工看是相等的，但要用VBA来处理。

a371014988 · 发表于 2010-8-26 21:29

=rangevalue(B8: AK8,sheet2!B20:AK20)

a371014988 · 发表于 2010-8-26 21:30

这个函数我自己编的当然是vba啦，哈哈
true代表相同，false不相同

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

zhz3230 · 发表于 2010-8-26 21:35

Sub zhz3230()
For j = 2 To 36
s = s & Sheets("Sheet1").Cells(8, j)
ss = ss & Sheets("Sheet2").Cells(20, j)
Next
If s = ss Then
MsgBox ("两个区域相同")
Else
MsgBox ("两个区域不同")
End If

End Sub

金子 · 发表于 2010-8-26 21:44

谢谢大家的热心帮助，我慢慢领会。

guojianlin1985 · 发表于 2010-8-27 09:25

新学了几手，呵呵。

kyezzd · 发表于 2010-8-27 10:55

看人气的份上，搞个附件吧，这个问题其实完全没必要那么复杂

kyezzd · 发表于 2010-8-27 16:28

原帖由 zhz3230 于 2010-8-26 21:35 发表
Sub zhz3230()
For j = 2 To 36
s = s & Sheets("Sheet1").Cells(8, j)
ss = ss & Sheets("Sheet2").Cells(20, j)
Next
If s = ss Then
MsgBox ("两个区域相同")
Else
MsgBox ("两个区域不同")
End If

E ...

这个逻辑有错误，若有sheet1中第8行表中某个两个单元格是22,2，而sheet2中的第20行对应的是2,22，则结果就会出错。

zhz3230 · 发表于 2010-8-27 16:38

35楼确实有这个缺陷，该成这个即可消除
Private Sub zhz3230()
For j = 2 To 36
s = s & "//" & Sheets("Sheet1").Cells(8, j)
ss = ss & "//" & Sheets("Sheet2").Cells(20, j)
Next
If s = ss Then
MsgBox ("两个区域相同")
Else
MsgBox ("两个区域不同")
End If
End Sub

		自动登录	找回密码
密码			免费注册

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