作者：乔山办公网日期：
返回目录：excel表格制作
按ALT+F11 ,复制度
PrivateSub Workbook_BeforePrint(Cancel As Boolean)
n = Val(Replace([a1], "单据内编号容", ""))
[a1] = "单据编号" & n + 1
End Sub
要么VBA编程，要么先在最后H列填上公式H2=if(B2<>"",H1+1,"")
然后填充这一列，再把这列的单元格格式设成自定义，右边输入000000
你完全没有必要每次生成一个文件，将每次的数据保存在一个单独sheet里面，每次运行这个表格，就去找最大的编号再加1就是本次的编号 。这样同时也就没有你的第二个问题和第三个问题，直接查看历史记录即可。