VBA删除形状问题：需保留前缀为Cb的ComboBox，删除带宏的形状

问题根源 #

原代码存在两个关键错误：

• VBA中无法直接用<> "Cb*"这种方式匹配通配符，必须使用Like运算符来识别以Cb开头的名称
• 正向遍历Shapes集合时直接删除元素，会导致集合索引混乱，出现遍历跳过或报错的情况

修正后的代码 #

Sub Delete_Uneeded_Shapes()
    Dim btn As Shape
    Dim i As Integer
    ' 反向遍历Shapes集合，避免删除元素引发的遍历异常
    For i = ActiveSheet.Shapes.Count To 1 Step -1
        Set btn = ActiveSheet.Shapes(i)
        ' 仅保留名称以Cb开头的ComboBox，其余形状全部删除
        If Not (btn.Type = msoOLEControlObject And _
                TypeName(btn.OLEFormat.Object) = "ComboBox" And _
                btn.Name Like "Cb*") Then
            btn.Delete
        End If
    Next i
End Sub

代码说明 #

• 反向遍历：从形状总数倒序遍历到1，解决正向删除元素时集合结构变化导致的遍历问题
• 精确类型判断：先确认是OLE控件，再验证为ComboBox类型，避免误删同名的非控件形状
• 通配符匹配：用Like "Cb*"准确筛选出名称以Cb开头的目标控件

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