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

将值填入下一行

1 个答案: