邮件合并示例

东门吹雪

上传者：baiqghd

邮件合并.rar (11.23 KB, 下载次数: 68)

2012-8-30 16:04 上传

点击文件名下载附件

201228

想知道你是怎么做出来的，太神奇了

1. Sub 宏1()
   
2. Sheets("sheet2").Select
   
3. For x = [F5] To [F6]
   
4. [F2] = x
   
5. ActiveSheet.PrintOut
   
6. Next
   
7. End Sub
   

复制代码

版主能告诉下，这段代码什么意思吗？

东门吹雪

201228 发表于 2012-8-30 20:13
想知道你是怎么做出来的，太神奇了版主能告诉下，这段代码什么意思吗？

1. Sub 宏1()
   
2.     Sheets("sheet2").Select    '选择sheet2工作表
   
3.     For x = [F5] To [F6]    '从F5单元格的值到F6单元格的值，循环里面的内容
   
4.         [F2] = x
   
5.         ActiveSheet.PrintOut    '打印当前工作表
   
6.     Next
   
7. End Sub

复制代码