[已解决]根据指定列判断重复项，将正行单元格上色的问题？

xm2012

上色.rar (11.07 KB, 下载次数: 7)

2014-12-2 16:39 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-2 20:22

………………

跳转到最佳答案楼层

爱疯

http://www.excelpx.com/thread-317644-1-1.html
可试这个

dsmch

1. Sub Macro1()
   
2. Dim i&, n&, s&
   
3. ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
   
4. n = 3
   
5. For i = 4 To Range("b65536").End(xlUp).Row + 1
   
6.     If Cells(i, "j") <> Cells(i - 1, "j") Then
   
7.         s = s + 1
   
8.         If s Mod 2 Then s2 = 22 Else s2 = 36
   
9.         Cells(n, 2).Resize(i - n, 15).Interior.ColorIndex = s2
   
10.         n = i
    
11.     End If
    
12. Next
    
13. End Sub

复制代码

dsmch

………………