该方法取自百度知道，该朋友给出函数，我详细写一下方法。
打开有文本框的excel文件。
按 Alt+F11 打开编辑器。
将下面的函数复制进去：
Sub deltxbox()
Dim s As ShapeFor Each s In ActiveSheet.Shapes If s.Type = msoTextBox Then s.DeleteNextEnd Sub然后按 F5 执行即可！
本文共 247 字，大约阅读时间需要 1 分钟。
该方法取自百度知道，该朋友给出函数，我详细写一下方法。
打开有文本框的excel文件。
按 Alt+F11 打开编辑器。
将下面的函数复制进去：
Sub deltxbox()
Dim s As ShapeFor Each s In ActiveSheet.Shapes If s.Type = msoTextBox Then s.DeleteNextEnd Sub然后按 F5 执行即可！
转载于:https://www.cnblogs.com/findw/p/3737343.html