该方法取自百度知道,该朋友给出函数,我详细写一下方法。 打开有文本框的excel文件。按 Alt+F11 打开编辑器。将下面的函数复制进去:Sub deltxbox()Dim s As ShapeFor Each s In ActiveSheet.ShapesIf s.Type = msoTextBox Then s.DeleteNextEnd Sub然后按 F5 执行即可!