1、Excel对象方法-copy&pasteSub SelectRange()ThisWorkbook.Worksheets("Sheet1").Range("A1").ActivateActiveCell.CurrentRegion.SelectMsgBox"Theaddressoftheselectedrange"&Selection.AddressEnd SubSub CopyAndPaste()Selection.CopyRange("F3").SelectActiveSheet.PasteApplication.CutCopyMode=FalseEnd Sub语句Selection.Copy将选中的区域放到剪贴板上。接着用Paste方法将所复制的区域从剪贴板复制到新的位置上。最后，将Application对象的CutCopyMode属性设置为False。如果不这样做，源文本周围的选取框（移动的虚线）将一直保持，并且状态栏上将一直显示移动目标的指令。