在Excel中增加单元格行

我有一个用户窗体将提交数据从字段到列A，B和C，但我需要它下移，并填写下一个空行每次用户点击提交。

这是我到目前为止，我不知道我会怎么做，所以它会从A2 / B2 / C2到A3 / B3 / C3等。

Private Sub Submit_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) Sheet1.Range("A2").Value = MatchNum.Text Sheet1.Range("B2").Value = TeamNum.Text Sheet1.Range("C2").Value = AllianceTeamNum.Text MsgBox "One record written to Sheet1" End Sub 

我在Visual Basic中是一个完整的初学者（大概1个小时的经验），如果解决scheme尽可能简单，那将会很好。 任何帮助将非常感激！

Answer 1

尝试下面的代码：

 Private Sub Submit_Click() With Sheet1 .Select Dim LastRow As Long LastRow = .Range("A65536").End(xlUp).Row + 1 .Range("A" & LastRow).Value = MatchNum.Text .Range("B" & LastRow).Value = TeamNum.Text .Range("C" & LastRow).Value = AllianceTeamNum.Text End With MsgBox "One record written to Sheet1" End Sub 

Answer 2

尝试这个：

 Dim start As Integer Private Sub CommandButton1_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xlUp) Sheet1.Range("A" & start).Value = "a" Sheet1.Range("B" & start).Value = "b" Sheet1.Range("C" & start).Value = "c" MsgBox "One record written to Sheet1" start = start + 1 End Sub Private Sub UserForm_Initialize() start = 2 End Sub