Sub Get_Selected_Column_Address() Set a = Selection ' RANGE object. Set b = a.EntireColumn ' RANGE obejst MsgBox b.Address End Sub.
確定! 回上一頁