第一步，设置颜色

EXCEL中找两个方格，B2、D2，随机找个颜色赋给B2

选择颜色

改变后的颜色

第二步，录制宏

录制一个宏，内容是把颜色1(B2)用格式刷刷给颜色2(D2)

点击录制

把颜色1(B2)用格式刷刷给颜色2(D2)

第三步，查看宏代码

代码如下

*******************代码↓********************

Sub Macro1()

Macro1 Macro

Range(B2).Select

Application.CutCopyMode = False

Selection.Copy

Range(D2).Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

End Sub

*******************代码↑********************

但是代码中并未出现颜色，这就要用到调试了

第四步，调试

在代码区按F8，进入单步调试

待黄色箭头走到

Range(B2).Select

这一句的下一行，在监视窗口下右击-添加监视

在弹出的对话框，输入Range(B2)

第五步，找到颜色参数

找到颜色参数Range(B2).Interior.Color，在监视窗口这行的数值就是颜色值，记录下颜色值：5276238

第六步，根据需要设置颜色

这一步就可以根据需要设置颜色了，比如我要将F2方格设置成和B2颜色一样，就可以写一个SUB块，如下

Sub Macro2()

Range(F2).Interior.Color = 5276238

End Sub

执行，会发现F2方格变得和B2颜色一样了

方法不是最优，但是着实有效。