代码很简单，比如sheet1表，Alt+F11调出VBE，双击sheet1，在代码窗口中输入以下内容：PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Target.copyEndSub