'Range.EntireRow 属性
'返回一个 Range 对象,该对象表示包含指定区域的整行(或多行)。
'语法
'表达式.EntireRow
'表达式 一个代表 Range 对象的变量。
'Range.EntireColumn 属性
'返回一个 Range 对象,该对象表示包含指定区域的整列(或多列)
'语法
'表达式.EntireColumn
'表达式 一个代表 Range 对象的变量。
1 Sub 删除空行() 2 Dim rng As Range, ads As String 3 For Each rng In [a1:a10] 4 If rng = "" Then ad = ad & rng.Address & "," 5 Next 6 ads = Left(ad, Len(ad) - 1)'搜集空行的地址 7 Range(ads).EntireRow.Delete'删除空行 8 End Sub