批量删除列中的指定内容

panjinju · 发表于 2018-8-10 15:40

怎样批量删除整个工作薄E列中的指定内容，指定内容比较多，可以使之一次删完吗？谢谢各位大神

panjinju · 发表于 2018-8-10 15:42

可以先随便删除，因为我想要结果

xiaoxia520 · 发表于 2018-8-10 15:48

要求说的不清楚，没法搞

lsc900707 · 发表于 2018-8-10 16:35

本帖最后由 lsc900707 于 2018-8-10 16:37 编辑

用数组处理很快。可以在其它空白列输入你想删除的内容。

zhaokuo · 发表于 2018-8-10 16:38

第一页的我不知道删除哪列，所以没有进行删除，从第二页开始到最后一页，删除的都是E列，点击第一页的“删除”按钮之后，即可删除第一页以外的所有E列

panjinju · 发表于 2018-8-11 08:54

lsc900707 发表于 2018-8-10 16:35
用数组处理很快。可以在其它空白列输入你想删除的内容。

可以帮我举一下例子吗？

lsc900707 · 发表于 2018-8-11 09:30

panjinju 发表于 2018-8-11 08:54
可以帮我举一下例子吗？

你把附件做好，要求说具体呀。

panjinju · 发表于 2018-8-11 10:40

lsc900707 发表于 2018-8-11 09:30
你把附件做好，要求说具体呀。

除去6-1的工作表，将剩下的工作表中的E列中的张勇生，李国军，刘旭保留，其它全部删除

xiangbaoan · 发表于 2018-8-11 11:11

…………………………………………

brianlong · 发表于 2018-8-11 18:13

Sub se()
Application.ScreenUpdating = False
Dim sht As Worksheet
For Each sht In Sheets
  If sht.Name <> "6-1" Then
   sht.Activate
arr = Range([e1], Cells(Rows.Count, "e").End(3))
  For i = UBound(arr) To 1 Step -1
If arr(i, 1) <> "张勇生" And arr(i, 1) <> "李国军" And arr(i, 1) <> "刘旭" Then Cells(i, 1).EntireRow.Delete
  Next
End If
Next
Application.ScreenUpdating = True
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 批量删除列中的指定内容