vba - 如何在 Excel VBA 中获取包括工作表名称但不包括工作簿名称的范围地址？

Question

如果我有一个 Range 对象，例如，假设它引用名为 Book1 的工作表上的单元格 A1。所以我知道调用 Address() 会给我一个简单的本地引用:$A$1。我知道它也可以被称为 Address(External:=True) 来获取包括工作簿名称和工作表名称的引用:[Book1]Sheet1!$A$1。

我想要的是获取一个包含工作表名称的地址，但不包含书籍名称。我真的不想调用 Address(External:=True) 并尝试使用字符串函数自己删除工作簿名称。我可以在范围内调用任何电话来获取 Sheet1!$A$1 吗？

Answer 1

我能想到的唯一方法是将工作表名称与单元格引用连接起来，如下所示:

Dim cell As Range
Dim cellAddress As String
Set cell = ThisWorkbook.Worksheets(1).Cells(1, 1)
cellAddress = cell.Parent.Name & "!" & cell.Address(External:=False)

编辑:

将最后一行修改为:

cellAddress = "'" & cell.Parent.Name & "'!" & cell.Address(External:=False) 

如果您希望即使工作表名称中存在空格或其他有趣的字符也能正常工作。