Sub 按钮1_Click() ActiveSheet.Print [a1] = Left([a1], 3) & (Right([a1], 6) + 1)End Sub
插入一个打印按钮
指定以上宏。
a1 为编号所在位置
点击按钮打印,编号加1
要用到workbook_beforePrint事件吧?详细请参考:打印后编号自动增加一位http://www.exceltip.net/thread-11831-1-1-2667.html