跳至主要内容

Kutools for Office — 一套工具,五种功能。事半功倍。

如何删除 Excel 中的所有按钮或命令按钮?

Author: Siluvia Last Modified: 2025-08-22

在某些 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项 插入工具插入二维码从路径插入图片等)|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天全功能试用——无需注册,无需信用卡
  • 超高性价比——比单独购买更实惠