2021年国庆已经结束 ， 全国19个省份公布了国庆假期旅游情况 。由于疫情的原因，乡村游、周边游成了大多数人的选择 。
在目前已公布的省份数据中四川、江苏、江西占居前三 。经文化和旅游部数据中心测算，10月1日至7日，出游人次按可比口径恢复至疫前同期的70.1% 。
已公布19个省份数据如下：
【Excel地图展示21年国庆旅游热力图】对于地理不好的同学，表格就不够直观，如何让数据表现形式更加直观更加有视觉冲击力呢？中国地图热力图是一个很好的选择！
地图可以直观的告诉我们在“大公鸡“的什么位置 ， 出游人次最多，什么位置，出游人次最少 。
这里将操作中使用到的代码公布出来 ， 有兴趣深入学习的同学可以咨询我 。
Sub 热力地图()Application.ScreenUpdating = FalseFor i = 2 To 20 '2和20为数据源的起始和结束行Range("省份").Value = https://www.itzhengshu.com/excel/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 = msoAnchorMiddleEnd WithWith Selection.ShapeRange.TextFrame2.TextRange.Font.NameComplexScript = "微软雅黑".NameFarEast = "微软雅黑".Name = "微软雅黑"End WithWith Selection.ShapeRange.TextFrame2.TextRange.Font.Fill.Visible = msoTrue.ForeColor.RGB = RGB(0, 0, 0).Transparency = 0.SolidEnd WithSelection.ShapeRange.TextFrame2.TextRange.Font.Size = 10Next i[a1].SelectApplication.ScreenUpdating = TrueMsgBox "热力图制作完成"End Sub欢迎点击关注 ， 后续会有更多精彩内容！