引用 @Alt+F11→复制粘贴以下代码→保存为(.xlsm)格式Sub 热力地图()
For i = 2 To 35 '2和35为数据源的起始和结束行
Range("省市").Value = Range("Sheet1!a" & i).Value
'将A列的省份填入到M8单元格
ActiveSheet.Shapes(Range("省市").Value).Select
'选中当前省份所对应的地图
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("颜色").Value).Interior.Color
'将选中的图形填充E11单元格指向的颜色
Next i
End Sub