教程 | 用7行VBA代码制作Excel热力地图

数据可视化是数据分析人员的必备技能，而传统的数据可视化平台建设成本高，周期长，灵活性不足，如果能够掌握Excel的相关技能就可以很轻松的实现，效果绝不输给专业的图表制作工具，其实看似简单的Excel也完全担当起“专业”二字。

场景描述

假如有这样一种场景：对比全国各省的高考录取人数。

一种方法是单纯的数字罗列，如下图：

效果中规中矩，并不能让人眼前一亮，在汇报工作的时候并不能加分，如果是下面这种，那效果会大不一样。

实现逻辑

想实现上面的效果，单纯地用Excel函数是胜任不了的，需要VBA编码来配合，7行代码即可搞定，首先需要做一些准备工作：

1、准备一份中国地图的矢量图，基本单元就是各省份边界图，然后拼凑成中国地图，每个省份就是一个矢量对象。

2、以省份名称为每个矢量对象进行命名。（选中后直接在左上角命名即可）

3、制作颜色标准表，用于作为涂色的依据。将每种颜色也设置为对象进行命名。

4、制作中间表将省市数据通过vlookup函数与颜色关联起来，接下来的VBA编程主要是基于中间表进行的。

VBA编程

上面的准备工作做好以后，现在是万事俱备只欠东风了。7行代码（不包括注释）解决问题。

先插入表单控件，用于人机交互的入口，也可以使用activeX控件添加按钮，二者的主要差别是前者是通过关联宏实现，后者是通过点击事件实现，效果是一样的，根据个人习惯选择即可。

7行核心代码终于闪亮登场了。

效果展示

 

写在最后

看着是不是很简单，重点是实现的思路，如果你有更简单的方法可以留言。

如果需要源文件，关注公众号URItker，“点赞”，“转发”和“在看”后，联系索取。