《完美Excel》微信公眾帳號：excelperfect
在Excel工作表中，通過頂部行的字母標識和左側列的數字標識，我們能夠很直觀地看出單元格或單元格區域的地址，即通常我們所說的單元格A1、單元格區域A1:B5等。
Excel對象模型也提供了Address屬性，讓我們通過VBA代碼知道單元格或單元格區域的地址。下面，我們舉幾個簡單的代碼示例。
代碼：
ActiveCell.Address
返回當前工作表中當前單元格的地址。
代碼：
Selection.Address
返回當前工作表中所選區域的地址。
代碼：
Range("A1").CurrentRegion.Address
返回當前工作表中單元格A1所在單元格區域的地址。
代碼：
ActiveSheet.UsedRange.Address
返回當前工作表中已使用單元格區域的地址。
上述代碼的運行結果如下圖所示。
Address屬性的語法如下：
Range對象 .Address(RowAbsolute, ColumnAbsolute,ReferenceStyle, External, RelativeTo)
說明：
所有參數均為可選項。
參數RowAbsolute設置為True，則返回的地址行部分為絕對引用。默認值為True。
參數ColumnAbsolute設置為True，則返回的地址的列部分為絕對引用。默認值為True。
參數ReferenceStyle設置返回的地址的引用樣式，可以設置為xlA1（A1樣式）或xlR1C1（R1C1樣式）。默認值為xlA1。
參數External設置為True，返回的地址包含工作簿名和工作表名。設置為False，返回本地地址（即不帶工作簿名和工作表名）。默認值為False。
如果參數RowAbsolute和ColumnAbsolute設置為False，參數ReferenceStyle設置為xlR1C1，那麼必須將參數RelativeTo設置為相對的起始單元格對象。
下面為我們設置Address屬性的參數的示例代碼和運行結果：
Sub AddressTest()
MsgBox "不帶參數的結果:" &_
ActiveCell.Address & vbCrLf& _
"設置RowAbsolute參數的結果:"& _
ActiveCell.Address(RowAbsolute:=False) & vbCrLf & _
"設置ColumnAbsolute參數的結果:"& _
ActiveCell.Address(ColumnAbsolute:=False)& vbCrLf & _
"前面兩個參數均設置的結果:"& _
ActiveCell.Address(RowAbsolute:=False, ColumnAbsolute:=False) &vbCrLf & _
"設置ReferenceStyle參數的結果:"& _
ActiveCell.Address(RowAbsolute:=False,ColumnAbsolute:=False, ReferenceStyle:=xlR1C1,RelativeTo:=Range("C1")) & vbCrLf & _
"設置External參數的結果:"& _
ActiveCell.Address(External:=True)
End Sub
代碼的示例工作表和運行結果如下圖所示：
---
如果您對本文有什麼建議或好的示例，請告訴我：xhdsxfjy@163.com
通過下列方式可以更快地了解完美Excel更新：
關注《完美Excel》微信公眾帳號：
方法1—點擊右上角的按鈕，選擇「查看公眾號」，點擊關注
方法2—在添加朋友中搜索excelperfect
方法3—微信掃一掃下面網址中的二維碼
http://www.excelperfect.com/wordpress/wp-content/uploads/2014/02/excelperfect.jpg
新浪微博名：完美Excel
個人博客：www.excelperfect.com
文章轉載請註明出處！