新人发帖求助（在线等）

要沉吗

1、选择这些有颜色的单元格区域；
2、按住ALT键不放手，依次按F11键、i 键、m 键；（会出现VB窗口）
3、将下面的代码复制到模块中；
Sub aaa()
Dim n As Long
Dim c As Range
For Each c In Selection
If c.Interior.ColorIndex = 4 Then n = n + 1
Next
MsgBox 100 * n / Selection.Cells.Count & "%"
End Sub
4、将光标放到代码中的任意一行；单击F5键，就会出现统计结果。关闭VB窗口。