excel vba统计无填充颜色单元 个数

1.K3:MO11为数据范围详细http://pan.baidu.com/s/1mhjo95Y文件
2024-11-01 02:18:18
推荐回答(2个)
回答(1):

方法如下:

1.统计A1:D10中无填充颜色的单元格个数:

2.Alt+F11,输入如下代码:

3.F5执行代码,结果如下:

回答(2):

Sub s()
    c = Array(3, 14, 33, 47, 5)
    For i = 11 To 353
        t = 0
        For j = 3 To 11
            If Cells(j, i).Interior.ColorIndex = xlNone Then
                t = t + 1
            Else
                Exit For
            End If
        Next
        Cells(1, i) = t
    Next
    [k1:mo1].Interior.ColorIndex = xlNone
    For i = 0 To 4
    t = 0
    For j = 11 To 353
    If Cells(1, j).Interior.ColorIndex = xlNone And Cells(1, j) > t Then
    t = Cells(1, j)
    End If
    Next
    For j = 11 To 353
    If Cells(1, j) = t Then
    Cells(1, j).Interior.ColorIndex = c(i)
    End If
    Next
    Next
End Sub