Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row > 4 And Target.Column = 1 And Target.Count = 1 Then
With Sheets("sheet2")
.Range("C65536").End(xlup).offset(1) = Target.Value
.Select
End With
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除！