VBA技巧33定位删除特定内容所在的行.docVIP

技巧1 定位删除特定内容所在的行 如果需要删除如图 331所示的工作表区域中特定内容所在的行，可以使用定位的方法快速删除，无需使用For...Next循环对单元格逐个进行判断。 图 331 需删除的工作表区域 示例代码如下： #001 Sub SpecialDelete() #002 Dim R As Integer #003 With Sheet1 #004 R = .Range(a65536).End(xlUp).Row #005 .Range(a2:a R).Replace Excel, , 2 #006 .Columns(1).SpecialCells(4).EntireRow.Delete #007 End With #008 End Sub 代码解析： SpecialDelete过程删除工作表A列单元格中显示为“Excel”的行。 第5行代码使用Replace方法将工作表A列中显示为“Excel”的单元格内容替换成空白。关于Replace方法请参阅技巧6 。 第6行代码使用SpecialCells方法定位到工作表A列中所有的空单元格，使用Range对象的EntireRow属性返回其所在的整个行一次性删除。关于SpecialCells方法请参阅技巧4 。 运行SpecialD