看上图，以操作A2至A30这个区域为例，

1、点开发工具，

2、打开VB编辑器，

3、在画蓝色框区域内的任意位置，点右键---插入模块，

4、点击模块，

5、在右侧输入代码，

6、点击画红色圆圈的按钮执行代码。

Sub条件格式颜色转背景颜色()
DimiAsInteger
Fori=2To30'遍历第2行到第30行
cl=Range("A"&i).DisplayFormat.Interior.Color'提取Ai单元格被条件格式标注的颜色值
Range("A"&i).Interior.Color=cl'设置Ai单元格的背景颜色为该颜色值
Next
Range("A2:A30").FormatConditions.Delete'清除A2:A30区域的所有条件格式
EndSub