EXCEL使用宏实现自动编号打印解决打印一份改一次编号问题

Excel表格在工作中会经常涉及到，或许大家会遇到这样的问题，就是打印一份就要改一次编号，很多朋友都对此问题都束手无策。小编建议的方法就是如果表格中的某些数据与编号有某种关联的话，可以考虑用公式，如果没有牵涉到表格中的其它内容，而是与外设有关，可以考虑使用宏。这里的问题是没有牵涉到表格中的其它内容，而是与外设有关，因此可以使用宏来处理。

“宏”，指一系列EXCEL能够执行的VBA语句。如果你要自动执行重复任务，您可以在 Microsoft Office Excel 中快速录制宏，也可以使用 Microsoft Visual Basic 中的 Visual Basic 编辑器编写自己的宏脚本，或将所有或部分宏复制到新宏中来创建一个宏。

步骤：

1、录制宏

依次执行工具----宏----录制新宏，会出现如下图对话框，填写宏名、快捷键以及说明，之后确定即可。

（然后）停止录制

依次执行工具----宏-----停止录制

2、编辑宏

依次执行工具----宏----宏，会出现宏对话框，在宏名中选择之前录制的宏

选择刚录制的宏，单击编辑----打开VB编辑器

提示：除了通过“录制宏”，还可以通过“工具>宏>VB编辑器”，在VB编辑器菜单中选“插入>模块”来创建宏。从某种角度看，一个EXCEL文件就是一个Visual Basic工程，通过“工具>宏>VB编辑器”可以打开此工程(VBAProject)，并可看到工程资源管理器（如看不到，可通过“视图>工程资源管理器”打开它）。

如下图所示：

填写如下代码：

这里需要注意的是要同时修改编号数据的两个单元格分别为 G3  与 G17 ，如下图所示：

下图为一for循环，for循环编程语言中的语句之一，用于循环执行

3、接着设置G3和G17的单元格格式

如下，应该设置为“文本”格式，

如果EXCEL 中的G3和G17现在的编号均为00651（或者不同），那么，运行宏后，会打印出两张，

一张为00651，第二张为00652，运行完此宏后，此时G3和G17的值均变为00653了。

当然，如果想一次多打几张，如10张，则编辑此宏，将代码行For i = 1 To 2  中的2改为10即可，即For i = 1 To 10。以此类推。  

4、运行宏

如果打印，依次执行工具---宏----宏----运行宏

如果设置了快捷键，则按快捷键就可调出宏，下图红色圈就是以CTRL为辅助键的快捷键。

完毕。以上便是为大家介绍的关于Excel中自动编号打印使用宏的处理方法，经测试简单且实用，如果你在工作中有遇到类似的问题，可以参考下本文，如果没有涉及到，也请看看，以备不时之需。