作者：乔山办公网日期：
返回目录：excel表格制作
删除行的代码：
range("1:1").delete
删除行时，从顶上抄删除是不行的（删除后，总行号上移了呢），只能从底下删除。所以袭全代码是：
sub DelRow()
for i=7531 to 1 step -1 '从最后一行开始往上判断zhidao
if range("E" & i)=0 then range(i & ":" & i).delete ‘如果等于0就删除
next
end sub
第一步，把文件保存为 xlsm格式
第二步，录入zd宏，把下面的代码复制粘回贴，保存宏，命名为qingkong
第三步，插入图答片，右键指定上qingkong这个宏即可。
Sub qingkong()
Range("B9,B14,B19,B24,B29,B35,B40,B45,B50,B55").ClearContents
End Sub
第一步：首先明确要筛选的关键词：我以“政治学与行政学专业”为例，可报考“政治学、法学类、文史类、文科类、不限专业”等几类，下面我们知就通过筛选一下，包括这几个类别的专业。
第二步：编写函数
在当前数据区域的最后，找一空列。我们将在这一空列中标识出符合我们条件道的列。=IF(OR(COUNTIF(L2,"*政治*"),COUNTIF(L2,"*法学类*"),COUNTIF(L2,"*文*"),COUNTIF(L2,"*不限*"),COUNTIF(L2,"")),"符合","不符合")
注意关键词越少，则搜索版的面越大。所以将第一步中的“政治学”精简成“政治”，这样政治理论等专业也就可以包括在了筛选范围内。
符合筛选条件的该空列的单元格将填上“符合”，反之“不符合”
第三步：将该函数粘贴在空列的第一行，下拉填充到数据的权最后一行。
按当前列排序，将不符合的删除掉，就剩下符合的了。其它政治面貌等条件可以加到上面条件中一次筛选，也可以用自动筛选功能实现，就不赘述了。
按当前列排序，将不符合的删除掉，就剩下符合的了。其它政治面貌等条件可以加到上面条件中一次筛选，也可以用自动筛选功能实现
Sub 删除指定条件的百行()
'删除度K1115到最后知一个※号,删除B列首道字符是0
endrow = Range("A65536").End(xlUp).Row
For i = endrow To 1 Step -1
If Cells(i, 1) = "※" Then zz = i
If Cells(i, 1) = "K1115" Then qs = i
Next
If zz <> "" And qs <> "" Then
Range("A" & qs & ":" & "A" & zz).EntireRow.Delete
Else
MsgBox "A列没有找到符合专条件的内属容!"
End If
endrow = Range("B65536").End(xlUp).Row
For i = endrow To 1 Step -1
If Left(Cells(i, 2), 1) = "0" Then Cells(i, 2).EntireRow.Delete
Next
End Sub