VBA学习笔记之Range.EntireRow&Range.EntireColumn属性

'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