在tableau里可以很轻易的做出下面的图表，但是相比之下，excel的应用更加广泛，于是我尝试用excel将其做出。
我大概倒腾了一个下午，如果只是简简单单的做个一次性的那还算简单，当你看完我这篇文章也就会了，耗费我时间的是怎样让其在筛选的时候可以动态变换。
先说说怎么做出柱状饼图组合图。我随机准备了一些数据。
第一步：制作组合图
第二步：制作饼图（每个月份制作一个饼图）。
第三步：调整纵坐标轴（此操作为了让饼图不超出图表区域）。
第四步：逐个将饼图复制黏贴为图片，再剪切图片黏贴到辅助系列的每个数据点上。
第五步：再制作一个饼图，将图例截图成图片放到图表里即可。
逐个黏贴，图表就操作完成了。
如果是制作可筛选的报表，那就需要额外增加进行一些操作。
首先需要将饼图逐个命名。比如1月饼图命名为1月，2月饼图命名为2月……
记住名称必须是横坐标那一列文字，图表命名为组合图，因为后面代码要用到。
然后我们再在当前sheet里放置代码。
最后组合框指定宏添加饼图。
代码需要修改的地方我做了备注，其余代码无需改动即可使用。这里需要说明的是，图表横坐标的排序需要和单元格中一致（无特殊设置，通常情况是一致的）。如有疑问，欢迎留言。
Sub 添加饼图()
i = 1
Set rg = Range("a2：a6") '横坐标所在位置
Set ch = ActiveSheet.ChartObjects("组合图") '图表名称
num = 2 '第几个系列改为添加饼图
ms = Range("a9").Value '设置纵坐标最大值
Application.ScreenUpdating = False
ch.Activate
ActiveChart.Axes(xlValue).MaximumScale = ms
For Each r In rg
ActiveSheet.ChartObjects(r).Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Range("a1").Select
ActiveSheet.Pictures.Paste.Select
Selection.Cut
ch.Activate
ActiveChart.FullSeriesCollection(num).Points(i).Select
Selection.Paste
Application.CutCopyMode = False
i = i + 1
Next
Application.ScreenUpdating = True
ch.Activate
End Sub
