Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何刪除Excel中的所有按鈕或命令按鈕?

Author Siluvia Last modified

在某些Excel工作簿中,您可能已經添加了許多按鈕——例如表單控制按鈕或ActiveX命令按鈕——以執行不同的任務或自動化流程。隨著時間的推移,您可能需要刪除這些按鈕,無論是因為工作表設計的改變、模板清理,還是準備將文件分享給他人。如果有多個按鈕分散在工作表上,手動刪除它們可能會非常耗時且容易出錯。本文介紹了幾種實用的方法,可以高效地從活動工作表中刪除所有表單控制按鈕或命令按鈕,幫助您快速整理工作簿,避免其他用戶不必要地進行交互或感到困惑。

使用「定位條件」刪除所有按鈕
通過選擇來刪除包括表單控制按鈕和命令按鈕的所有按鈕
通過VBA代碼刪除包括表單控制按鈕和命令按鈕的所有按鈕
使用VBA代碼刪除所有表單控制按鈕或命令按鈕


使用「定位條件」刪除所有按鈕

刪除按鈕——特別是表單控制按鈕——最簡單的實際方法是使用Excel中的「定位條件」功能。此方法不需要VBA腳本,適合那些希望避免編寫代碼但又想比手動選擇擁有更多控制權的用戶。該方法對表單控件效果最佳,但無法刪除ActiveX控件。

1. 在活動工作表中選擇任意單元格,然後按下F5鍵調出「定位」對話框。在對話框中點擊「定位條件」。

2. 在下一個對話框中,選擇「對象」,然後點擊「確定」。所有繪圖對象——包括表單控制按鈕——都會立即在您的工作表上被選中。

3. 按下Delete鍵刪除所有選中的按鈕和對象。

提示:此方法會選擇所有對象,包括形狀、文本框和圖片,而不僅僅是表單控件。如果您有其他重要對象,在按下Delete之前請仔細檢查您的工作表。如果您同時擁有表單控制按鈕和ActiveX控件,此方法僅刪除前者;您需要使用VBA來刪除ActiveX控件。


通過選擇來刪除包括表單控制按鈕和命令按鈕的所有按鈕

一種直接從活動工作表中刪除包括表單控制按鈕和命令按鈕在內的所有按鈕的方法是一次性選擇並刪除它們。此方法適合偏愛直接視覺操作的用戶或需要快速清除工作表中所有互動對象的人。它不需要任何編程知識或特殊設置,因此非常適合需要一次性刪除所有控件的簡單清理任務。

使用此方法時,請注意它會選擇並可能刪除工作表上的所有對象——包括形狀、圖表、圖片和其他控件。如果您希望保留某些非按鈕的項目,請謹慎操作。

1. 點擊功能區中的「開發工具」 > 「設計模式」啟用設計模式。這一步確保您可以選擇和管理表單控制按鈕和ActiveX控件。如果您看不到「開發工具」選項卡,您可能需要在「文件」 > 「選項」 > 「自定義功能區」中啟用它。

A screenshot of Excel showing how to enable Design Mode on the Developer tab

2. 點擊工作表中的一個按鈕(表單控制按鈕或命令按鈕)進行選擇。然後,在按住Ctrl鍵的同時,按下A鍵(Ctrl + A)選擇活動工作表中的所有按鈕和其他對象。

A screenshot showing all buttons selected in Excel using Ctrl + A

3. 一旦所有項目都被選中,按下Delete鍵。此操作將立即從工作表中刪除所有選中的按鈕和任何其他選中的對象。

注意:此方法還會選擇並刪除工作表上的形狀、圖片、圖表以及按鈕以外的任何其他對象。在刪除之前,請仔細檢查您的選擇,確保不會刪除您希望保留的對象。如果您只想刪除特定按鈕而不是所有對象,考慮使用下面描述的VBA方法。


通過VBA代碼刪除包括表單控制按鈕和命令按鈕的所有按鈕

如果您想要更快、更精確的解決方案,並且不想冒著誤刪無關對象的風險,您可以使用VBA代碼程序性地從活動工作表中刪除所有按鈕。這種方法對於包含大量按鈕的工作簿非常有效,尤其是當您希望減少手動操作時。VBA可以幫助避免意外刪除其他形狀,並確保多個工作表之間的一致性。然而,這需要基本的VBA知識和開發工具的訪問權限。

1. 打開包含要刪除按鈕的工作表。按下Alt + F11啟動Microsoft Visual Basic for Applications(VBA)編輯器。

2. 在Microsoft Visual Basic for Applications窗口中,點擊插入 > 模塊。將以下VBA代碼複製並粘貼到模塊窗口中。

VBA代碼:從活動工作表中刪除所有按鈕

Sub Clear_ButtonsActiveSheet()
    Dim I As Long
    Dim xOLE As Object
    On Error Resume Next
    ActiveSheet.Buttons.Delete
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. 按下F5鍵或點擊「運行」按鈕執行代碼。瞬間,所有類型的按鈕——包括表單控件和命令按鈕——都將從當前活動工作表中被刪除。

提示:在運行代碼之前,建議保存您的工作簿以防止意外數據丟失。當您希望清除工作表上的每個按鈕時,最好使用這個VBA腳本。如果您只需要針對特定類型的按鈕,請參考下面的替代VBA方法。如果工作表受到保護,您可能需要先取消保護以便允許代碼刪除對象。運行代碼後,檢查您的工作表以確保只有預期的控件被刪除。


使用VBA代碼刪除所有表單控制按鈕或命令按鈕

在某些情況下,您可能需要僅刪除特定類型的按鈕——要么僅刪除表單控制按鈕,要么僅刪除ActiveX命令按鈕,而保留另一種類型的按鈕。這可以幫助您微調工作表的功能而不影響無關的對象。以下是每種情況的單獨VBA解決方案,讓您更好地控制刪除哪些按鈕。

1. 打開包含要選擇性刪除按鈕的工作表,然後按下Alt + F11打開Microsoft Visual Basic for Applications窗口。

2. 在VBA編輯器中,點擊「插入」 > 「模塊」創建一個新模塊,然後根據您要刪除的按鈕類型,複製並粘貼以下VBA代碼之一。

VBA代碼:從活動工作表中刪除所有表單控制按鈕

Sub Clear_ButtonsActiveSheet()
    ActiveSheet.Buttons.Delete
End Sub

VBA代碼:從活動工作表中刪除所有命令按鈕

Sub Clear_ButtonsActiveSheet()
    Dim xOLE As Object
    On Error Resume Next
    For Each xOLE In ActiveSheet.OLEObjects
        If TypeName(xOLE.Object) = "CommandButton" Then
            xOLE.Delete
        End If
    Next
End Sub

3. 粘貼適當的VBA代碼後,按下F5或點擊「運行」按鈕執行。您的工作表將立即刪除所有表單控制按鈕或所有ActiveX命令按鈕,具體取決於您使用的腳本。

使用這些代碼時,請確保運行符合您需求的正確代碼。這些腳本一次只針對一種按鈕類型。如果您有兩者的組合並且希望刪除每一種類型,請連續運行兩個腳本。在代碼運行後檢查您的工作表布局,以驗證只有預期的控件被刪除,特別是如果您的工作表包含其他形狀或嵌入對象。在使用VBA之前始終保存您的工作簿,以防止意外丟失無關內容。

總之,Excel提供了多種刪除按鈕的方法——無論是手動、使用「定位條件」還是通過VBA腳本——因此您可以選擇最適合您場景的方法。如果您遇到某些按鈕無法刪除的問題,請確保工作表未受保護,或者檢查控件是否為分組對象的一部分。對於批量刪除或經常需要從多個工作表中刪除控件的情況,利用VBA腳本可以節省大量時間。始終記住,在進行批量刪除之前保存工作簿的備份,以確保在必要時可以恢復重要內容。


相關文章:

最佳 Office 生產力工具

🤖 Kutools AI 助手:以智能執行為基礎,革新數據分析 生成程式碼 創建自訂公式 分析數據並生成圖表 調用 Kutools 增強函數
熱門功能查找、選取項目的背景色或標記重複值刪除空行合併列或單元格且不遺失數據四捨五入(免公式)...
高級 LOOKUP多條件 VLookup多值 VLookup多表查找模糊查找...
高級下拉列表快速創建下拉列表 依賴型下拉列表 多選下拉列表...
列管理器添加指定數量的列移動列切換隱藏列的顯示狀態比較區域及列...
精選功能網格聚焦 設計檢視 增強編輯欄 工作簿及工作表管理器 資源庫(快捷文本) 日期提取器 合併資料 加密/解密儲存格 按列表發送電子郵件 超級篩選 特殊篩選(篩選粗體/傾斜/刪除線...)...
15 大工具集12 項文本工具添加文本刪除特定字符…)50+ 儀表 類型甘特圖等)40+ 實用 公式基於生日計算年齡等)19 項插入工具插入QR码根據路徑插入圖片等)12 項轉換工具金額轉大寫匯率轉換等)7 項合併與分割工具高級合併行分割儲存格等)...及更多
使用 Kutools,語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言!

運用 Kutools for Excel,全面提升您的 Excel 技能,體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能,讓您提升工作效率、節省時間。 點此尋找您最需要的功能...


Office Tab 為 Office 帶來分頁介面,讓您的工作更加輕鬆簡單

  • 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀
  • 在同一視窗的新分頁中打開與創建多份文件,而非開啟新視窗。
  • 提升您的生產力50%,每日可幫您減少數百次鼠標點擊!

所有 Kutools 外掛,一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛,外加 Office Tab Pro,非常適合需要跨 Office 應用程式協同作業的團隊。

Excel Word Outlook Tabs PowerPoint
  • 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
  • 一鍵安裝,一份授權 — 幾分鐘完成設置(支援 MSI)
  • 協同運作更順暢 — Office 應用間無縫提升生產力
  • 30 天全功能試用 — 無需註冊、無需信用卡
  • 最超值 — 一次購買,節省單獨外掛費用