9

我在 Excel 中有一个表格，其列标题对应于我工作簿中其他地方的动态命名范围的一部分。例如，我有这些列标题：“10”、“20”等，以及这些动态命名范围：“ExampleRange10”、“ExampleRange2”等。我想通过连接输入引用 ExampleRange10 的 VLookup 公式字符串“ExampleRange”和列标题“10”。这将允许我简单地将公式扩展到表中的所有列，而不是在每列的公式中手动键入“ExampleRange10”、“ExampleRange20”等。

我知道 INDIRECT 函数，并且过去曾成功地将其用于命名范围，但在这种情况下，它似乎不适用于动态命名范围。我猜这是一个细微差别，与 Excel 如何定义动态命名范围有关（它们不会显示在公式栏左侧的命名范围下拉列表中，并且它们在 VBA 中有一些有趣的属性， 例如）。有没有一种方法可以将 INDIRECT 公式与动态命名范围结合使用，或者是否有另一种方法可以解决这个问题？

编辑：这是使用的确切公式。
这是主要公式：=VLOOKUP(B2,INDIRECT("ExampleRange"&C1),2,FALSE)其中 C1 包含“10”，而我的名为“ExampleRange10”的动态命名范围的公式是：=OFFSET(Sheet1!$F$2,0,0,COUNTA(Sheet1!$F$2:$F$25),2)。主公式返回“#REF！”，但当我删除动态命名范围公式并简单地将“ExampleRange10”定义为静态范围时，它可以正常工作。

4

8 回答 8

7

在进一步研究之后，我可以说，Excel 的INDIRECT功能根本不适用于动态范围。可能有一种巧妙的方法可以绕过使用INDIRECT和坚持非 VBA Excel 世界，但我不知道这种方法。相反，我最终创建了一个与此处描述的非常相似的用户定义函数。我将主要公式更改为，我创建的 VBA 函数的名称在=VLOOKUP(B2,DINDIRECT("ExampleRange"&C1),2,FALSE)哪里。DINDIRECT

这种替代方案的唯一缺点（可能是也可能不是缺点，取决于您如何看待它）是工作簿必须保存为启用宏的工作簿，并且使用自定义函数不是非常自我记录和需要向其他用户稍作解释。不过，考虑到所有因素，这对我来说是一个可以接受的解决方案。

对于链接厌恶，这里的代码：

Public Function DINDIRECT(sName As String) As Range
     Dim nName As Name

     On Error Resume Next
          Set nName = ActiveWorkbook.Names(sName)
          Set nName = ActiveSheet.Names(sName)
     On Error GoTo 0

     If Not nName Is Nothing Then
          Set DINDIRECT = nName.RefersToRange
     Else
          DINDIRECT = CVErr(xlErrName)
End Function

注意：尽管此解决方案有效，但我不会接受我的回答，因为我不想阻止其他人发布更好的解决方案。另外，我是该网站的新手，如果我通过回答我自己的问题来破坏任何礼仪规范，非常抱歉......我只是想我会分享我使用的确切解决方案，以防其他人发现它有用。

于 2013-02-14T12:58:01.800 回答
5

我最近碰到了这堵确切的砖墙，您已经猜到的答案就是您不能使用 INDIRECT 引用动态命名范围。

但是，您可以使用动态范围公式本身作为 INDIRECT 的参数，但这对您想要做的事情没有用。有点像 PITA，因为它是一种非常有用的功能。

于 2013-02-13T18:01:10.777 回答
2

如果您的数据具有 10、20 等标题，则无需使用 Indirect。为什么不直接使用索引/匹配来选择您需要的数据？

例如，将整个表命名为 ExampleRanges 并使用以下公式：

Index(ExampleRanges, match(B2, index(ExampleRanges, , 1), 0), match(C1, index(ExampleRanges, 1,), 0))
于 2013-12-26T21:08:53.237 回答
1

我知道这已经很老了，但我只是遇到了这个问题，并认为我会添加一个避免任何 VBA 编码的解决方案，以防它帮助其他任何偶然发现这个问题的人：

=VLOOKUP(B2,CHOOSE(C1/10,example10,example20,example30,example40),2,0)

这是假设命名约定为 10、20、30 等，对于数百个范围来说并不理想。

于 2014-06-16T15:10:22.577 回答
0

未经测试，但我认为这会起作用：

用户定义的函数返回动态命名范围的地址：

Function Named_Range_Address(Range_Name As Range, _ 
    Optional SheetName As Boolean) As String 

    Dim strName As String 
    Application.Volatile 

    If SheetName = True Then 
        strName = "'" & Range_Name.Parent.Name & "'!" & Range_Name.Address 
    Else 
        strName = Range_Name.Address 
    End If 

    Named_Range_Address = strName 
End Function

那么你应该能够使用你的 vlookup 公式：

=VLOOKUP(B2,INDIRECT(named_range_address("ExampleRange"&C1,TRUE)),2,FALSE)
于 2013-02-13T18:05:10.600 回答
0

今天我正在修改 Excel 命名范围，我发现，虽然您确实无法在INDIRECT()调用本身中计算范围的名称，但您仍然可以通过添加中间步骤以纯“Excel 方式”获得它：只需创建一些隐藏单元格，您可以在其中计算命名范围。

例如，假设A1包含范围名称的“动态部分”，然后A2使用公式= "ExampleRange" & A1，现在您有了完整的范围名称，您可以将其用作= INDIRECT(A2).

于 2015-06-12T08:37:21.680 回答
0

我知道这是一个非常古老的线程，但我遇到了同样的问题，所以也许我的解决方案可以帮助未来的人们。

基本上，我创建了一个宏，它会在保存时删除并重新定义范围，并为其命名。因此，INDIRECT 函数将起作用，因为范围不是动态的。您需要做的就是在将任何值添加到命名范围后保存工作簿

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim a, b, c, d, e, f As Integer
Dim data As Worksheet

Set data = ThisWorkbook.Worksheets("Data")

a = data.Range("A" & Rows.count).End(xlUp).row
b = data.Range("B" & Rows.count).End(xlUp).row
c = data.Range("C" & Rows.count).End(xlUp).row
d = data.Range("D" & Rows.count).End(xlUp).row
e = data.Range("E" & Rows.count).End(xlUp).row
f = data.Range("F" & Rows.count).End(xlUp).row



ActiveWorkbook.Names("KP").Delete
ActiveWorkbook.Names("KPT").Delete
ActiveWorkbook.Names("AP").Delete
ActiveWorkbook.Names("APT").Delete
ActiveWorkbook.Names("DISC").Delete
ActiveWorkbook.Names("SEATS").Delete

ActiveWorkbook.Names.Add Name:="KP", RefersTo:="=Data!$A$2:$A$" & a
ActiveWorkbook.Names.Add Name:="KPT", RefersTo:="=Data!$B$2:$B$" & b
ActiveWorkbook.Names.Add Name:="AP", RefersTo:="=Data!$C$2:$C$" & c
ActiveWorkbook.Names.Add Name:="APT", RefersTo:="=Data!$D$2:$D$" & d
ActiveWorkbook.Names.Add Name:="DISC", RefersTo:="=Data!$E$2:$E$" & e
ActiveWorkbook.Names.Add Name:="SEATS", RefersTo:="=Data!$F$2:$F$" & f

End Sub
于 2017-09-07T20:29:53.020 回答
0

添加一个新的转折点，可以将命名范围与 Address 和 Indirect 函数一起使用。我有一个案例，我正在为一系列表设置命名范围并使用以下内容：

Named Range: WWDH-FF-PI which points to Linear!$A$19 (first cell in table)

获取地址： $T$56: =ADDRESS(MATCH(S56,Linear!A:A,0),1,1,1,"Linear")

然后使用多次复制的偏移函数创建数据透视表：

=OFFSET(INDIRECT($T$56),C5,$T$57-1)

因此，可以将 Address 函数嵌入（或包装）到 Indirect 函数中以创建动态单元格地址。

于 2015-11-17T19:35:18.097 回答