vba - 使用上面的值加 1 填充下一个空单元格，直到填充所有行

Question

我正在为销售点系统创建电子表格。在“销售”表上，我有一个销售完成时的命令按钮。单击时，该工作表中的所有数据都会移至另一个工作表“今天的销售”中，我需要 vba 代码的帮助来为每个已完成的销售分配收据编号。当天的第一笔销售应该是收据号。 1，此后每增加 1。该命令按钮上的一些代码如下:

Dim ReceiptNumber As Long

ReceiptNumber = Sheets("Today's sales").Range("G" & Rows.Count).End(xlUp).Value + 1

For Each c In Sheets("Today's sales").Range("A:A")
If c <> 0 And c.Offset(, 6) = 0 Then
c.Offset(, 6) = ReceiptNumber
End If
Next

但这对于当天的第一次销售不起作用，因为 G 列有一个标题“收据编号” - 代码无法向该值加 1。

有人知道解决这个问题的方法吗？

Answer 1

只需将第一行更改为:

ReceiptNumber = Val(Sheets("Today's sales").Range("G" & Rows.Count).End(xlUp).Value) + 1