Application.ScreenUpdating = True End Sub
[示例三]在本示例中，当您在工作表的E列中的单元格中输入“finish”后，点击右侧按钮，将会对此行用指定的背景色进行标识，如图3和图4。图3：在E8单元格中输入“finish”图4：点击按钮后的效果
当您删除单元格E6中的数据，如下图5所示。图5：删除单元格E6中的数据图6：点击按钮后的效果 本示例中按钮所附加的代码如下，其中，
UsedRange.Rows.Count表示当前工作表中已使用区域的行数。Private Sub CommandButton1_Click() Dim r As Long
For r = UsedRange.Rows.Count To 1 Step -1 If Range(\
Range(\10
Next r
For r = UsedRange.Rows.Count To 1 Step -1 If Range(\
Range(\2
Next r End Sub
[提示]您可以将此代码放置在工作表变化事件中，这样，当工作表变化时，符合条件的相应行会自动标记背景色。 [示例四]本示例演示了删除行操作，即在活动工作表已使用单元格区域中，若某单元格中包含有“AND”(如为ANDXXX或XXXANDXX或XXXAND等，不区分大小写)，则删除该单元格所在行。ActiveSheet.UsedRange.Find(what)表示在当前工作表所有已使用单元格区域中查找含有变量what中的内容的单元格，程序代码如下：(by Patrick Molloy)Sub Find_AND()
Dim rng As Range Dim what As String what = \ Do
Set rng = ActiveSheet.UsedRange.Find(what) If rng Is Nothing Then Exit Do Else
Rows(rng.Row).Delete
End If Loop End Sub
[提示]您可以更改程序中所查找的字符，从而实现您所想要的目的。 示例文档下载:
