请教各位老师，比较两个表格的代码看不出来有啥毛病啊

flowermeng · 发表于 2020-1-16 16:15

本帖最后由 flowermeng 于 2020-1-17 14:03 编辑

各位老师，VBA小白一个。东抄西抄了一个比较两个格式相同工作表的代码（只比较代码里标注的部分区域，也就是原表里的蓝色区域）。但是好奇怪，有的差别可以按要求标红。但有的数字完全相同也标红（只有个别的），咋也看不出原因啊。请帮帮我，真的郁闷。顺祝新年快乐！

zhangmi · 发表于 2020-1-16 17:41

数字显示和实际数字不相等？加个round就行了

flowermeng · 发表于 2020-1-16 17:49

相等的，求各位大神解答下

flowermeng · 发表于 2020-1-16 22:30

给自己顶一下，求解答

yes363001640 · 发表于 2020-1-17 09:41

你代码不对啊，你是要对比合计还是什么？

flowermeng · 发表于 2020-1-17 14:01

只要比代码里我选定的部分，因为有些数据是软件里自动生成的。代码如下：但就是有些相同的也被选标色了。求大神解答。
Sub 比对裁决01表()
Dim rng As Range
Dim rng1 As Range
Set rng = Worksheets("原表").Range("c7:d13,c33:d34,h7:i30,m7:n14")
For Each rng1 In rng
If rng1.Value <> Worksheets("核对裁决01表").Cells(rng1.Row, rng1.Column).Value Then
Worksheets("核对裁决01表").Cells(rng1.Row, rng1.Column).Interior.Color = RGB(255, 0, 0)
End If
Next
End Sub

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

[求助] 请教各位老师，比较两个表格的代码看不出来有啥毛病啊