vba 指定列后插入列_VBA图表操作

最新推荐文章于 2024-05-05 10:23:23 发布

weixin_39900437

最新推荐文章于 2024-05-05 10:23:23 发布

阅读量963

点赞数

文章标签： vba 指定列后插入列

本文链接：https://blog.csdn.net/weixin_39900437/article/details/111334628

版权

本文介绍了如何使用VBA在指定列后插入列，并动态更新图表数据源，避免手动调整的繁琐。通过VBA代码设置，结合End(xlToLeft)函数寻找最大列，实现图表与数据源的自动同步。最后，展示了如何在工作表中添加按钮并绑定宏以实现一键操作。

摘要由CSDN通过智能技术生成

Part 1：应用场景介绍

做好了一张图表，下次有数据更新的时候，但是数据量和原来的不一样
当然通过手动可以重新选择数据源，但是如果是频繁的，也很烦
今天介绍点不一样的，通过VBA来实现

最终效果

Part 2：代码

Sub 图表1()  Set sht = ThisWorkbook.Worksheets("示例")  Set chart1 = sht.ChartObjects("图表 1")  Set rng1 = sht.Range("A2:G3") chart1.Chart.SetSourceData Source:=rng1End SubSub 图表2()  Set sht = ThisWorkbook.Worksheets("示例")  Set chart1 = sht.ChartObjects("图表 1")  Set rng1 = sht.