[已解决]颜色统计

精灵学vba

如图在一列中，同时两个连起来的单元格涂红色的为一对，现在数的话是2对，如果有很多对呢怎么统计？

只求多个红色相同连在一起的单元格的数量，单个的或者颜色不一样的数量就不算进来OK？

现在统计为2个，用VBA怎样写？

最佳答案

月排行榜 / 总排行榜

dsmch

2015-3-4 05:40

1. Sub Macro1()
   
2. Dim i&, j&, n&, s&, s2&
   
3. n = Range("a65536").End(xlUp).Row
   
4. For i = 1 To n
   
5.     If Cells(i, 1).Interior.ColorIndex = 3 Then
   
6.         s = 1
   
7.         For j = i + 1 To n + 1
   
8.             If Cells(j, 1).Interior.ColorIndex = 3 Then
   
9.                 s = s + 1
   
10.             Else
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.         If s > 1 Then s2 = s2 + 1
    
15.         i = j
    
16.     End If
    
17. Next
    
18. MsgBox s2
    
19. End Sub

复制代码

跳转到最佳答案楼层

雪舞子

没有附件，大致代码如下：

1. Sub test()
   
2.     Dim i%, x%
   
3.     For i = 4 To 15
   
4.         If Cells(i - 1, 2).Interior.ColorIndex <> 3 And Cells(i, 2).Interior.ColorIndex = 3 And Cells(i + 1, 2).Interior.ColorIndex = 3 Then
   
5.             x = x + 1
   
6.         End If
   
7.     Next
   
8.     MsgBox x
   
9. End Sub

复制代码

dsmch

1. Sub Macro1()
   
2. Dim i&, j&, n&, s&, s2&
   
3. n = Range("a65536").End(xlUp).Row
   
4. For i = 1 To n
   
5.     If Cells(i, 1).Interior.ColorIndex = 3 Then
   
6.         s = 1
   
7.         For j = i + 1 To n + 1
   
8.             If Cells(j, 1).Interior.ColorIndex = 3 Then
   
9.                 s = s + 1
   
10.             Else
    
11.                 Exit For
    
12.             End If
    
13.         Next
    
14.         If s > 1 Then s2 = s2 + 1
    
15.         i = j
    
16.     End If
    
17. Next
    
18. MsgBox s2
    
19. End Sub

复制代码

dsmch

………………