Увеличение строки ячеек в excel

Question

У меня есть UserForm, который собирается отправлять данные из полей в столбцы A, B и C, но мне нужно, чтобы он перемещался вниз и заполнял следующую пустую строку каждый раз, когда пользователь попадает в submit.

Это то, что я до сих пор, я не знаю, что я бы поставил в сделать так, она будет идти от 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 часа опыта), и было бы неплохо, если бы решение было максимально простым. Любая помощь приветствуется!

Answer 1

Try ниже код:

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