'ҵ4-ܵϣɾܵĲ֣˾䡰MsgBox rng.AddressLocalû

Sub ѡַ()
    Dim rng As Range, address As String    'һ
'ǰѡĶǵԪ򽫵Ԫַ,򽫿ı
    If TypeName(Selection) = "Range" Then address = Selection.address Else address = ""
    'һԻ, ûѡ, ĬʾaddressֵȻ󽫸ûѡrng
    Set rng = Application.InputBox("ѡ", "ѡ", address, , , , , 8)
    If rng Is Nothing Then Exit Sub
    MsgBox rng.AddressLocal
End Sub