作者：乔山办公网日期：
返回目录：excel表格制作
1、录制宏
依次执行工具----宏----录制新宏，会出现如下图对话框，填写宏名、快捷键以及7a64e59b9ee7ad94331说明，之后确定即可。
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更多的功能需要你懂得VBA编程，而你的这个想法可能只能用这个方法实现。
这个其实可以不用做这么多的表头，在打印的时候设置重复标题行即可。
既然你想这么，可以用公式，在A18单元格输入 =A3往后拖。
sub 打印()
for i=起始号 to 结束号
sheets("工作表标签名").range("输入序号的单元格地址")=i
sheets("工作表标签名").printout
next
end sub