✔ 最佳答案
插入一個TextBox ActiveX 控制項
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If Cells(1, 2) = "" Then
Cells(1, 2) = TextBox1
Else
Cells([B65536].End(xlUp).Row + 1, 2) = TextBox1
End If
TextBox1 = ""
End If
End Sub