2021年国庆已经结束，全国19个省份公布了国庆假期旅游情况。由于疫情的原因，乡村游、周边游成了大多数人的选择。
在目前已公布的省份数据中四川、江苏、江西占居前三。经文化和旅游部数据中心测算，10月1日至7日，出游人次按可比口径恢复至疫前同期的70.1%。
已公布19个省份数据如下：
对于地理不好的同学，表格就不够直观，如何让数据表现形式更加直观更加有视觉冲击力呢？中国地图热力图是一个很好的选择！
地图可以直观的告诉我们在“大公鸡“的什么位置，出游人次最多，什么位置，出游人次最少。
这里将操作中使用到的代码公布出来，有兴趣深入学习的同学可以咨询我。
Sub 热力地图()
Application.ScreenUpdating = False
For i = 2 To 20 '2和20为数据源的起始和结束行
Range("省份").Value = Range("热力图!a" & i).Value
'将A列的省份填入到E9单元格
ActiveSheet.Shapes(Range("省份").Value).Select
'选中当前省份所对应的地图
Selection.ShapeRange.Fill.ForeColor.RGB = Range(Range("颜色").Value).Interior.Color
'将选中的图形填充E11单元格指向的颜色
'以下为填充标签代码
With Selection.ShapeRange.TextFrame2
.TextRange.Characters.Text = Range("标签").Value
.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.VerticalAnchor = msoAnchorMiddle
End With
With Selection.ShapeRange.TextFrame2.TextRange.Font
.NameComplexScript = "微软雅黑"
.NameFarEast = "微软雅黑"
.Name = "微软雅黑"
End With
With Selection.ShapeRange.TextFrame2.TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 0
.Solid
End With
Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 10
Next i
[a1].Select
Application.ScreenUpdating = True
MsgBox "热力图制作完成"
End Sub
欢迎点击关注，后续会有更多精彩内容！
