Private Sub CommandButton1_Click() Dim I As Long I = Application.WorksheetFunction.Max(3, Range("B" & Rows.Count).End(xlUp).Row + 1) Range("B" & I).Value = InputBox("ÇëÊäÈë:")End Sub
输入框是输入一个数据回车还是一下子全输入。