在EXCEL中删除不包含某个关键字的其余所有行,VBA怎么写?

根据A列有没有包含“大学”这两个关键字去判断该行删还是不删,如果A列里面有“大学”这两关键字,则该行不删,其它没有“大学”这两个关键字的行全都删除掉。... 根据A列有没有包含“大学”这两个关键字去判断该行删还是不删,如果A列里面有“大学”这两关键字,则该行不删,其它没有“大学”这两个关键字的行全都删除掉。 展开
 我来答
ahn49413
2013-09-03
知道答主
回答量:8
采纳率:0%
帮助的人:5.8万
展开全部
应该稍微
子雷米()

点心我作为整数

= 0

错误转到eend李寻欢:

Cells.Find( :=“关键词”)。选择

Selection.EntireRow.Delete

I = I + 1

转到李寻欢

eend:拦档

MSGBOX(I&“删除线”)

结束子

具体步骤:

打开文件,工具 - 宏首销打开VB编辑器

复制代码的代码框,编译它保存的,我记得你的要更改关键字
按ALT + F8运行就好者衡游了
【名臣】f2
2013-09-03 · TA获得超过1912个赞
知道大有可为答主
回答量:1594
采纳率:0%
帮助的人:1537万
展开全部
Sub 删除()
Dim i&, d As Object
    Set d = CreateObject("scripting.dictionary")
    For i = 1 To [A65536].End(3).Row
        If InStr(Cells(i, 唤让1), "大学") = 0 Then
            御肆d(Range("A" & i).Address) = ""
        End If
    Next
    Range(Join(d.KEYS, ",")).EntireRow.Delete
  和拆局  Set d = Nothing
End Sub
更多追问追答
追问

出现了这样一个错误。

追答
我这边试了一下,没问题啊。。。点一下调试,看那一行被刷黄了?
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式