看上图,以操作A2至A30这个区域为例,
1、点开发工具,
2、打开VB编辑器,
3、在画蓝色框区域内的任意位置,点右键---插入模块,
4、点击模块,
5、在右侧输入代码,
6、点击画红色圆圈的按钮执行代码。
Sub 条件格式颜色转背景颜色()
Dim i As Integer
For i = 2 To 30 '遍历第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区域的所有条件格式
End Sub