Excel 2007 批量刪除隱藏的文本框

該方法取自百度知道，該朋友給出函數，我詳細寫一下方法。

 

打開有文本框的excel文件。

按 Alt+F11 打開編輯器。

將下面的函數復制進去：

Sub deltxbox()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then s.Delete
Next
End Sub

然后按 F5  執行即可！