如何在 Excel 中使用 VBA 程式碼清除下拉選單的內容？

通常，您可以通過清除輸入區域列表數據來清除下拉選單的內容。但如果要清除 Excel 工作表中的所有下拉選單內容該怎麼辦呢？本文提供了兩個 VBA 程式碼，不僅能幫助您清除單個下拉選單的內容，還可以同時清除整個 Excel 工作表中所有下拉選單的內容。

輕鬆使用 VBA 程式碼清除下拉選單的內容

輕鬆使用 VBA 程式碼清除下拉選單的內容

以下兩個 VBA 程式碼可以幫助您清除活動工作表中單個或所有下拉選單的內容。請按照以下步驟操作：

1. 在需要清除下拉選單內容的工作表中，請同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後將以下 VBA 程式碼複製到程式碼視窗中。

VBA 1：清除工作表中下拉選單的內容

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

注意：在程式碼中，“Drop Down 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
    Next
    For Each xDrop In ActiveSheet.DropDowns
        xDrop.ListFillRange = ""
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 鍵或點擊執行按鈕來運行程式碼。

然後您可以看到指定的下拉選單或活動工作表中的所有下拉選單內容已被清除，如下方截圖所示：

注意：這些 VBA 程式碼適用於「下拉選單（表單控制項）」和「下拉選單（ActiveX 控制項）」。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在 Excel 中同時清除儲存格的內容和格式？
• 如何在 Excel 中清除命名範圍的內容？
• 如何在 Excel 中清除儲存格中的限制值？
• 如何在 Excel 中當另一個儲存格的值改變時清除指定儲存格的內容？
• 如何在 Excel 工作簿開啟和退出時清除指定儲存格的內容？