VBA 代码

哈哈900

求助：

将EXCEL 文件中的C列和M列对比；E列和Q列对比；D列和N列对；G列和P列对比， 将不同的数据用颜色标记。
如何用VBA 实现？
谢谢 了。

vbee

'''C列和M列对比；E列和O列对比；
'''D列和N列对；G列和P列对比，
'''将不同的数据用颜色标记

Sub 数据对比()

r = Range("C99999").End(3).Row
Range("M3:Q" & r).Interior.Color = xlNone
For i = 3 To r
  If Cells(i, "C") <> Cells(i, "M") Then Cells(i, "M").Interior.Color = vbYellow
  If Cells(i, "E") <> Cells(i, "O") Then Cells(i, "O").Interior.Color = vbYellow
  If Cells(i, "D") <> Cells(i, "N") Then Cells(i, "N").Interior.Color = vbYellow
  If Cells(i, "G") <> Cells(i, "P") Then Cells(i, "P").Interior.Color = vbYellow
Next i

End Sub

蓝桥玄霜

对比的例子：

ykcbf1100

是这效果吧。

smsn

条件格式内有个重复值

tanglf188

看看是不是你需要的，是的话就上传附件了。

哈哈900

tanglf188 发表于 2022-11-18 13:31
看看是不是你需要的，是的话就上传附件了。

是的。是的。
麻烦给我下代码。万分感谢。

tanglf188

又稍微改了一下，不客气啊。