怎样在EXCEL单元格中，自动生成单据编号？

按Alt+F11，左边选 ThisWorkbook ,在右边窗口粘上下面的代码，
把你的“单据编号：知RY-20100000”单元格道位置放在代码：
Set a = Sheets("Sheet2").[A1]

在打印前就会询问是否更新单据编号，回答"是"会更新编号，然后打开回打印对话框。回答答"否"不会更新编号，可还会打开打印对话框。回答"取消"会取消打印。

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Set a = Sheets("Sheet2").[A1]
confirm = MsgBox("自动更新单据编号？", vbYesNoCancel)
If confirm = 2 Then Cancel = True: Exit Sub
If confirm = 6 Then
a.Value = "单据编号：RY-201" & WorksheetFunction.Text(Right(a.Value, 5) + 1, "00000")
End If

End Sub

放在“ThisWorkbook”的代码窗口中即可。

我大概计算了一下你的单据排行为11排  拿么 比方说你的第来一个为a1位置^自_^当然你的不是 我就打嗝比方 具体你自己看

拿么下个编号就应该在a12位置 于是，规律就出现了

=“no1.”知&(row(a12)-1)/2+160001

这样就算得出了具体的公式了

（至于道说的220变成了221，你完全可以写个公式＝220）

你在可以自己做个打印控件，写上几句代码就行了。