先上代码，有时间再补上说明。
Dim Mefoucs As String
MsgBox "你选定的当前单元格是：" & Selection.Address
Mefoucs = Selection.Address
‘ActiveCell.Column
Range(Mefoucs).Select
Selection.Copy
Range("G17").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(Mefoucs).Select
原文：http://www.cnblogs.com/sunxun/p/6377935.html