打开有文本框的excel文件。
按
Alt+F11
打开编辑器。
将下面的函数复制进去:
Sub
deltxbox()
Dim
s
As
Shape
For
Each
s
In
ActiveSheetShapes
If
sType
=
msoTextBox
Then
sDelete
Next
End
Sub
然后按
F5
执行即可!
步骤如下:
1、按住Ctrl键,单击每个文本框中的文本,将其文本全部选中;
2、将被选中的文本用鼠标拖离文本框,并且单击复制选项中的“只保留文本”;
需要注意的是选择只保留文本有可能看到的是空白的,这时只需要将其文字颜色改为自动或是黑色即可。
4、单击“开始”选项卡--“选择”--“选择对象”框选所有内容,将剩下的空文本框删除即可。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)