选择动态范围(行)并计算彩色单元格- VBA

Sub CalculateColoredCells()
    Dim lastRow As Long
    Dim rng As Range
    Dim coloredCount As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 设置范围为第一列的所有行
    Set rng = Range("A1:A" & lastRow)
    
    ' 初始化彩色单元格计数器
    coloredCount = 0
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 检查单元格的背景颜色是否为彩色
        If cell.Interior.Color <> RGB(255, 255, 255) Then ' 这里假设彩色单元格的背景颜色不是纯白色
            ' 计算彩色单元格的数量
            coloredCount = coloredCount + 1
        End If
    Next cell
    
    ' 输出彩色单元格的数量
    MsgBox "彩色单元格的数量为：" & coloredCount
End Sub