向下一行填充值

Question

我有一个按钮，可以在每次输入表格中输入颜色，数量和到期日期。此代码正常工作，但我希望它填充下面的下一行，而不是每次都覆盖相同的行点击按钮

Sub add() 

Dim Colour As Integer 
Dim Quantity As Integer 
Dim Duedate As Date 

Colour = Range("F7").Value 
Quantity = Range("H7").Value 
Duedate = Range("J7").Value 

Range("B14").Value = Colour 
Range("C14").Value = Quantity 
Range("D14").Value = Duedate 

End Sub 

Answer 1

这应该做的伎俩：

Sub add() 
    With ActiveSheet.Cells(ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1, 2) 
     .Value = ActiveSheet.Range("F7").Value 
     .Offset(0, 1).Value = ActiveSheet.Range("H7").Value 
     .Offset(0, 2).Value = ActiveSheet.Range("J7").Value 
    End With 
End Sub