[已解决]当重复前面4个数字了，就填充颜色

123456le

当重复前面4个数字了，就填充颜色，见附件。

最佳答案

月排行榜 / 总排行榜

qh8600

2015-1-1 11:22

求助x.rar (24.42 KB, 下载次数: 9)

2015-1-1 11:22 上传

点击文件名下载附件
楼主看看是不是这效果

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, i, j, x, a, b
   
3.     a = Cells(Rows.Count, 2).End(3).Row
   
4.     b = Cells(1000, Columns.Count).End(1).Column
   
5.     ar = Range(Cells(1, 2), Cells(a, b))
   
6.     For i = UBound(ar) To 2 Step -1
   
7.         For j = 1 To UBound(ar, 2)
   
8.             n = 0
   
9.             For x = 1 To 4
   
10.                 If i - x = 0 Then Exit For
    
11.                 If ar(i, j) = ar(i - x, j) And ar(i, j) <> "" Then n = n + 1
    
12.             Next
    
13.             If n > 0 Then Cells(i, j + 1).Interior.ColorIndex = 3
    
14.         Next
    
15.     Next
    
16. End Sub

复制代码

附件楼下

qh8600

求助x.rar (24.42 KB, 下载次数: 9)

2015-1-1 11:22 上传

点击文件名下载附件
楼主看看是不是这效果

吴建豪

抱歉，该附件无法读取咋回事？？？？？’