你截图把 列都显示出来啊，我看着D5不仅有数字，数字前面还有编号啊
你试试这样行不
Sub 打印编码()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range(D5) = 编号： & val(right(range(D5),len(Range(D5)-3)) + 1
End Sub
EXCEL表格打印时怎样使每张上面都有标题,是在页面设置－工作表中，有个顶端标题行，就可选上面都有标题了。
底部都有说明、落款。在页面设置在页眉/页脚下，点页脚，自定义就行了。
我去 你这个完全不需要vba啊
只要你的表格是一摸一样的
拿么就非常简单了
编号：&((ROW(a2)−2)÷3+191500002)
我这个是你假如这个表格是三行的，拿么就直接拉下去就是了
a2:编号的开始位置
2:这个你设置的是a2拿么就－2，如果是a3就减去3
3:这个看你表格多少行，11行就11
点击文件菜单-页面设置 打开页面设置对话框点击工作表选项卡顶端标题行右侧选中区域，底部都有说明落款，可以添加页脚即可
楼主提问模糊：
1、可能表格就只有一页，是想随打印“份数”自动递增。
2、表格确实有很多页，需要在真正的每一页指定单元格按要求自动递增。
如果是第1种情况，请参考我的一个回答进行处理（网址：http://zhidao.baidu.com/question/316081017.html）。
如果是第二种情况，可通过在单元格插入格式化页码的方式处理：
1、定义“页码”：菜单“插入/名称”中填写“页码”，“引用位置”中填写“=IF(ISERROR(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1)+1)”
2、单元格插入格式化页码：（根据本题问）可在需要指定的单元格插入“=122+页码”（不要最外侧的弯引号），再把此单元格数据类型设置为“自定义”“000000”型。其它页单元格只需将此单元格复制过去即可。
3、以上第1、2步可以“达到效果”，但要是讲求处理速度的话，可用宏来一步到位。
举报成功
经过核实后将会做出处理
感谢您为社区和谐做出贡献
扫码参与新品0元试用
晒单、顶楼豪礼等你拿
