1、这里有个人事信息表（里面的信息纯属虚构如有巧合敬请见谅）。我们把每一行人员的信息称作一条记录。要把年龄小于18岁的、或年龄大于60岁的、或学历是高中以下的记录删除。我们先来做一件事：编个程序把符合条件的记录标上颜色，就像表中的那样，通过这个程序理一下思路，也为下一步做个准备。
2、给符合条件的记录标色右击工作表标签-->查看代艨位雅剖码-->在弹出的VBA代码窗口中输入下面的弛贾班隧程序Sub ColRec()Dim EndRow As Single '定义变量，用于存放最后一行行号。EndRow = Range("a65535").End(xlUp).RowUsedRange.Interior.ColorIndex = 0 '初始化，表中底色恢复默认值。For i = 2 To EndRow '遍历工作表的每条记录，i为记录号的变量 If Cells(i, 2) > 60 Or Cells(i, 2) < 18 Or Cells(i, 3) = "高中以下" Then Range("a" & i & ":c" & i).Interior.ColorIndex = 37 End IfNext iEnd Sub按下F5执行。
3、这段程序是通过For循环对每条记录都过一遍，看是否满足这个条件：Cells(i, 2) > 60 Or Cells(i, 2) < 18 Or Cells(i, 3) = "高中以下"其实是用“或”连接的三个条件，只要满足其中一个就算满足。如果条件满足就执行这条语句：Range("a" & i & ":c" & i).Interior.ColorIndex = 37这条语句就是给满足条件的记录标底色的。
4、删除符合条件的记录接下来要做的是把标了色的记录删掉。是不是把标色语句改成删除语句就OK了呢？Range("a" & i & ":c" & i).Interior.ColorIndex = 37改成rows(i).delete试试看！结果是没有删除干净！删除了一部分，这是怎么回事呢？
5、来分析一下删除的过程：比如删除了第5行，后面的内容上移，第6行上移变成第5行，而此时循环变量i增1下移一条记录移至第6行，第5行被跳过没有处理。原来是循环变量在作怪，找到原因就好办了。我们在执行语句 rows(i).delete 后面加一条：i=i-1 。这样，当删除一条记录后让i退回原来的值，也就是停留在上移补位的那条记录上。问题解决了！看一下这次的运行结果！
6、下面是最终的程序：Sub DelRow()Application.ScreenUpdating = False '程序执行期间停止屏幕刷新Dim EndRow As Single '定义变量，用于存放最后一行行号。EndRow = Range("a65535").End(xlUp).RowFor i = 2 To EndRow '遍历工作表的每条记录，i为记录号的变量 If Cells(i, 2) > 60 Or Cells(i, 2) < 18 Or Cells(i, 3) = "高中以下" Then Rows(i).delete i = i - 1 End IfNext iApplication.ScreenUpdating = TrueEnd Sub
7、也可以用While循环实现，作用一样，只是程序读起来容易理解一些。Sub DelRow()App盟敢势袂lication.Scre髫潋啜缅enUpdating = FalseDim EndRow As Single '定义变量，用于存放最后一行行号。EndRow = Range("a65535").End(xlUp).Rowi = 2 '循环变量初始化While i <= EndRow '遍历工作表的每条记录，i为记录号的变量 If Cells(i, 2) > 60 Or Cells(i, 2) < 18 Or Cells(i, 3) = "高中以下" Then Rows(i).delete Else i = i + 1 End IfWendApplication.ScreenUpdating = TrueEnd Sub祝您愉快！
