第1个回答 2010-04-26
右击工作表标签,查看代码,把下面的粘上:
Public LastR, LastC
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If LastR <> "" Then
If LastR = 2 And LastC >= 1 And LastC <= 6 And _
Target.Row >= 4 And Target.Row <= 5 Then
Cells(LastR, LastC) = Target.Value
End If
End If
LastR = Target.Row
LastC = Target.Column
End Sub