归类填充颜色，不一样的填充不一样的底纹

roych

写得有点啰嗦，有时间再优化呗。

1. Sub test()
   
2.     Dim i As Long, j As Long
   
3.     Dim k As Range, m As Range
   
4.     '预填充
   
5.     Set k = Sheet1.Range("A3")
   
6.     k.Interior.Color = vbYellow
   
7.     For j = 0 To 1
   
8.         For i = 1 To Sheet1.Range("A2").End(xlDown).Row - 2
   
9.             Set m = Sheet1.Range("A2").Offset(i, j)
   
10.             '值相同则填充上一个单元格的颜色【即黄色】
    
11.             If m.Value = k.Value Then
    
12.                 m.Interior.Color = k.Interior.Color
    
13.             Else
    
14.                '如果单元格不同，则预填充绿色
    
15.                 m.Interior.Color = RGB(0, 192, 0)
    
16.                '如果跟上一个单元格颜色一致，则改为黄色
    
17.                 If m.Interior.Color = k.Interior.Color Then
    
18.                     m.Interior.Color = vbYellow
    
19.                 End If
    
20.             End If
    
21.                 Set k = m
    
22.         Next
    
23.     Next
    
24. End Sub

复制代码

详见附件。

roych

zhuangyongjin 发表于 2016-1-6 17:15
谢谢您
代码测试了下，一直运行过程，颜色会一直改变

附件已更新，请自行下载。

roych

zhuangyongjin 发表于 2016-1-8 07:40
谢谢您，您的方法可行
不过，里面有一句代码我不理解                m.Interior.Color = RGB(0, 192, 0 ...

请留意 set k=m

roych

zhuangyongjin 发表于 2016-1-9 07:36
谢谢你，现在明白了。
现在这个表格，可以弄成黄色和绿色两种颜色，如果我想要弄成黄色、绿色、蓝色三种 ...

类似的，只是需要多定义一些变量罢了。定义数组可能会方便一些。