Question

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

根据A列有没有包含“大学”这两个关键字去判断该行删还是不删，如果A列里面有“大学”这两关键字，则该行不删，其它没有“大学”这两个关键字的行全都删除掉。

Answer 1

应该稍微
子雷米（）

点心我作为整数

= 0

错误转到eend李寻欢：

Cells.Find（ ：=“关键词”）。选择

Selection.EntireRow.Delete

I = I + 1

转到李寻欢

eend：

MSGBOX（I＆“删除线”）

结束子

具体步骤：

打开文件，工具 - 宏打开VB编辑器

复制代码的代码框，编译它保存的，我记得你的要更改关键字
按ALT + F8运行就好了

Answer 2

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

追问

出现了这样一个错误。

追答

我这边试了一下，没问题啊。。。点一下调试，看那一行被刷黄了？

追问

追答

你是A列中没有“大学”这两个字吧