求教！用vba批量删除不想要的数据行

高宏飞

想写一段代码，只要按这个控件，就能将关键词那一列里面不想要的删除掉（连带一整行）。比如我不想要搜索词里面包含“水星”、“富安娜“、“幼儿园”、“无印良品”等，不用vba的话，我就在A列筛选，然后再删除，但是这样速度太慢了。我想用vba，以后有什么想删除的，我只要在代码里面添加就可以了。 有谁能帮我这个忙吗？谢谢了。

carlostevez1984

我等会来试试

高宏飞

carlostevez1984 发表于 2018-3-26 18:29
我等会来试试

有劳了！（无奈发不了表情）

1249994139

不知是否楼主需要达到的呢，

opiona

1.     Set SHW = Worksheets("搜索")
   
2.     Set SH0 = Worksheets("数据")
   
3.     Set SH1 = Sheets("结果")
   
4.     SH1.Range("A1:Z65536").ClearContents
   
5.    
   
6.    
   
7.    
   
8.     Str_coon = "HDR=yes';Data Source =" & ThisWorkbook.FullName     '//OFFICE2003，2007 通用
   
9.     StrSQL = "SELECT * FROM [" & SH0.Name & "$] WHERE 1=1"
   
10.     STR条件 = ""
    
11.     For IROW = 2 To SHW.Range("A65536").End(3).Row
    
12.         If SHW.Cells(IROW, 1).Value <> "" Then
    
13.             If STR条件 <> "" Then
    
14.                 STR条件 = STR条件 & "+"
    
15.             Else
    
16.                 STR条件 = STR条件 & " AND ("
    
17.             End If
    
18.             STR条件 = STR条件 & " INSTR(搜索词,'" & SHW.Cells(IROW, 1).Value & "')"
    
19.         End If
    
20.     Next
    
21.     If STR条件 <> "" Then STR条件 = STR条件 & ")=0"
    
22.     StrSQL = StrSQL & STR条件
    
23.    
    
24.     SQLARR = GET_SQL_To_Arr(StrSQL, Str_coon, True)
    
25.     SH1.Cells.ClearContents
    
26.     SH1.Range("A1").Resize(UBound(SQLARR, 1) + 1, UBound(SQLARR, 2) + 1) = SQLARR
    
27.     SH1.Select

复制代码

opiona

完整代码见附件： 被套－热搜搜索词－所有终端.rar (36.02 KB, 下载次数: 31)

2018-3-26 19:08 上传

点击文件名下载附件

高宏飞

1249994139 发表于 2018-3-26 19:03
不知是否楼主需要达到的呢，

谢谢哦。但是我是想直接在代码里面输入文字，然后就删除相应的行哦

高宏飞

opiona 发表于 2018-3-26 19:08
完整代码见附件：

谢谢哦。但是我是想直接在代码里面输入文字，然后就删除相应的行哦。这样可以吗？

1249994139

高宏飞 发表于 2018-3-27 15:29
谢谢哦。但是我是想直接在代码里面输入文字，然后就删除相应的行哦。这样可以吗？

可以的呦，详见附件，如果达到你的需求，送朵花，鼓励下

lsc900707

代码里修改搜索词比较麻烦吧。试试输入框输入条件后删除的方法：