如何根据E列，对A-G列进行颜色标注？

lhj323323

老师：
需要标注的数据，已按E列进行了排序
如何根据E列，对A-G列进行颜色标注？
上传的附件中，有手工作的效果图，先谢谢老师了
求助.rar (6.43 KB, 下载次数: 10)

2020-7-10 23:05 上传

点击文件名下载附件

金樽空对月

1. Sub mycolor()
   
2. Dim x, y, z
   
3. For x = Range("a30000").End(3).Row To 2 Step -1
   
4.   If Cells(x, 5) = Cells(x - 1, 5) Then
   
5.       y = y + 1
   
6.   Else
   
7.       z = z + 1
   
8.       If z Mod 2 <> 0 Then
   
9.          Range(Cells(x, 1), Cells(x + y, 7)).Interior.ColorIndex = 8
   
10.       End If
    
11.       y = 0
    
12.   End If
    
13. Next
    
14. End Sub

复制代码

lhj323323

金樽空对月 发表于 2020-7-13 18:00

谢谢老师帮助，问题解决了