0

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

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
4

1 回答 1

0

这应该可以解决问题:

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
于 2013-03-12T13:38:49.923 回答