删除含有特定内容的行

SubSpecialDelete()Dim r As LongWith 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.DeleteEnd WithEndSub补充：Range.SpecialCells 方法返回一个Range对象，该对象代表与指定类型和值匹配的所有单元格。1）语法表达式 . SpecialCells(Type,Value)表达式一个代表Range对象的变量。2）参数名称必需/可选数据类型说明Type必需XlCellType要包含的单元格。Value可选Variant如果 Type为 xlCellTypeConstants或 xlCellTypeFormulas，则该参数可用于确定结果中应包含哪几类单元格。将这些值相加可使此方法返回多种类型的单元格。默认情况下，将选择所有常量或公式，无论类型如何。3）返回值Range4）注解XlCellType 常量值xlCellTypeAllFormatConditions：任意格式单元格-4172xlCellTypeAllValidation：含有验证条件的单元格-4174xlCellTypeBlanks：空单元格4xlCellTypeComments：含有注释的单元格-4144xlCellTypeConstants：含有常量的单元格2xlCellTypeFormulas：含有公式的单元格-4123xlCellTypeLastCell：已用区域中的最后一个单元格11xlCellTypeSameFormatConditions：含有相同格式的单元格-4173xlCellTypeSameValidation：含有相同验证条件的单元格-4175xlCellTypeVisible：所有可见单元格12** XlSpecialCellsValue 常量**值:-----:-----xlErrors16xlLogical4xlNumbers1xlTextValues25）示例本示例选定工作表Sheet1 中已用区域的最后一个单元格。Worksheets(‘Sheet1’).ActivateActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate