VBA 取得已選取位置的 欄名稱 (COLUMN)

Sub Get_Selected_Column_Address()

Set a = Selection      ' RANGE object
Set b = a.EntireColumn  ' RANGE obejst
 
MsgBox b.Address

End Sub