1、本教程以下图数据（包含公式）为例，使用黄色填充包含公式的单元格。
3、绘制按钮后会自动弹出一个指定宏窗口，选择“新建”按钮。
5、在Sub 按钮1_Click()和End Sub之间输入如下代码：Dim rng 钽吟篑瑜As RangeSet rng = ActiveS茑霁酌绡heet.Range("A1").CurrentRegion For Each rng In rng.Cells If rng.HasFormula Then ’若单元格包含公式，则执行Then rng.Select With Selection.Interior ‘设置包含公式单元格的属性 .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next
