Excel VBA中使用Range时,有一个EntireRow的属性,以Range单元格为基准选择整行。
1. 打开Visual Basic,添加模块和过程,称之为“单元格操作4”。
Sub 单元格操作4() End Sub
2. Range单元格后通过EntireRow选中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. 执行以上代码后,即可得到清理数据后的表格。
以上示例只是用于演示,实际应用场景请根据自己的需要进行相应的设计或调整。