excel - 表单数据一直在第一行，不会向下移动到下一行？

Question

我正在使用 excel 中的表格在数据库 excel 表中输入日期。我的第一行在第 7 行。输入的第一个日期进入第 7 行。第二个表单条目仍然进行并替换第 7 行中的数据，而不是转到第 8 行。我知道我需要使最后一行 +1，但我不不明白

Dim last_row As Long
last_row = database.Range("D1").Value + 7
database.Range("b" & last_row).Value = form.Range("C4").Value
database.Range("c" & last_row).Value = form.Range("C5").Value
database.Range("d" & last_row).Value = form.Range("C6").Value
database.Range("e" & last_row).Value = form.Range("C7").Value
database.Range("f" & last_row).Value = form.Range("C8").Value
database.Range("g" & last_row).Value = form.Range("C9").Value
form.Range("c4:c6").ClearContents
MsgBox "data has been submitted"  

标签： excelvba