ALT+F11》双击Sheet1对象》粘贴以下代码，OK
Dim OldTarget As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If OldTarget Is Nothing Then Set OldTarget = Target
If OldTarget.Address = "$A$5" And Target.Column = 1 Then
Sheets("sheet2").Range("C1") = Target.Value
End If
If OldTarget.Address = "$A$6" And Target.Column = 1 Then
Sheets("sheet2").Range("D1") = Target.Value
End If
Set OldTarget = Target
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024