Question

是否有快速方法可以返回定义范围之外的下一行范围。我的想法是偏移是最好的，但是我很难找到在应用偏移量之前如何抓取最终的行范围。

E.g。说我的范围定义为Apple是A1：B100，我如何将P定义为我的最后一行范围：

p = Range("Apple"). [last row range function] 在我使用requiredrow = p.offset(1,0)

之前

Answer 1

你用这个：

p = Range("Apple").Row + Range("Apple").Rows.Count

Range("Apple").Row返回第一行编号，Range("Apple").Rows.Count将计数添加到该编号。

如果您希望将p设置为直接在下面的行和相同列的范围：

Dim p As Range
Dim ws As Worksheet
Set ws = Sheets(Mid(Range("Apple").Name, 2, InStr(Range("Apple").Name, "!") - 2))

With ws
    Set p = .Range(.Cells(Range("Apple").Row + Range("Apple").Rows.Count, Range("Apple").Column), .Cells(Range("Apple").Row + Range("Apple").Rows.Count, Range("Apple").Column + Range("Apple").Columns.Count - 1))
End With
Debug.Print p.Address(0, 0)

Answer 2

您仍然可以使用extension和Offset：

Resize

返回定义范围下方的行

2 个答案: