引用工作表和单元格以在公式中使用

Question

我有一个工作簿，我想在第一个工作表 (B1) 中引用一个范围，以便在第二个工作表 (B3) 的单元格中输入公式。我的问题是第一个工作表的名称总是会改变，所以我想解决这个问题，我会根据公式可以使用的单元格引用创建一个变量。这是我目前所拥有的：

Sub GetCellAddress()

Dim Cell As Range
Dim CellAddress As String
Set Cell = ActiveWorkbook.Worksheets(1).Cells(1, 2)
CellAddress = Cell.Parent.Name & "!" & Cell.Address(External:=False)

With ActiveSheet
    Range("B3").Select
    ActiveCell.Formula = _
    "=CONCATENATE(""Balance Sheet"","" - "",MID(CellAddress,FIND("" "",CellAddress,FIND("","",CellAddress)+2)+1,256))"
End With

'MsgBox CellAddress

End Sub

虽然 MsgBox 将确认我拥有的 CellAddress 是 Sheet1！$B1$1 我似乎无法通过仅使用 CellAddress 在公式中传递此引用，因为我得到了#NAME？使用时出错。 如果我使用 Sheet1!R[-2]C 作为 ActiveCell.FormulaR1C1 语法，它可以正常工作，但正如我之前解释的那样，我希望代码解析工作表名称。要么我的语法错误，要么我的方法可能是在另一张表中引用范围的不正确方式。谁能告诉我哪里出错了。

Answer 1

在尝试了上述解决方案后，我使用了以下语法：

 Sheets(2).Range("B3").Formula = "=CONCATENATE(""Balance Sheet"","" - "",
 MID(" & Sheets(1).Name & "!B1,FIND("" "", " & Sheets(1).Name & "!B1,
 FIND("","", " & Sheets(1).Name & "!B1)+2)+1,256))"

这似乎解决了我在引用工作表时遇到的问题。因此，只需在使用 @asleedawg 的 Index 方法时将引号放在正确的位置即可。

如果工作表名称中有空格，则必须小心。如果是，则在引用工作表名称的双引号周围添加一个单引号。

Answer 2

我怀疑问题可能是由于单元格地址的语法造成的。如果您从“Sheet1”中的“工作表空间”引用单元格 A1，您应该得到：

='sheet space'!A1

当工作表名称中包含空格时，请注意工作表名称包含在“'”中。当工作表名称是单个单词时，“'”会自动格式化，但仍然是有效的参考（即='Sheet1'!A1 是有效的）

试试：

CellAddress = "'" & Cell.Parent.Name & "'!" & Cell.Address(External:=False)

Answer 3

使用工作表索引号而不是名称：

据我了解，您的问题至少有一部分是您需要能够引用工作表，即使工作表的名称有时会发生变化。

您可以参考工作表的索引号而不是其名称。

这个临时子将在即时窗口中列出您现有工作表的名称和索引号：Ctrl + G

Sub CheckIdx()
   Dim ws as Worksheet
   For Each ws In Sheets
     Debug.Print ".Index=" & ws.Index,".Name=" & ws.Name,".CodeName=" & ws.CodeName
   Next ws
End Sub

名称改变时索引号不会改变。

如果您有一个名为“数据”且索引号为 3 的工作表，您可以按名称引用它：

Sheets("data")

...或者，按数字：

Sheets(3)

---

编辑：

正如@Chris 指出的那样，工作表Index 数字确实会发生变化，例如，如果工作表选项卡的顺序发生变化。

这可以通过protecting the workbook（有或没有密码）来防止，方法是点击：

• Review → Protect Workbook → （只应检查“结构” ) → 确定

• 密码不是必需的，但是是可选的。 Protecting the workbook structure 阻止用户添加、移动、删除或隐藏/取消隐藏工作表，并且与protecting the worksheet不同相同，因此仍可以编辑单元格等。

---

另一种方法是使用worksheet CodeName property 而不是Index。从技术上讲，这可以也可以改变，但不太可能。

我已将CheckIdx 函数（上图）更新为包含CodeName，所以如果你想走这条路。