Sub a()For Each rng In UsedRange If rng.Interior.ColorIndex = 22 Then i = i + 1NextMsgBox "共有" & i & "个单元格具有该颜色"End Sub
右键该工作表标签，查看代码，粘贴上面的代码。运行（F5）。
