比对两个不同工作表，相同单元格位置值的变化

szqhb

比对两个工作表的中相同位置单元格内容的不同.zip (12.59 KB, 下载次数: 16)

2024-11-8 08:59 上传

点击文件名下载附件

有没有办法比对两个不同工作表，相同单元格位置值的变化？

taller

szqhb

taller 发表于 2024-11-8 09:29

谢谢，问题完美解决！

szqhb

taller 发表于 2024-11-8 09:29

如果要添加一个比对范围，如C6:K17，怎么修改代码？

taller

szqhb

taller 发表于 2024-11-9 00:40

谢谢，非常感谢！

szqhb

taller 发表于 2024-11-8 09:29

运行到17行被卡住了，提示：for控件变量已在使用

taller

szqhb 发表于 2024-11-11 16:40
运行到17行被卡住了，提示：for控件变量已在使用

笔误，将循环变量 i 改为 j

szqhb

taller 发表于 2024-11-12 00:24
笔误，将循环变量 i 改为 j

多谢。参照第一个代码修改了一下：

Sub Macro1()
'两工作表限定区域单元格比对
Dim oSht1 As Worksheet, oSht2 As Worksheet
Set oSht1 = Sheets(2)
Set oSht2 = Sheets(3)
Application.ScreenUpdating = False
With oSht1.Range("C6:K17")
.Interior.Pattern = xlNone
arr1 = .Value
iRow = .Cells(1).Row - 1
iCol = .Cells(1).Column - 1
End With
With oSht2.Range("C6:K17")
.Interior.Pattern = xlNone
arr2 = .Value
End With
For i = LBound(arr1) To UBound(arr1)
For j = LBound(arr1, 2) To UBound(arr1, 2)
If arr1(i, j) <> arr2(i, j) Then
oSht1.Cells(iRow + i, iCol + j).Interior.Color = vbYellow
oSht2.Cells(iRow + i, iCol + j).Interior.Color = vbYellow
End If
Next
Next
Application.ScreenUpdating = True
End Sub