该方法取自百度知道,该朋友给出函数,我详细写一下方法. 打开有文本框的excel文件. 按 Alt+F11 打开编辑器. 将下面的函数复制进去: Sub deltxbox()Dim s As ShapeFor Each s In ActiveSheet.Shapes If s.Type = msoTextBox Then s.DeleteNextEnd Sub 然后按 F5 执行即可!…
该方法取自百度知道,该朋友给出函数,我详细写一下方法. 打开有文本框的excel文件. 按 Alt+F11 打开编辑器. 将下面的函数复制进去: Sub deltxbox()Dim s As ShapeFor Each s In ActiveSheet.ShapesIf s.Type = msoTextBox Then s.DeleteNextEnd Sub 然后按 F5 执行即可! 转载:http://www.cnblogs.com/findw/p/3737343.html…
excel中批量删除公式,保留数值 Sub macro1() Dim sh As Worksheet For Each sh In Sheets sh.UsedRange = sh.UsedRange.Value Next End Sub ALT+F11进入VBE编辑界面,菜单-->工具-->添加模块,复制粘贴9楼代码,ALT+F11返回工作表,ALT+F8执行宏macro1.…