在上篇数据分析应用案例——年终销售总结分析1提到了散点四象图这个有利的可视化图表，先给大家展现下效果图：
散点四象图相对于普通四象图和散点图，难点主要在坐标轴交叉点的确定，一般来说交叉点是要求横纵轴各自的平均点，还有就是有些低版本excel或者WPS的数据标签不能引用单元格，所以我自己用VBA把这两个事做好了。关键代码如下：
'设置主坐标轴横坐标交叉的坐标轴值
xva = Worksheets("sheet1").Cells(1, 6).Value
yva = Worksheets("sheet1").Cells(2, 6).Value
chart1.Chart.Axes(xlValue).CrossesAt = yva
chart1.Chart.Axes(xlCategory).CrossesAt = xva
'打数据标签
For i = 2 To t:
chart1.Chart.SeriesCollection(1).Points(i - 1).DataLabel.Text = ThisWorkbook.Worksheets("sheet1").Cells(i, 1)
Next i
码字不易，不求大家赞赏，只求大家“点赞+关注”，如果觉得我写的可以，在你微信中点亮我公众号，在朋友圈分享下我的文章就更好了，你们的支持是我写下去的动力！
今天就说到这里，浏览更多文章可以关注我的微信公众号“行思知识工坊”，扫描下图二维码关注吧！
