该方法取自百度知道，该朋友给出函数，我详细写一下方法。

打开有文本框的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  执行即可！

转载：http://www.cnblogs.com/findw/p/3737343.html