用VBA改写成数组统计颜色

laoau138

用VBA改写成数组统计颜色

bajifeng

1. Sub b()    'bajifeng
   
2.     Dim ar(8), br(8), i%, c As Range
   
3.     For i = 11 To 19
   
4.         ar(i - 11) = Cells(i, 1).Interior.ColorIndex
   
5.     Next
   
6.     For Each c In [a2:e7]
   
7.         For i = 0 To 8
   
8.             If c.Interior.ColorIndex = ar(i) Then br(i) = br(i) + 1: Exit For
   
9.         Next
   
10.     Next
    
11.     [b11].Resize(9, 1) = Application.Transpose(br)
    
12. End Sub

复制代码