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

weixueke

楼主，用条件格式是不是更明显，当不一样的时候用颜色标注出来
条件可以用INDIRECT+ADDRESS公式

五代

private sub bijiao()
mark=0
For j = 2 To 36
   if Sheets("Sheet1").Cells(8, j)<>Sheets("Sheet2").Cells(20, j) then
      mark=1
   end if
Next
if mark=1 then
    msgbox "两个区域不同"
end if
end sub

kmtom

如果每个单元格不要求一一对应式的相等，只有包含关系的，提出没有包含的数值，该如何写？

Peter_Chow

a371014988 发表于 2010-8-26 21:21
Function RangeValue(rg1 As Range, rg2 As Range) As Boolean
    Dim arr1
    Dim arr2

很好的函数，顶一下。