怎么批量删除表格内容
答案:2 悬赏:40 手机版
解决时间 2021-01-01 16:43
- 提问者网友:火车头
- 2021-01-01 10:24
怎么批量删除表格内容
最佳答案
- 五星知识达人网友:往事隔山水
- 2021-01-01 11:01
问题一:excel如何批量删除单元格内多余的内容? 你不上传截图,我不知道你的excel格式啊。只能猜
我猜你的公司是一个名字一个单元格
北京分公司就是在有限公司后面,就应该删掉啊,你不想删掉?
所以,我再猜,你不是要把有限公司后面的内容全部删掉,你只是想把后面括号内容的东西删掉,如图
看到图上的公式了吗?在C列应用,B列也有公式,是为了避免中文括号。如果你确定没有使用中文括号,全是英文括号,那么可以直接使用C的公式了。
见附件问题二:怎样批量清除WORD表格里已经输入的内容 将要清除的内容所在的表格都选定,然后按del即可,不要选定整个表格,否则会连表格都删掉的问题三:如何将excel表格中的内容快速删除 按DEL 或右键点表格,选择清除内容问题四:怎么批量清除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表格里的数据全部删掉? 先按ctrl+A,再按delete问题六:excel表格如何批量删除前3字 比如A列是原数值,那么在B1中抚入公式=RIGHt(A1,LEN(A1)-3),然后往下填充公式即可问题七:word表格里面的文字怎么全选删除啊??? 表格左上角有一十字标记,鼠标点一下全选表格。按DELETE,清除内容。问题八:excel如何批量删除单元格中的某一个文字? 按Ctrl+H(替换),弹出上图对话框,在“查找内容”中输入“收:”,在“替换为”处什么都不输入
点击“全部替换”即可问题九:excel表格相同的词怎么批量删除 如果在07版以上版本中恭有删除重复项这个功能,选中该列,数据,删除重复项。
各版本通用的,可以用数据透视表,选中该列,插入,数据透视表,把该列拖到行区域,自动就取得了不重复项,可以复制出来。问题十:如何在WORD文档表格中一次性删除文字内容? 将鼠标移动到表格的左上角,会出现个黑十字,点击后会将整个表格选中,点Delete键就能一次性将整个表格内的文字删除。
我猜你的公司是一个名字一个单元格
北京分公司就是在有限公司后面,就应该删掉啊,你不想删掉?
所以,我再猜,你不是要把有限公司后面的内容全部删掉,你只是想把后面括号内容的东西删掉,如图
看到图上的公式了吗?在C列应用,B列也有公式,是为了避免中文括号。如果你确定没有使用中文括号,全是英文括号,那么可以直接使用C的公式了。
见附件问题二:怎样批量清除WORD表格里已经输入的内容 将要清除的内容所在的表格都选定,然后按del即可,不要选定整个表格,否则会连表格都删掉的问题三:如何将excel表格中的内容快速删除 按DEL 或右键点表格,选择清除内容问题四:怎么批量清除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表格里的数据全部删掉? 先按ctrl+A,再按delete问题六:excel表格如何批量删除前3字 比如A列是原数值,那么在B1中抚入公式=RIGHt(A1,LEN(A1)-3),然后往下填充公式即可问题七:word表格里面的文字怎么全选删除啊??? 表格左上角有一十字标记,鼠标点一下全选表格。按DELETE,清除内容。问题八:excel如何批量删除单元格中的某一个文字? 按Ctrl+H(替换),弹出上图对话框,在“查找内容”中输入“收:”,在“替换为”处什么都不输入
点击“全部替换”即可问题九:excel表格相同的词怎么批量删除 如果在07版以上版本中恭有删除重复项这个功能,选中该列,数据,删除重复项。
各版本通用的,可以用数据透视表,选中该列,插入,数据透视表,把该列拖到行区域,自动就取得了不重复项,可以复制出来。问题十:如何在WORD文档表格中一次性删除文字内容? 将鼠标移动到表格的左上角,会出现个黑十字,点击后会将整个表格选中,点Delete键就能一次性将整个表格内的文字删除。
全部回答
- 1楼网友:平生事
- 2021-01-01 11:50
我好好复习下
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯