VBA 删除包含特定内容的行，一次性删除非

第一步：首先明确要筛选的关键词：我以“政治学与行政学专业”为例，可报考“政治学、法学类、文史类、文科类、不限专业”等几类，下面我们就通过筛选一下，包括这几个类别的专业。

第二步：编写函数

在当前数据区域的最后，找一空列。我们将在这一空列中姿裤腊标识出符合我们条件的列。=IF(OR(COUNTIF(L2,"*政治*"),COUNTIF(L2,"*法学类*"),COUNTIF(L2,"*文*"),COUNTIF(L2,"*不限*"),COUNTIF(L2,"")),"符合","不符合")

注意关键词越少，则搜索的面越大。所以将第一步中的“政治学”精简成“政治”，这样政治理论等专业也就可以包括在了筛选范围内。

符合筛选条件的该空列的单元格将填上“符合”，反之“不符合”

第三步：将该函数粘贴在空列的第一行，下拉填充到数据的最迹滑后一行。

按当前列排序，将不符合的删除掉，就剩下符合的了。其它政治面貌等条件可以加到上面条件中一次筛选，也可以用自动筛选功能实现，就不赘述了。

按当前列排序，将不符合的删除掉，就剩下符合的了。其它政纯陆治面貌等条件可以加到上面条件中一次筛选，也可以用自动筛选功能实现

直接使者兆用自动筛选，筛选出含“WY”的所有行，删除即可，岁液速度并不慢。。。实在想不出哪里乎嫌物需要运用VBA来进行操作。。。

若非要使用VBA，建议用Delete * from [Sheet1$] where PLANNER like '%WY%'