SubSpecialDelete()

Dim r As Long

With Sheet1

‘计算sheet1中第一列最后一个非空单元格所在的行

r = .Cells(.Rows.Count,1).End(xlUp).Row

‘将A2:A”r‘’区域内所有特定值替换为空值，2代表部分匹配

.Range("A2:A" &r).Replace "特定值", "", 2

‘将第一列中所有为空的单元格所在行删除

.Columns(1).SpecialCells(4).EntireRow.Delete

End With

EndSub

补充：Range.SpecialCells 方法

返回一个Range对象，该对象代表与指定类型和值匹配的所有单元格。

1）语法

表达式 . SpecialCells(Type,Value)

表达式一个代表Range对象的变量。

2）参数

vba自动删除工作簿工作表（VBA工作表之诀窍删除含有特定内容的行）(1)

3）返回值

Range

4）注解

vba自动删除工作簿工作表（VBA工作表之诀窍删除含有特定内容的行）(2)

5）示例

本示例选定工作表Sheet1 中已用区域的最后一个单元格。

Worksheets("Sheet1").Activate

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate

,