工作表标签上单击右键---查看代码粘贴如下代码即可Private Sub Worksheet_SelectionChange(ByVal Target As Range)Selection.CopyEnd Sub