1700427998
1700427999
1700428000
1700428001
1700428002
图3-8 利用剪贴板窗格将条件格式粘贴为静态格式
1700428003
1700428004
①选中D11:D63区域，按Ctrl+C键复制。
1700428005
1700428006
②将鼠标定位到需要粘贴到的目标区域的第一个单元格，这里是I11。
1700428007
1700428008
③单击“剪贴板”功能组右下角的箭头，打开“剪贴板”任务窗格。
1700428009
1700428010
④选择最上面的刚才复制的项目右侧的下拉框，单击“粘贴”。
1700428011
1700428012
这时复制完成，I列显示的内容和格式与D列完全一样，但动态的条件格式已经被转换为静态的单元格格式，后面我们通过VBA可以读出其填充色代码。
1700428013
1700428014
一个奇怪的事情是，录制以上操作所产生的宏，却无法正确运行，导致不能采用宏自动化，不知是何原因。这个问题欢迎读者来信指教。
1700428015
1700428016
关于这一步，也可以采用另外一种借道Word的变通方法来实现：
1700428017
1700428018
①选中D11:D63区域，按Ctrl+C键复制。
1700428019
1700428020
②新建一个Word文件，按Ctrl+V键粘贴。
1700428021
1700428022
③然后再从Word中复制回来，粘贴到I11:I63区域。
1700428023
1700428024
这样也可以实现将条件格式转换为静态单元格格式的目的。并且这个过程可以使用VBA自动化，如图3-9所示。在范例文件中，我们已将此宏赋给一个按钮复制，故此步骤只需单击该按钮即可。
1700428025
1700428026
1700428027
1700428028
1700428029
图3-9 通过Word获得条件格式所产生的颜色
1700428030
1700428031
注意以上代码需要先在VBA工程窗口的菜单工具→引入窗口中勾选Microsoft Office Word的对象库之后才能运行。
1700428032
1700428033
4．为地图图形填色。
1700428034
1700428035
再把I列单元格的填充色复制到对应的地图图形就简单了，这与3.1节分档填色中的做法是一样的。
1700428036
1700428037
编写一小段宏，用I列的填充色去填充对应省份的地图图形。代码如图3-10所示，其实只有1行。
1700428038
1700428039
1700428040
1700428041
1700428042
图3-10 按单元格底色填充地图图形的宏代码
1700428043
1700428044
将这个宏指定给一个矩形框，作为一个填色按钮。单击按钮，各省地图图形即被填充为对应的颜色，与D列的填充色一致。一个条件格式的HeatMap已经生成，请检查并确认填色正确。
1700428045
1700428046
5．整合地图图形及图例，便于导出。
1700428047