删除单元格_vba代码快速定位删除空白单元格，效率快的不只是一点点

今天我们内容主要通过讲解'Range.EntireRow(返回行)，Range.EntireColumn(返回列)两个属性，定位单元格具体位置，并根据位置删除所在区域。

▼Range.EntireRow属性▼

1、Range.EntireRow 属性：返回一个 Range 对象，该对象表示包含指定区域的整行(或多行)。

2、表达式.EntireRow：一个代表 Range 对象的变量。

▼Range.EntireColumn▼

1、Range.EntireColumn 属性：返回一个 Range 对象，该对象表示包含指定区域的整列(或多列)

2、表达式.EntireColumn：一个代表 Range 对象的变量。

▼属性介绍▼

代码介绍：

Sub test()

[a1].EntireRow.Select ‘ 选择A1单元格所在的整行

[a1].EntireColumn.Select ’选择A1单元格所在的整列

[a1:a4].EntireRow.Select '选择A1:A4单元格所在的行

[a1:d1].EntireColumn.Select ‘选择A1:D1单元格所在的列

End Sub

注意：返回是单行单列还是多行多列，取决于前面单元格所在的位置

▼案例介绍：删除区域内的空行▼

代码介绍：

Sub test1()

Dim rng As Range, ads As String

For Each rng In [a1:a10]

If rng = "" Then ad = ad & rng.Address &