[算表] 重复复制贴上 自动存盘 自动打印

楼主: DCMH (DCMH)   2015-08-07 05:09:00
软件:excel
版本:2010
各位好,
最近老板开始要求把一些文书工作自动化,
而我完全不会vba,对于宏我只会用录的...
所以还请各位帮个忙,看怎么写会比较恰当。
问题1如下:
book1里有sheet1到sheet8共8个分页,
1. 把sheet2的A栏(从A2开始)资料贴到sheet3 的B2,
2. 将sheet3,sheet4,sheet8共三个分页另存成一个新档,以sheet3的B2为档名
3. 重复直到sheet2的A栏没有值为止
问题2 如下:
1. 把sheet2的A栏(从A2开始)资料贴到sheet3 的B2,
2. 打印sheet8,份数为sheet2的D25*2
3. 重复直到sheet2的A栏没有值为止
谢谢帮忙
作者: soyoso (我是耀宗)   2015-08-07 07:16:00
问题1.1 range.copy [destination]问题1.2 sheets.copy;另存workbook.saveas问题1.3 重复直到a栏没值,要看作用,如果是复制的话,应可用range.end;如每个储存格有其他用途(用于其他运算、当为档名时),则可用循环问题2.2 sheets.printout,份数为copies
楼主: DCMH (DCMH)   2015-08-07 09:44:00
感谢回答,但有点不太明白的是我的值一次贴一个,固定贴在sheet的B2,存完档后再贴下一个,然后再存盘,一直重复到A栏没有值为止,若用循环开怎么写,另外档名该如何设定呢?
作者: soyoso (我是耀宗)   2015-08-07 12:09:00
范围循环方面可google excel vba range loop档名方面workbook.saveas有filename的参数可以设定

Links booklink

Contact Us: admin [ a t ] ucptt.com