如果我有一个Range对象 - 例如，假设它在名为A1的工作表上引用单元格Book1。所以我知道调用Address()会给我一个简单的本地参考：$A$1。我知道它也可以被称为Address(External:=True)来获取包括工作簿名称和工作表名称的引用：[Book1]Sheet1!$A$1。
我想要的是获得一个地址，包括工作表名称，但不是书名。我真的不想调用Address(External:=True)并试图用字符串函数自己去除工作簿名称。我可以在范围内打电话来获得Sheet1!$A$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)
如果你希望它工作，即使工作表名称中有空格或其他有趣的字符。
对于困惑的老我一个范围
.Address（False，False，True）
似乎以格式TheSheet给出！B4：K9
如果它没有为什么标准..避免Str函数
可能只需要一个毫秒，并使用153个已经使用过的电子
约0.3微升
RaAdd = mid（RaAdd，instr（raadd，“]”）+1）
要么
'约1.7微秒
RaAdd = split（degree，“]”）（1）
[编辑于2009-04-21]
正如Micah指出的那样，这只有在您命名时才有效 特别的范围（因此。任何人？）是的，哎呀！
[/编辑]
我知道，派对有点晚了，但是如果有其他人在谷歌搜索中抓到这个（就像我刚才那样），你也可以尝试以下方法：
Dim cell as Range
Dim address as String
Set cell = Sheet1.Range("A1")
address = cell.Name
这应该返回完整的地址，例如“= Sheet1！$ A $ 1”。
假设您不需要等号，可以使用Replace功能将其剥离：
address = Replace(address, "=", "")
Split(cell.address(External:=True), "]")(1)
本是对的。我也想不出有什么方法可以做到这一点。我建议使用Ben推荐的方法，或者以下方法来删除工作簿名称。
Dim cell As Range
Dim address As String
Set cell = Worksheets(1).Cells.Range("A1")
address = cell.address(External:=True)
address = Right(address, Len(address) - InStr(1, address, "]"))
Address()工作表函数正是如此。因为它不是通过Application.WorksheetFunction提供的，所以我想出了一个使用Evaluate()方法的解决方案。
这个解决方案让Excel处理工作表名称中的空格和其他有趣的字符，这比以前的答案更好。
例：
Evaluate("ADDRESS(" & rng.Row & "," & rng.Column & ",1,1,""" & _
rng.Worksheet.Name & """)")
返回“Sheet1！$ A $ 1”，其中一个名为Range的rng对象引用Sheet1工作表中的A1单元格。
此解决方案仅返回范围的第一个单元格的地址，而不是整个范围的地址（“Sheet1！$ A $ 1”vs“Sheet1！$ A $ 1：$ B $ 2”）。所以我在自定义函数中使用它：
Public Function AddressEx(rng As Range) As String
Dim strTmp As String
strTmp = Evaluate("ADDRESS(" & rng.Row & "," & _
rng.Column & ",1,1,""" & rng.Worksheet.Name & """)")
If (rng.Count > 1) Then
strTmp = strTmp & ":" & rng.Cells(rng.Count) _
.Address(RowAbsolute:=True, ColumnAbsolute:=True)
End If
AddressEx = strTmp
End Function
Office网站上提供了Address（）工作表函数的完整文档：https://support.office.com/en-us/article/ADDRESS-function-D0C26C0D-3991-446B-8DE4-AB46431D4F89
我发现以下在我创建的用户定义函数中为我工作。我将单元格范围引用和工作表名称连接成一个字符串，然后在Evaluate语句中使用（我在Sumproduct上使用Evaluate）。
例如：
Function SumRange(RangeName as range)
Dim strCellRef, strSheetName, strRngName As String
strCellRef = RangeName.Address
strSheetName = RangeName.Worksheet.Name & "!"
strRngName = strSheetName & strCellRef
然后在代码的其余部分中引用strRngName。
您可能需要编写处理具有多个区域的范围的代码，这样做：
Public Function GetAddressWithSheetname(Range As Range, Optional blnBuildAddressForNamedRangeValue As Boolean = False) As String
Const Seperator As String = ","
Dim WorksheetName As String
Dim TheAddress As String
Dim Areas As Areas
Dim Area As Range
WorksheetName = "'" & Range.Worksheet.Name & "'"
For Each Area In Range.Areas
' ='Sheet 1'!$H$8:$H$15,'Sheet 1'!$C$12:$J$12
TheAddress = TheAddress & WorksheetName & "!" & Area.Address(External:=False) & Seperator
Next Area
GetAddressWithSheetname = Left(TheAddress, Len(TheAddress) - Len(Seperator))
If blnBuildAddressForNamedRangeValue Then
GetAddressWithSheetname = "=" & GetAddressWithSheetname
End If
End Function
.Address（,,, TRUE）（显示外部地址，完整地址）:-)
为什么不直接返回带有address = cell.Worksheet.Name的工作表名称，然后你可以重新连接地址，就像这个地址= cell.Worksheet.Name＆“！” ＆cell.Address
Dim rg As Range
Set rg = Range("A1:E10")
Dim i As Integer
For i = 1 To rg.Rows.Count
For j = 1 To rg.Columns.Count
rg.Cells(i, j).Value = rg.Cells(i, j).Address(False, False)
Next
Next