[已解决]用代码标色的问题

李全有

附件
标色附件.zip (278.87 KB, 下载次数: 3)

2015-5-2 12:56 上传

点击文件名下载附件

谢谢！

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-2 14:08

标色附件.rar (44.05 KB, 下载次数: 7)

2015-5-2 14:07 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2. Dim a, j, b, i, s
   
3.     a = Cells(1, Columns.Count).End(1).Column
   
4.     For j = 2 To a Step 4
   
5.         b = Cells(Rows.Count, j).End(3).Row
   
6.         For i = 1 To b
   
7.             If Cells(i, j) = 0 Then x = Cells(i, j + 1)
   
8.         Next
   
9.         For i = 1 To b
   
10.             If Cells(i, j + 1) = x Then
    
11.                 If IsEmpty(s) Then
    
12.                     Set s = Cells(i, j + 1)
    
13.                 Else
    
14.                     Set s = Union(s, Cells(i, j + 1))
    
15.                 End If
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     Cells.Interior.ColorIndex = xlNone
    
20.     s.Interior.ColorIndex = 6
    
21. End Sub
    

复制代码

附件楼下

qh8600

标色附件.rar (44.05 KB, 下载次数: 7)

2015-5-2 14:07 上传

点击文件名下载附件
楼主试试