怎么一键清除表格内容
答案:1 悬赏:0 手机版
解决时间 2021-03-21 05:33
- 提问者网友:临风不自傲
- 2021-03-20 22:29
怎么一键清除表格内容
最佳答案
- 五星知识达人网友:慢性怪人
- 2021-03-20 23:51
问题一:怎样批量清除WORD表格里已经输入的内容 将要清除的内容所在的表格都选定,然后按del即可,不要选定整个表格,否则会连表格都删掉的问题二:如何一键清除excel表格内容 Ctrl+A全选,按Delete删除问题三:怎么批量清除word表格里的内容 如果是批量删除,只能用宏代码来实现了,思路是将如下代码原样拷贝到你的新建的宏过程中,按F5运行即可。 有关文件批量处理的功能需要,可参见 实用工具《文件批量处理百宝箱》 Dim TablesC As Long '定义文档中表格的数量
Dim DelS As Long, DelIn As String
TablesC = ActiveDocument.Tables.Count
DelIn = InputBox(请输入需要删除的表格的行号,用半角都好分隔, 消息, 2,4)
DelIn = Replace(DelIn, , )
Do Until R = Len(DelIn)
DelIn = Replace(DelIn, ,,, ,)
R = Len(DelIn) Loop
For i = 1 To Len(DelIn)
If InStr(01234567890,, Mid(DelIn, i, 1)) = 0 Then
MsgBox 待删除行号输出不符合规范,请重新输入,样式如:2,4,6, vbCritical + vbOKOnly, 消息
Exit Sub
End If
Next
If Left(DelIn, 1) = , Then DelIn = Mid(DelIn, 2)
If Right(DelIn, 1) = , Then DelIn = Left(DelIn, Len(DelIn) - 1)
If DelIn = Then Exit Sub
DelS = Len(DelIn) - Len(Replace(DelIn, ,, )) + 1
DelIn = DelIn & ,
For i = 1 To TablesC
j = ActiveDocument.Tables(i).Rows.Count
k = j
Do Until DelS = 0 Or k = 0 '删除表格内容的关键代码部分
If InStr(DelIn, k & ,) Then
ActiveDocument.Tables(i).Rows(k).Delete
DelS = DelS - 1
End If
k = k - 1
Loop
Next
MsgBox 处理完毕!, vbInformation + vbOKOnly, 消息
Shell explorer.exe
, vbMaximizedFocus
本代码仅是删除指定的行,如果要删除特别的,需要根据要求修改删除表格内容的关......余下全文>>问题四:如何将excel表格中的内容快速删除 按DEL 或右键点表格,选择清除内容问题五:谁知道如何在超级表格中一键清空框选的所有数据? 看着充满一格一格数据的整张表格,令想要删除部分数据的你却头疼不已?
没关系!超级小编来帮你啦!
普及你所不知道的超级表格的秘密——
一键清空框选数据
只需用鼠标框选好你所需要删除的数据,请按键盘上的Delete键,即可。问题六:如何快速清除电子表格填写内容? 选中整个数据区域-同时按ctrl和G键-定位条件-选“常量”-再选择你要清除的数据类型(文本、数字之类的)-确定-按键盘上的delete键-O了问题七:WORD表格中的内容如何快速清除 1.从网页上复制到WORD里粘贴时,在编辑里点选择性粘贴->粘贴->无文本格式,这样粘贴就不会有表格了.
2.我们经常从网上下载一些文字材料,往往因空行多使得页数居高不下。关于“空行替换”的相关文章也看过一些,大致都是这种方法:在“编辑”菜单中打开“查找和替换”对话框,在“查找内容”中输入“^p^p”“替换为”中输入“^p”,然后“全部替换”。
而有些用上面的方法却是屡试屡败,每次都是提示:“Word已完成对文档的搜索并已完成0处替换”。为什么空行就在眼前,Word却不认识它呢?经过细心查找,发现在用替换的办法删除空行时要注意两个问题:
(1)分清文件中用的是手动换行符(“Shift+回车”),还是段落标记
“^p^p”替换成“^p”并不能替换所有的空行。如果文件中用的是手动换行符,那么就要用“^l^l”替换成“^l”(这里用的不是1,而是L字母的小写,也可以直接用替换对话框里的“特殊字符”,里面有“有手动换行符”),空行才能去除。我要用的试卷正是用手动换行符换行的。可是我也用了“^l^l”替换成“^l”的办法,用“全部替换”时依然提示“Word已完成对文档的搜索并已完成0处替换”这又是为什么呢?把我搞得一头雾水,为了搞清楚到底问题出在哪里,我又在Word文档中分别用手动换行符和回车符制造一些空行,用“^p^p”替换成“^p”和“^l^l”替换成“^l”来验证,结果能顺利完成空行的删除。为什么我自己输入的可以替换,网上下载的却不能呢?难道这里面还有“机关”?
(2)注意空格的存在
无奈之下,我只得手工删除了。在删除的过程中,我发现了它的秘密:原来每个空行的换行符前还有一个空格。空格成了折腾我的“罪魁祸首”!再用“^l ^l”(注意两个换行之间有一个空格)替换成“^l”,替换终于有成果了。单击了几次全部替换,又更改了几次“查找内容”,比如把“^p ^l”替换成“^l,。我的页面中再也没有空行了。
看来用替换的方法来删除空行时,要灵活对待查找的内容,不然,Word可不懂你的心。电脑是智能的也是最“死心眼”的。问题八:怎样把excel表格里的数据全部删掉? 先按ctrl+A,再按delete问题九:如何快速清除WORD表格中的数据. 鼠标选择表格内第一个位置拖伐到表格内右下最后个位置,然后按1次DEL就能清除表珐内的内容,表格无变化问题十:excel表格如何批量删除前3字 比如A列是原数值,那么在B1中抚入公式=RIGHt(A1,LEN(A1)-3),然后往下填充公式即可
Dim DelS As Long, DelIn As String
TablesC = ActiveDocument.Tables.Count
DelIn = InputBox(请输入需要删除的表格的行号,用半角都好分隔, 消息, 2,4)
DelIn = Replace(DelIn, , )
Do Until R = Len(DelIn)
DelIn = Replace(DelIn, ,,, ,)
R = Len(DelIn) Loop
For i = 1 To Len(DelIn)
If InStr(01234567890,, Mid(DelIn, i, 1)) = 0 Then
MsgBox 待删除行号输出不符合规范,请重新输入,样式如:2,4,6, vbCritical + vbOKOnly, 消息
Exit Sub
End If
Next
If Left(DelIn, 1) = , Then DelIn = Mid(DelIn, 2)
If Right(DelIn, 1) = , Then DelIn = Left(DelIn, Len(DelIn) - 1)
If DelIn = Then Exit Sub
DelS = Len(DelIn) - Len(Replace(DelIn, ,, )) + 1
DelIn = DelIn & ,
For i = 1 To TablesC
j = ActiveDocument.Tables(i).Rows.Count
k = j
Do Until DelS = 0 Or k = 0 '删除表格内容的关键代码部分
If InStr(DelIn, k & ,) Then
ActiveDocument.Tables(i).Rows(k).Delete
DelS = DelS - 1
End If
k = k - 1
Loop
Next
MsgBox 处理完毕!, vbInformation + vbOKOnly, 消息
Shell explorer.exe
, vbMaximizedFocus
本代码仅是删除指定的行,如果要删除特别的,需要根据要求修改删除表格内容的关......余下全文>>问题四:如何将excel表格中的内容快速删除 按DEL 或右键点表格,选择清除内容问题五:谁知道如何在超级表格中一键清空框选的所有数据? 看着充满一格一格数据的整张表格,令想要删除部分数据的你却头疼不已?
没关系!超级小编来帮你啦!
普及你所不知道的超级表格的秘密——
一键清空框选数据
只需用鼠标框选好你所需要删除的数据,请按键盘上的Delete键,即可。问题六:如何快速清除电子表格填写内容? 选中整个数据区域-同时按ctrl和G键-定位条件-选“常量”-再选择你要清除的数据类型(文本、数字之类的)-确定-按键盘上的delete键-O了问题七:WORD表格中的内容如何快速清除 1.从网页上复制到WORD里粘贴时,在编辑里点选择性粘贴->粘贴->无文本格式,这样粘贴就不会有表格了.
2.我们经常从网上下载一些文字材料,往往因空行多使得页数居高不下。关于“空行替换”的相关文章也看过一些,大致都是这种方法:在“编辑”菜单中打开“查找和替换”对话框,在“查找内容”中输入“^p^p”“替换为”中输入“^p”,然后“全部替换”。
而有些用上面的方法却是屡试屡败,每次都是提示:“Word已完成对文档的搜索并已完成0处替换”。为什么空行就在眼前,Word却不认识它呢?经过细心查找,发现在用替换的办法删除空行时要注意两个问题:
(1)分清文件中用的是手动换行符(“Shift+回车”),还是段落标记
“^p^p”替换成“^p”并不能替换所有的空行。如果文件中用的是手动换行符,那么就要用“^l^l”替换成“^l”(这里用的不是1,而是L字母的小写,也可以直接用替换对话框里的“特殊字符”,里面有“有手动换行符”),空行才能去除。我要用的试卷正是用手动换行符换行的。可是我也用了“^l^l”替换成“^l”的办法,用“全部替换”时依然提示“Word已完成对文档的搜索并已完成0处替换”这又是为什么呢?把我搞得一头雾水,为了搞清楚到底问题出在哪里,我又在Word文档中分别用手动换行符和回车符制造一些空行,用“^p^p”替换成“^p”和“^l^l”替换成“^l”来验证,结果能顺利完成空行的删除。为什么我自己输入的可以替换,网上下载的却不能呢?难道这里面还有“机关”?
(2)注意空格的存在
无奈之下,我只得手工删除了。在删除的过程中,我发现了它的秘密:原来每个空行的换行符前还有一个空格。空格成了折腾我的“罪魁祸首”!再用“^l ^l”(注意两个换行之间有一个空格)替换成“^l”,替换终于有成果了。单击了几次全部替换,又更改了几次“查找内容”,比如把“^p ^l”替换成“^l,。我的页面中再也没有空行了。
看来用替换的方法来删除空行时,要灵活对待查找的内容,不然,Word可不懂你的心。电脑是智能的也是最“死心眼”的。问题八:怎样把excel表格里的数据全部删掉? 先按ctrl+A,再按delete问题九:如何快速清除WORD表格中的数据. 鼠标选择表格内第一个位置拖伐到表格内右下最后个位置,然后按1次DEL就能清除表珐内的内容,表格无变化问题十:excel表格如何批量删除前3字 比如A列是原数值,那么在B1中抚入公式=RIGHt(A1,LEN(A1)-3),然后往下填充公式即可
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯