双击 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Count = 1 Then UserForm1.TextBox1.Text = Target.ValueEnd Sub