Excel VBA系列之单元格方法EntireRow

Excel VBA中使用Range时，有一个EntireRow的属性，以Range单元格为基准选择整行。

1. 打开Visual Basic，添加模块和过程，称之为“单元格操作4”。

Sub 单元格操作4()

End Sub

2. 如图所示，选中A1单元格所在整行。

Sub 单元格操作4()

Range("A1").EntireRow.Select

End Sub

3. 同理，可以选中单元格所在行，也可以选中其所在列，把EntireRow改成EntireColumn即可。

Sub 单元格操作4()

Range("B5").EntireColumn.Select

End Sub

4. 如果要删除整行，把Select动作改成Delete即可，如图所示。

Sub 单元格操作4()

Range("B5").EntireRow.Delete

End Sub

5. 在实际案例中，如果遇到有空值的单元格，且要将其所在行或列的所有数据都清理掉，就可以用到EntireRow或EntireColumn属性。

6. 添加一个for each循环。

Sub 单元格操作4()

Dim rng As Range

For Each rng In Range("A1:D9")

Next

End Sub

7. 添加一个if判断，如果单元格为空值，则删除整行数据。

Sub 单元格操作4()

Dim rng As Range

For Each rng In Range("A1:D9")

    If rng = "" Then

        rng.EntireRow.Delete

    End If

Next

End Sub

8. 执行以上代码后，即可得到清理数据后的表格。

以上示例只是用于演示，实际应用场景请根据自己的需要进行相应的设计或调整。

参考视频：Excel VBA系列之单元格属性EntireRow - 知乎