怎么一键清除表格内容
答案: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),然后往下填充公式即可
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯