在下一个可用行中添加数据

Question

此宏在单元格 A10 中添加数据。现在，每次我运行再次使用时，数据都会被覆盖。我怎样才能在下面添加 1 cel？

Sub Invoer()


Dim Debiteurnummer As Integer
Dim Aantalpallets As Integer
Dim Totaalgewicht As Integer

Debiteurnummer = InputBox("Debiteurnummer invoeren")
Aantalpallets = InputBox("Aantal Pallets?")
Totaalgewicht = InputBox("Totaal Gewicht?")

Range("A10").Value = Debiteurnummer
Range("A10").Offset(0, 2) = Aantalpallets
Range("A10").Offset(0, 3) = Totaalgewicht




End Sub

Answer 1

添加动态搜索 LastRow:

Sub Invoer()

Dim Debiteurnummer As Integer
Dim Aantalpallets As Integer
Dim Totaalgewicht As Integer
Dim LastRow As Long

Debiteurnummer = InputBox("Debiteurnummer invoeren")
Aantalpallets = InputBox("Aantal Pallets?")
Totaalgewicht = InputBox("Totaal Gewicht?")

LastRow = Cells(Rows.count, "A").End(xlUp).row

Range("A" & LastRow + 1).Value = Debiteurnummer
Range("A" & LastRow + 1).Offset(0, 2) = Aantalpallets
Range("A" & LastRow + 1).Offset(0, 3) = Totaalgewicht

End Sub

在下一个可用行中添加数据

Add data in next available row

excel

vba

range

offset