EXCEL每打印一次订单编号自动加一，

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1
End Sub
上面这个事件好像是一个打印事件,你在EXCEL编辑中是不会执行的
至于你所说的打一次编号就自动加一,这个所谓的打一次编号是什么意思?

至于想让指定的单元格加1
Sheets("Sheet1").Range("A2") = Sheets("Sheet1").Range("A2") + 1
以上这行代码倒是没错

至于你所说的提示缺少End Sub ,这肯定是因为某处代码中:
有起始事件"SUB.....",而没有"End Sub"
每个SUB 对应一个 End Sub,你仔细查看一下就知道了.

你按顺序编写两个，如LP20110609000下一个编号LP20110609001，然后选取........000和..........001，把光标移动到选取框右下角，等光标变成十字形后向下拖动，编码就自动生成了。

是这样的吗

你希望没打印一次就增加1呢，还是每增加一个订单加1？