excel vba统计同一行的填充单元格个数，求高速度代码（求助博士）

excel vba统计同一行的填充单元格个数，求高速度代码（求助博士）

Option Explicit
Sub ygb()
    Dim n, i, j, x
    n = Cells(Cells.Rows.Count, 4).End(xlUp).Row
    For i = n To n - 13 Step -1
        x = 0
        For j = 4 To 7
            If Cells(i, j).Interior.Color = 255 Then x = x + 1
        Next j
        Cells(i, 1) = x
    Next i
End Sub追问
追答你的数据不是提问的样子，所以会出错，请看我的第4行代码：
n = Cells(Cells.Rows.Count, 4).End(xlUp).Row

此行表示获取D列最后一行有数据的行号，里面的4表示D列，如果你的数据在其它列（我估计你是11列，因为你修改j的循环）需要修改。

Function Count背景色(colAs Range, countrange As Range) As Integer
   Dim icell As Range
   Application.Volatile
   For Each icell In countrange
       If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
            Count背景色= Count背景色+ 1
       End If
   Next icell
End Function
 
Function Count字体色(colAs Range, countrange As Range) As Integer
   Dim icell As Range
   Application.Volatile
   For Each icell In countrange
       If icell.Font.ColorIndex = col.Font.ColorIndex Then
            Count字体色= Count字体色+ 1
       End If
   Next icell
End Function
 一个是背景色的，一个字体色的，