VBA技巧33 定位删除特定内容所在的行
合集下载
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
技巧1 定位删除特定内容所在的行
如果需要删除如图1-1所示的工作表区域中特定内容所在的行，可以使用定位的方法快速删除，无需使用For...Next循环对单元格逐个进行判断。
图1-1 需删除的工作表区域
示例代码如下：
#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行代码使用SpecialCells方法定位到工作表A列中所有的空单元格，使用Range 对象的EntireRow属性返回其所在的整个行一次性删除。
关于SpecialCells方法请参阅错
误！未找到引用源。
运行SpecialDelete过程工作表区域如图1-2所示。
图1-2 删除后的工作表区域。