用excel宏来批量删除指定的行-excel宏删除指定行,excel怎么用宏

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

第二步：编写函数

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

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

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

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

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

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

sub test()
for i=cells(rows.count,1).end(3).row to 1 step -1
if cells(i,1)=“STATUS” then

range("A" & i & ":A" & i+2).entirerow.delete
end if
next
end sub
筛选一下空行和“月份”"周“
分别删除就好啦

Sub 删除复行制()
For i = 2 To [E65536].End(3).Row
If InStr(Range("E" & i), "数据zd") = 0 Or Not Range("G" & i) Then Range("E" & i).ClearContents
Next
Range("E:E").SpecialCells(4).EntireRow.Delete
End Sub