Excel VBA 如何获取范围的完整地址，包括工作表名称

在Excel VBA中，有时需要获取包括工作表名称在内的范围的完整地址。在下面的文章中，将会介绍如何使用VBA代码来实现这个功能。

使用Range对象获取完整地址

Range对象是Excel VBA中最重要的对象之一，它代表了Excel工作表上的一个单元格或一组单元格。要获取包括工作表名称在内的范围的完整地址，可以使用Range对象的Address属性和Parent属性。

例如，假设有一个名为"Sheet1"的工作表，其中范围"A1:B10"包含了一些数据。下面的VBA代码可以获取这个范围的完整地址，包括工作表名称：

Sub GetRangeAddress()
    Dim rng As Range
    Set rng = ThisWorkbook.Worksheets("Sheet1").Range("A1:B10")
    Debug.Print rng.Parent.Name & "!" & rng.Address
End Sub

运行这个宏后，将在VBE的Immediate窗口中输出完整地址："Sheet1!$A$1:$B$10"。

在上面的代码中，首先使用ThisWorkbook.Worksheets方法获取"Sheet1"工作表的引用，然后使用Range方法获取范围"A1:B10"的引用。最后，使用Address属性获取范围的地址，并使用Parent属性获取工作表的名称。

使用Cells对象获取完整地址

除了使用Range对象来获取完整地址，还可以使用Cells对象和Range对象的Union方法。Cells对象可以用来引用单元格，它需要两个参数：行号和列号。

下面的VBA代码结合了Cells对象和Range对象的Union方法来获取包括工作表名称在内的范围的完整地址：

Sub GetRangeAddress()
    Dim rng As Range
    Set rng = Union(ThisWorkbook.Worksheets("Sheet1").Cells(1, 1), _
                   ThisWorkbook.Worksheets("Sheet1").Cells(10, 2))
    Debug.Print rng.Parent.Name & "!" & rng.Address
End Sub

运行这个宏后，将在VBE的Immediate窗口中输出完整地址："Sheet1!$A$1:$B$10"。

在上面的代码中，首先使用Cells方法获取范围的两个角落的单元格（即"A1"和"B10"），然后使用Union方法将它们合并成一个范围。最后，使用Address属性获取范围的地址，并使用Parent属性获取工作表的名称。

总结

在Excel VBA中，获取包括工作表名称在内的范围的完整地址可以使用Range对象的Address属性和Parent属性，也可以使用Cells对象和Range对象的Union方法。无论使用哪种方法，都可以轻松地实现这个功能。