通过公式或 UDF 定义命名范围

Question

我想问一下您在 Excel 中定义命名范围的经验。

我通常使用这个公式：

=OFFSET(Sheet!$A$1;0;0;COUNTA(Sheet!$A:$A);COUNTA(DATA!$1:$1))

这适用于动态范围。一旦您将行或列添加到原始表，它就会修改。在这种情况下，一旦在 A 列或第 1 行的表之外输入了一些数据，就会出现问题。

然后我认为 UDF 中的 Range("A1").CurrentRegion.Address 可以完成这项工作。但是这个命令在 UDF 中被跳过了......因为它不仅仅适用于包含公式的单元格，我猜。

有人使用更强大的公式或 UDF 吗？

Answer 1

这样的事情可能会起作用，但取决于工作表上没有“干扰”内容：

' "rng" is the top-left corner of the table you want to return
Function FullTable(rng As Range) As Range
    Dim lastCol As Long, lastRow As Long

    With rng.Parent
        lastRow = .Cells(.Rows.Count, rng.Column).End(xlUp).Row
        lastCol = .Cells(rng.Row, .Columns.Count).End(xlToLeft).Column
        Set FullTable = .Range(rng, .Cells(lastRow, lastCol))
    End With

End Function