动态引用 Excel 工作表

Question

我有一个应该很简单的问题，但我没有解决它。我为一家商店打印了价目表，今年他们将零件编号分成了 5 张工作表，而不是一张。

当用户想要打印价格标签时，她在 C10 中输入=，单击工作表“价格表”并导航到她需要的零件号。

C10 的结果公式为：​​=Pricelist!B40

E10 必须包含有关零件编号的更多信息，因此 E10 公式为：=VLOOKUP(C10,Pricelist!B:N,2,FALSE)

但是，现在有了新工作表，她可能会选择工作表“New_Items”，在这种情况下，C10 的结果公式为： =New_Items!B40

如何编写 E10 的公式，使其引用与 C10 相同的工作表。

我需要 E10 =VLOOKUP(C10,Pricelist!B:N,2,FALSE)

自动变为 *=VLOOKUP(C10,New_Items! B:N,2,FALSE)*

这有道理吗？是否可以让 Excel 根据另一个单元格的引用修改工作表引用？

蒂亚！

Answer 1

是的，您可以使用 INDIRECT() 来完成此操作，这可能需要一些工作，因为您需要以某种方式计算出工作表的名称。

=VLOOKUP(C10, INDIRECT( Concatenate(cell-with-sheet-name, "!B:N"),TRUE ) ,2,FALSE)

Answer 2

可以用vba吗？

如果是这样，请尝试这个简单的 udf

Function MyLookup(ref As Range, Offset as Long) As Variant
    MyLookup = Range(ref.Formula).Offset(0, Offset)
End Function

Cell E10 =MyLookup(C10, 1)

Answer 3

您可以创建 VBA UDF

Function GetShtNm(rng As Range) As String
    Application.Volatile

    If InStr(1, rng.Formula, "!") = 0 Then
        GetShtNm = vbNullString
    Else
        GetShtNm = Mid$(rng.Formula, 2, InStr(1, rng.Formula, "!") - 2)
    End If
End Function

并使用 Eddy 提供的间接公式。

此 UDF 将允许您在 VLOOKUP INDIRECT 函数中动态跟踪工作表名称更改。