alt+f11 以下代码放在sheet1内
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r
r = Target.Row
If Sheet2.Range("b10") = "" Then
Sheet2.Range("b10") = Cells(r, 1)
Else
Sheet2.Cells(Sheet2.Range("b65536").End(3).Row + 1, 2) = Cells(r, 1)
End If
End Sub
追问不行啊,怎么回事呢?
追答注意代码放在sheet1内
本回答被提问者采纳