告别繁琐代码!三步打造你的专属Excel热力数据地图

使用Excel VBA制作热力数据地图，本质上是将矢量地图的每个区域与你准备好的数据绑定，然后用VBA代码控制每个区域根据数据值显示不同深浅的颜色。

核心步骤可以分为：准备地图素材与数据 → 设置颜色映射规则 → 编写并运行VBA代码着色。

第一步：准备地图素材与数据表

这一步是基础，也是最需要耐心的地方，但做好后可以反复使用。

1. 导入矢量地图：从网上搜索或下载中国省份（或你需要的区域）的矢量地图，格式通常为 .wmf 或 .eps。通过“插入” → “图片”将其放入工作表中。

2. 拆解为独立图形：选中导入的图片，右键点击并选择 “编辑图片”（或“组合” → “取消组合”），在弹出的提示中点击“是”。此时，一个完整的地图就被拆解成了一个个独立的省份图形。

3. 逐一精准命名：这是整个流程中最关键的环节。依次单击每个省份图形，在工作表左上角的名称框（即显示单元格地址的那个小框）中，将其名称修改为对应的省份名称，如“广东”、“江苏”等。

   特别注意：名称框中输入的名称，必须与你数据表中的省份名称一字不差（包括空格和符号），否则VBA代码将找不到对应的图形。

4. 准备数据表：在工作表的某个区域中，建立两列核心数据：一列是省份名称（与上一步命名完全一致），另一列是对应的指标数值（如销售额、人口等）。

第二步：设定颜色映射规则

这一步是让地图“热”起来的关键，你需要决定什么样的数值对应什么样的颜色。

1. 划分数值区间：根据你的数据范围，将数值划分为若干个区间。例如，如果你的数据在0到100之间，可以划分为0-20、20-40、40-60、60-80、80-100五个等级。

2. 指定区间颜色：为每个区间指定一种颜色，原则是数值越高颜色越深（或越暖）。例如，从浅黄到深红，或从浅蓝到深蓝。将这组对照关系放在工作表的某个区域中，方便后续引用。

3. 为每个省份匹配颜色：在数据表旁边新增一列“颜色值”或“颜色索引”。使用 VLOOKUP 或 IF 函数，根据省份的指标数值判断它属于哪个区间，并返回对应的颜色代码（可以用RGB值，也可以直接引用单元格的颜色）。

第三步：编写并执行VBA代码

长按

关注