1
我是一个VBA初学者，我试图让自动编号（1,2,3等）的代码进入一个单元格（从A2开始， A3，A4等），每次我提交数据的值行。我试着在谷歌上看，但所有的例子和答案都不符合我的要求。VBA用户表单输入数据并在下一个空行上编号
目前，我必须在我的工作表上手动编辑和编号。如果我删除了一行并手动更新列表号。下一个提交的数据将与更新列表号一起在下一个空行继续。我已经得到的其他代码。
你能帮我编写单元格的代码（erow，1）用于自动编号。提前致谢。 这里是我的代码：
Private Sub CB2_Click()
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'Cells(erow, 1) ??? to get auto numbering starting from A2 (number 1,2,3,etc)
Cells(erow, 2) = TB1.Text
Cells(erow, 3) = TB2.Text
Cells(erow, 4) = TB3.Text
Cells(erow, 5) = TB4.Text
End Sub
这里是我的片材的图像：
，这里是用户窗体：
简单的基于公式的解决方案如何？只需在'A'列使用'= row（） - 1'，你应该有你想要的数字（如果我理解正确的话）。 – Ralph