删除空行VBA

nnsea

'Range.EntireRow 属性
'返回一个 Range 对象，该对象表示包含指定区域的整行（或多行）。
'语法
'表达式.EntireRow
'表达式   一个代表 Range 对象的变量。

'Range.EntireColumn 属性
'返回一个 Range 对象，该对象表示包含指定区域的整列（或多列）
'语法
'表达式.EntireColumn
'表达式   一个代表 Range 对象的变量。


Sub test()
[a1].EntireRow.Select
[a1].EntireColumn.Select
[a1:a4].Ent ireRow.Select
[a1:d1].EntireColumn.Select
End Sub

Sub test1()
Dim rng As Range, ads As String
For Each rng In [a1:a10]
    If rng = "" Then ad = ad & rng.Address & ","
Next
ads = Left(ad, Len(ad) - 1)
Range(ads).EntireRow.Delete
End Sub

nnsea

'Range.SpecialCells 方法
'返回一个 Range 对象，该对象代表与指定类型和值匹配的所有单元格。
'语法
'表达式.SpecialCells(Type, Value)
'表达式   一个代表 Range 对象的变量。

Sub 批注汇总()
MsgBox Application.Sum(Selection.SpecialCells(-4144))
End Sub
Sub 删除空行()
On Error GoTo 100
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Exit Sub
100:
MsgBox "没有空行"
End Sub