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

Question

行统计填充颜色和无填充颜色单元个数
范围为K3:T11（可以修改为K3:MZ11等）
结果1在A列：统计填充颜色单元格个数
结果2在b列："无"统计填充颜色单元格个数

Answer 1

Sub s()
    Set rg = [k3:t11]
    n = rg.Row - 1
    For i = 1 To rg.Rows.Count
    a = 0: b = 0
    For j = 1 To rg.Columns.Count
    If rg.Cells(i, j).Interior.ColorIndex <> xlNone Then
    a = a + 1
    Else
    b = b + 1
    End If
    Next
    Cells(n + i, 1) = a
    Cells(n + i, 2) = b
    Next
End Sub