填充下一个空单元格，其值大于加1，直到填充所有行

Question

我正在为销售点系统创建电子表格。关于销售＆＃39;表格我有一个销售完成时的命令按钮。点击后，该表格中的所有数据都会移动到另一张表格中，即今天的销售数据。我需要帮助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栏有一个标题＆＃39;收据编号＆＃39; - 代码不能为此值加1。

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

Answer 1

只需将第一行更改为：

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

Answer 2

循环为每个收据分配收据编号的行。

>>> a, b = a[b] = {}, 5
>>> a
{5: ({...}, 5)}