Excel工作表形状统计溢出错误及批量删除问题求助

一、先搞定统计时的溢出错误 #

你遇到的overflow（溢出）问题，根源在于用了Integer类型的变量——这个类型的数值范围只有-32768到32767，当工作表里的形状数量超过32767时，就会直接触发溢出报错。

只需要把变量类型换成Long（它的数值范围能到922亿多，完全够应付大量形状），修改后的统计代码如下：

Sub tst()
 Dim i As Long ' 把Integer换成Long类型
 i = Sheets("DB_AL").Shapes.Count
 MsgBox "工作表DB_AL中的形状数量为：" & i
End Sub

二、批量删除形状的完整代码 #

你之前的删除代码没写完，还要注意：直接用For Each循环删除形状会出问题——每删除一个形状，Shapes集合的元素就会减少，循环会跳过某些项甚至报错。给你两种靠谱的实现方式：

方法1：一次性删除所有形状（最简洁高效）

如果不需要保留任何形状，直接用这一行代码就能快速搞定：

Sub delAllShapes()
 Sheets("DB_AL").Shapes.Delete
End Sub

方法2：倒序遍历删除（适合后续加筛选条件的场景）

如果之后需要按条件选择性删除形状，倒序遍历更安全，不会因为集合元素变化导致循环异常：

Sub delShapes()
 Dim i As Long
 ' 从最后一个形状倒序往前删除
 For i = Sheets("DB_AL").Shapes.Count To 1 Step -1
     Sheets("DB_AL").Shapes(i).Delete
 Next i
 MsgBox "所有形状已删除完成"
End Sub

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