Excel VBA如何删除同名形状仅保留一个实例？

通用解决方案（处理所有重复名称的形状） #

如果需要批量处理工作表中所有名称重复的形状，每个名称仅保留第一个出现的实例，可以用字典跟踪已处理的名称，同时从后往前遍历形状集合（避免删除形状导致索引混乱）：

Sub RemoveDuplicateShapes()
    Dim ws As Worksheet
    Dim i As Integer
    Dim shp As Shape
    Dim shapeNames As Object
    
    Set ws = ThisWorkbook.ActiveSheet
    Set shapeNames = CreateObject("Scripting.Dictionary")
    
    ' 从后往前遍历，防止删除形状后集合索引错位
    For i = ws.Shapes.Count To 1 Step -1
        Set shp = ws.Shapes(i)
        If shapeNames.Exists(shp.Name) Then
            shp.Delete ' 已存在同名，删除当前形状
        Else
            shapeNames.Add shp.Name, 1 ' 首次出现，记录名称
        End If
    Next i
End Sub

针对特定名称的解决方案（比如仅处理CheckBox1） #

如果只需要删除指定名称（如CheckBox1）的重复实例，仅保留第一个，可以用布尔变量控制保留逻辑：

Sub RemoveDuplicateCheckBox1()
    Dim ws As Worksheet
    Dim i As Integer
    Dim shp As Shape
    Dim keepFirstInstance As Boolean
    
    Set ws = ThisWorkbook.ActiveSheet
    keepFirstInstance = True ' 标记是否保留第一个匹配的形状
    
    For i = ws.Shapes.Count To 1 Step -1
        Set shp = ws.Shapes(i)
        If shp.Name = "CheckBox1" Then
            If keepFirstInstance Then
                keepFirstInstance = False ' 第一个已保留，后续实例全部删除
            Else
                shp.Delete
            End If
        End If
    Next i
End Sub

关键说明 #

• Shapes.Range(Array("名称"))仅会返回第一个匹配该名称的形状，所以无法直接用它删除所有同名实例
• 从后往前遍历形状集合是必要的：如果从前往后删，删除某个形状后，后续形状的索引会前移，导致跳过部分形状
• 字典（Scripting.Dictionary）是高效跟踪已出现名称的工具，确保每个名称只保留一次

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