删除和替换工作表时如何保留公式对工作表的引用？

Question

我是一个应用程序的作者，在打开Excel工作簿之前，删除并重新创建一些工作表，例如下面示例中的“Sheet1”。

同一工作簿中的其他工作表（比如Sheet2）可能有引用替换工作表的公式，如下所示：

=IF('Sheet1'!A9="","",'Sheet1'!A9)

不幸的是，当更换纸张时，上述公式中对Sheet1的引用被破坏，变为

=IF(#Ref!A9="","",#REF!A9)

任何人都可以想到一种编码这个公式的方法，这样它就不会失败吗？例如，它可以从Sheet2中的隐藏单元格中获取工作表的名称吗？

我对Excel公式知之甚少，不知道可能性是什么。

TIA

Answer 1

使用间接寻址和命名范围

1）使用填充了文字“SheetN！”的幻像细胞（即Z1 ... Zn）。对于要删除的每个工作表。

2）定义所有外部可寻址单元格的范围名称和这些表格中的范围

3）在公式中，将引用替换为“间接”和命名范围的LITERAL。

实施例

替换

    =Sum(Sheet1!A:A)   

带

    =SUM(INDIRECT(Z1&"caca"))  

其中“caca”是在Sheet1中定义为A：A的命名范围，Z1包含“Sheet1！”

另一个例子：

替换

    =Sheet1!A1+Sheet1!A2

带

    =INDIRECT(Z1&"NamedRangeForA1")+INDIRECT(Z1&"NamedRangeForA2")  

现在您可以删除Sheet1而不会引用参考问题。

添加新的Sheet1时，您应该重新创建（在VBA中）命名范围。

编辑：在名称空白的情况下回答关于表格的评论

在这种情况下，你需要额外的fu :)

使用此：

 =INDIRECT("_'_" & Z1& "_'_!_" & "caca")  

应该删除“_”，因为我将它们插入那里只是为了便于单引号和双引号的可视化。

在单元格Z1中输入Sheet1的名称，不带引号且没有感叹号（因为它已经在公式中）。

HTH！