先上代码,有时间再补上说明。
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