如何在Excel中用VBA代码清除组合框的内容？

通常，您可以通过清除输入范围列表数据来清除组合框的内容。 但是，如何清除Excel工作表中所有组合框的内容？ 本文准备了两个VBA代码，它们不仅可以帮助您清除组合框的内容，而且可以同时清除Excel工作表中所有组合框的内容。

通过VBA代码轻松清除组合框的内容

---

通过VBA代码轻松清除组合框的内容

下面的两个VBA代码可以帮助您清除活动工作表中组合框或所有组合框的内容。 请执行以下操作。

1.在工作表中，您需要清除组合框的内容，请按 其他 + F11 按键同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块 。 然后将下面的VBA代码复制到“代码”窗口中。

VBA 1：清除工作表中的组合框的内容

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

备注 ：在代码中，“下拉列表2”是您要从中清除内容的组合框的名称。 请更改为您自己的。

VBA 2：清除活动工作表中所有组合框的内容

Sub ClearComboBox()
    Dim xOle As OLEObject
    Dim xDrop As DropDown
    Application.ScreenUpdating = False
    For Each xOle In ActiveSheet.OLEObjects
        If TypeName(xOle.Object) = "ComboBox" Then
            xOle.ListFillRange = ""
        End If
    For Each xDrop In ActiveSheet.DropDowns