Excel通过VBA编程添加和删除ComboBox（组合框）问题求助

前提说明 #

你当前添加的是表单控件类型的组合框（xlDropDown），删除失败通常是命名未生效、定位条件匹配错误两个原因导致，以下提供两种可行的删除方案：

方案1：按自定义名称删除 #

第一步：修改添加逻辑，确保命名生效 #

取消你原有添加代码中.Name行的注释，确保控件添加时就被赋予唯一标识：

Set curCombo = Worksheets("Nodes").Shapes.AddFormControl(xlDropDown, Left:=Cells(i, 1).Left, Top:=Cells(i, 1).Top, Width:=100, Height:=Rows(2).RowHeight)
method_name = "Set_Node_Name"
With curCombo
        .ControlFormat.DropDownLines = 44
        .ControlFormat.ListFillRange = "Node_Type_Names!$A$1:$A$44"
        .ControlFormat.LinkedCell = "B" & i
        .OnAction = method_name
        ' 取消下方注释，完成自定义命名
        .Name = "myCombo" & i
End With

第二步：按名称删除对应控件 #

' 入参i为添加控件时对应的行号
Sub DeleteComboByName(i As Integer)
    Dim targetWs As Worksheet
    Set targetWs = Worksheets("Nodes")
    ' 错误处理：避免对应名称控件不存在时报错中断
    On Error Resume Next
    targetWs.Shapes("myCombo" & i).Delete
    On Error GoTo 0
End Sub

方案2：按单元格位置删除（无需自定义名称） #

如果你不想依赖名称定位，可以通过匹配控件左上角所在单元格的位置删除：

' 入参i为组合框所在的行号（你添加时绑定的是A列第i行）
Sub DeleteComboByPosition(i As Integer)
    Dim targetWs As Worksheet
    Dim shp As Shape
    Set targetWs = Worksheets("Nodes")
    For Each shp In targetWs.Shapes
        ' 仅匹配表单类型的组合框，排除其他控件/形状
        If shp.Type = msoFormControl And shp.FormControlType = xlDropDown Then
            ' 匹配左上角单元格的行列位置
            If shp.TopLeftCell.Row = i And shp.TopLeftCell.Column = 1 Then
                shp.Delete
                Exit For
            End If
        End If
    Next shp
End Sub

批量删除所有表单组合框 #

如果需要清空当前工作表所有组合框，直接使用以下代码：

Sub DeleteAllCombos()
    Dim targetWs As Worksheet
    Dim shp As Shape
    Set targetWs = Worksheets("Nodes")
    For Each shp In targetWs.Shapes
        If shp.Type = msoFormControl And shp.FormControlType = xlDropDown Then
            shp.Delete
        End If
    Next shp
End Sub

内容的提问来源于stack exchange，提问作者Ferda-Ozdemir-Sonmez