计算有背景颜色的单元格个数

     提问：如何求出B列有背景颜色的单元格个数。

     回答：只需要循环B列的背景颜色即可。Range("B" & i).Interior.Color<>xlNone

  作者：瓜瓜豆豆-Office中国

  计算单元格背景颜色个数效果图

  Excel计算单元格背景颜色个数操作动画

 Excel计算单元格背景颜色个数VBA代码：               

        Sub 按钮1_Click()        

            Dim a As Integer

            Dim i As Long

            a = 0

            For i = 1 To 9999

                If Range("B" & i).Interior.ColorIndex <> xlNone Then

                    a = a + 1

                End If

            Next i

            Range("D9").Value = a

        End Sub