请问如何一次性删除所有的text box

lzlxf

于 2011-05-12 11:17:00 发布

阅读量675

点赞数

本文介绍了一段使用VBA宏代码批量删除Excel工作表中所有以TextBox开头命名的文本框的方法。该宏通过遍历工作表上的所有形状对象，并检查每个形状的名字是否符合指定条件来实现这一目标。同时，宏还提供了状态栏更新功能，显示当前处理的进度。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub Macro1()
J = 1
Dim aa As Shapes
i = ActiveSheet.Shapes.Count
With ActiveSheet
     For J = 1 To i
         .Shapes(1).Select
         cc = .Shapes(1).Name
         If Left(cc, 8) = "Text Box" Then
            .Shapes(cc).Select
            Selection.Delete
         End If
     Application.StatusBar = J & "   /   " & i
     Next
End With
End Sub

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。