以下是可供使用的代码。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 Then For i = 1 To 6 Sheet2.Cells(1, i) = Cells(1, i) NextEnd IfEnd Sub