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