如何用VBA重置Excel图表计数？是否有更优方案解决编号递增问题

核心原因说明 #

Excel 嵌入图表的默认命名Chart N对应的编号是全局自增属性，删除已有图表不会重置该计数，强行修改内置计数需要操作Excel底层对象，稳定性极差，不建议尝试。

推荐最优解决方案 #

完全抛弃依赖Excel默认生成的Chart N命名，从生成环节固定图表名称，从根源解决编号漂移问题：

1. 修改你负责复制生成14个图表的第一个宏，每复制完一个图表，立刻给它设置固定自定义名称，示例代码如下：

' 复制完对应原逻辑的Chart 2图表后执行
Sheets("Charts").ChartObjects(Sheets("Charts").ChartObjects.Count).Name = "固定_Chart2"
' 其他13个图表同理，按你的业务逻辑设置对应固定名称即可，也可以用语义化名称比如"业务_趋势对比图"

2. 调整现有删除宏的判断逻辑，把所有Chart X替换成你设置的固定名称即可，完全不受自动编号影响。

额外优化建议 #

现有删除逻辑未做图表存在性判断，一旦找不到对应图表会直接抛错，可新增一个简单的判断函数规避这个问题：

Function ChartExists(chartName As String) As Boolean
    Dim tmpChart As ChartObject
    On Error Resume Next
    Set tmpChart = Sheets("Charts").ChartObjects(chartName)
    On Error GoTo 0
    ChartExists = Not tmpChart Is Nothing
End Function

修改删除逻辑如下：

' 示例：原删除Chart 2的逻辑
If q < r And ChartExists("固定_Chart2") Then
    Sheets("Charts").ChartObjects("固定_Chart2").Delete
End If

临时重置计数方案（不推荐） #

如果不想改动现有生成逻辑，可在每次重新生成图表前，将Charts工作表整体删除后新建同名工作表，此时新建图表的编号会从1重新开始计数。但该方案容错率低，容易误删工作表内其他内容，仅适合临时调试使用。

内容的提问来源于stack exchange，提问作者Josh