怎么判断两个区域

ztsss161511

大佬们这个难住我了，能给个提示吗？ 所需要功能：
判断两个区域内容是否相等：
表里的Sheet1，单元格范围Range（A2:R7）与 Sheet2  对比
   Sheet2  ，单元格范围  Range（A2:R"i"）
1）：Sheet1 单元格范围固定，Sheet2单元格范围列数一样，行数有可能与不一样，如果不一样返回提示“不一致”就可以。
2） 只有Sheet1 单元格的范围和内容包括顺序完全  与Sheet2一致，提示“数据一致”

二维马

arr = sheets(1).currentregion
brr = sheets(2).currentregion
if ubound(arr) = ubound(brr) then
'判断表1 表2 内容是否完全一致 代码套for  next就可以了，如不一致跳出循环提示不一致。

else
msgbox"不一致"
end if

gwjkkkkk

1.首先判断行数是否一致，如一致再进行每个对应数据判断，大致这样吧。。。

ztsss161511

二维马 发表于 2023-2-16 17:40
arr = sheets(1).currentregion
brr = sheets(2).currentregion
if ubound(arr) = ubound(brr) then

怪我没说清楚。
能不能就判断所说的区域呢？ 因为两个表格其他位置的地方可能有其他内容，所以直接比较两个表格可能不行！~

cyano

ztsss161511 发表于 2023-2-16 18:48
怪我没说清楚。
能不能就判断所说的区域呢？ 因为两个表格其他位置的地方可能有其他内容，所以直接比 ...

arr = Sheets(1).Range("A2:R7")
brr = Sheets(2).Range("A2:R" & i)
大概是這樣吧