对比表内数据

马毅 · 发表于 2023-4-17 16:41

对比样表内

第3行和第4行，
（1）同列数据内容不相同的，该列2格均标红。
（2）如果第4行数据为空的，该列2格均不标红。
（3）第3行数据为空，第4行数据不为空，该列2格均标红。

第5行属于空行

第6行和第7行，按照上面的方式同样对比

第8行空行

依次类推，连续2行空行后，停止。

shiruiqiang · 发表于 2023-4-17 18:21

for x=3 to 最后，step3
if cells（x,1）<>cells(x+1,1) 或者cells（x,2）<>cells(x+1,2)，就
这样处理

马毅 · 发表于 2023-5-9 15:54

求帮忙

吴中泉 · 发表于 2023-5-9 19:57

马毅发表于 2023-5-9 15:54
求帮忙

请测试，代码在图中

吴中泉 · 发表于 2023-5-9 19:58

Sub Macro1()
For i = 3 To 65536 Step 3
If Cells(i, 2) <> Cells(i + 1, 2) Then
If Cells(i + 1, 2) <> Empty Then
Range(Cells(i, 2), Cells(i + 1, 2)) _
.Interior.Color = 230
End If
End If
Next
End Sub

复制代码

吴中泉 · 发表于 2023-5-9 20:48

吴中泉 · 发表于 2023-5-9 20:49

马毅发表于 2023-5-9 15:54
求帮忙

回复了两次都没有审核通过，再来一次

马毅 · 发表于 2023-5-17 11:21

本帖最后由马毅于 2023-5-17 11:56 编辑

吴中泉发表于 2023-5-9 20:49
回复了两次都没有审核通过，再来一次

我在这个表格调用这个宏，没有问题，从另外一个表格调用这个宏，显示“运行时错误，1004，应用程序定义或对象定义错误”
您看看怎么改？

Sub Macro1()
Sheets("审核结果").Range("b3:af1000").Interior.ColorIndex = False
For i = 3 To 65536 Step 3
For j = 2 To 50 Step 1
If Sheets("审核结果").Cells(i, j) <> Sheets("审核结果").Cells(i + 1, j) Then
      If Sheets("审核结果").Cells(i + 1, j) <> Empty Then
         Sheets("审核结果").Range(Cells(i, j), Sheets("审核结果").Cells(i + 1, j)) _
            .Interior.Color = 230
      End If
End If
Next
Next
End Sub

吴中泉 · 发表于 2023-5-17 12:06

yynrzwh · 发表于 2023-5-17 13:05

练习一下，请多指教

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

[求助] 对比表内数据

评分