上下两行数据对比，数值不同的单元格填充颜色（已解决）

xiyi0519

各位大神帮忙看看，感谢。
        快速填充不同的单元格
        
要求：相邻的本次和上次D列到Z列的单元格数值进行对比，不一样的单元格填充颜色        
        
本表只列式了3组数据，实际数据有300组左右甚至更多，也就是600行        






本次与上次对比.rar (27.9 KB, 下载次数: 7)

2024-4-23 17:32 上传

点击文件名下载附件
原件

已解决的附件 本次与上次对比-已解.zip (30.83 KB, 下载次数: 4)

2024-4-24 09:20 上传

点击文件名下载附件
已解

以下为已解决的另一个代码

1. Sub test()
   
2. lsr = Cells(Rows.Count, 1).End(xlUp).Row - 1
   
3. For a = 9 To lsr Step 2
   
4.     For b = 4 To 26
   
5.         If Cells(a, b) - Cells(a + 1, b) <> 0 Then
   
6.             Union(Cells(a, b), Cells(a + 1, b)).Interior.ColorIndex = 3
   
7.         End If
   
8.     Next b
   
9. Next a
   
10. End Sub

复制代码

cidanji

NBCBA123

参与一下

1. Sub test()
   
2. lsr = Cells(Rows.Count, 1).End(xlUp).Row - 1
   
3. For a = 9 To lsr Step 2
   
4.     For b = 4 To 26
   
5.         If Cells(a, b) - Cells(a + 1, b) <> 0 Then
   
6.             Union(Cells(a, b), Cells(a + 1, b)).Interior.ColorIndex = 3
   
7.         End If
   
8.     Next b
   
9. Next a
   
10. End Sub

复制代码

LIUZHU

感觉这个例子可以用条件格式达到相同的效果

xiyi0519

LIUZHU 发表于 2024-4-23 18:30
感觉这个例子可以用条件格式达到相同的效果

没试成功，填充的是错误的。如果你设置好了，麻烦上传下文件。学习下。

LIUZHU

条件格式效果

LIUZHU

附件在此，请审核

xiyi0519

LIUZHU 发表于 2024-4-23 19:26
条件格式效果

数据1那列，0.1下面的单元格怎么没有填充颜色；数据8列0也没有填充只填充了1的单元格

LIUZHU

xiyi0519 发表于 2024-4-23 19:58
数据1那列，0.1下面的单元格怎么没有填充颜色；数据8列0也没有填充只填充了1的单元格

嗯，这个可以修改的