在Excel VBA中,要获取范围的地址,包括工作表名称,而不是工作簿名称,可以使用以下代码:
Sub GetRangeAddress()
Dim rng As Range
Dim ws As Worksheet
Dim address As String
' 设置工作表和范围
Set ws = ActiveSheet
Set rng = ws.Range("A1:B10")
' 获取范围地址
address = rng.Address(ReferenceStyle:=xlR1C1, RowAbsolute:=True, ColumnAbsolute:=True)
' 输出范围地址和工作表名称
MsgBox "范围地址: " & address & vbNewLine & "工作表名称: " & ws.Name
End Sub
在这个代码中,我们首先设置了工作表和范围,然后使用Address
方法获取范围地址。ReferenceStyle
参数设置为xlR1C1
表示使用R1C1引用样式,RowAbsolute
和ColumnAbsolute
参数设置为True
表示行和列的绝对引用。最后,我们使用MsgBox
函数输出范围地址和工作表名称。
领取专属 10元无门槛券
手把手带您无忧上云