'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