excel - 范围内的最后一行

Question

在寻找可产生所需结果的信息和/或解决方案时遇到问题，所以就这样。

现在，可能在生产时，我将在工作表上有一个"template"命名范围。第一次使用时，此 NamedRange 仅是 rngNamed1，但第一次使用后可能会有更多与此类似的命名范围，最多可达 rngNamed30。

假设在构建到 rngNamed30 后的第二次运行中，我需要再添加 3 个 NamedRange，这会导致 rngNamed33。

我需要做的基本上是找到最后一个命名范围的最后一行和最后一列，这样我就知道从哪里开始将数据复制到并声明下一个命名范围。

到目前为止我尝试过的:

Dim rng As range
Set rng = range("rngNamed1")
'Set rng = rng.Find("*", rng.Cells(1, 1), xlFormulas, xlPart, xlByRows, xlPrevious, False)
Debug.Print rng.Find("*", rng.Cells(1, 1), , , , xlPrevious).Address

大多数解决方案的问题在于它们都是基于查找最后一个包含数据的单元格。我只需要知道范围的最后一个单元格，无论它是否包含数据。

Answer 1

您可以使用范围的 Row 和 Rows.Count 轻松完成此操作:

Sub NextRowAfterRange()
    Dim ws As Worksheet
    Dim rangeNom As String
    Dim nextRow As Long

    ' Enter desired name here
    rangeNom = "rngName1"

    Set ws = ActiveSheet

    nextRow = ws.Range(rangeNom).Row + ws.Range(rangeNom).Rows.Count

    MsgBox nextRow
End Sub