获取工作表中第1行空行的行号：四种方法详解

2023-09-14 22:56:11

在 Excel VBA 中查找工作表中的第 1 个空行

在 Excel VBA 中处理数据时，经常需要找到第 1 个空行，以进行诸如插入数据或删除空行等操作。本文将探讨四种在 Excel VBA 中获取第 1 个空行的方法。

方法 1：使用 End 属性

End 属性可返回指定区域的最后一个单元格的地址。通过将 End 属性应用于第 1 列，我们可以找到工作表的最后一行的地址。减去 1 就得到了第 1 个空行的行号。

Sub FindFirstEmptyRowUsingEnd()
    Dim IRow As Long
    IRow = Range("A" & Rows.Count).End(xlUp).Row
    IRow = IRow - 1
    MsgBox "第 1 个空行的行号是：" & IRow
End Sub

方法 2：使用 UsedRange 属性

UsedRange 属性可返回工作表中已使用区域的范围。已使用区域的最后一行就是第 1 个空行。

Sub FindFirstEmptyRowUsingUsedRange()
    Dim IRange As Range
    Dim IRow As Long
    Set IRange = Range("A1").UsedRange
    IRow = IRange.Rows.Count
    MsgBox "第 1 个空行的行号是：" & IRow
End Sub

方法 3：使用 CurrentRegion 属性

CurrentRegion 属性可返回当前选定的区域的范围。如果未选择任何区域，CurrentRegion 将返回工作表中已使用的区域。

Sub FindFirstEmptyRowUsingCurrentRegion()
    Dim IRange As Range
    Dim IRow As Long
    Set IRange = Application.Selection.CurrentRegion
    IRow = IRange.Rows.Count
    MsgBox "第 1 个空行的行号是：" & IRow
End Sub

方法 4：使用循环语句

使用循环语句逐行检查工作表中的单元格，直到找到空行。

Sub FindFirstEmptyRowUsingLoop()
    Dim IRow As Long
    For IRow = 1 To Rows.Count
        If Range("A" & IRow).Value = "" Then
            Exit For
        End If
    Next IRow
    MsgBox "第 1 个空行的行号是：" & IRow
End Sub