最后C3那一格数值就是你要的10进制颜色代码 录制一段宏, 右键表格名称,查看代码,双击模块,把代码全选,覆盖成下面代码 Sub 设定颜色() With Selection .Interior.Color = .Value End With End Sub
先在单元格上输入C3那一格数值,选中,再运行宏,再用格式刷刷过去,或者把上面的.Interior.Color = .Value改成.Interior.Color = c3的数值 ====================================== 方法怎么来的看下面 1.下接填充颜色,看到灰色,有灰度-40% 用下面的宏得到颜色的10进制代码,如9868950 Sub 得到颜色代码() With Selection .Value = .Interior.Color End With End Sub