[算表] 贴上不同档案

楼主: ptguitar (佩蒂吉他)   2018-12-14 12:02:55
软件:excel
版本:2007
写了个vba
是开启很多档案里面很多工作表
将工作表贴入 A档案的汇入工作表
A档案已经命名为wb
Workbooks(openfile).Activate
For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "全公司" And Sheet.Name <> "sheet1" Then
Range("A1:F50").Copy
wb.Sheets("汇入").Select <
作者: soyoso (我是耀宗)   2018-12-14 12:26:00
wb.sheets("汇入").range.end()取得最后一笔有值储存格offset偏移至下一个储存格,pastespecial贴上值
楼主: ptguitar (佩蒂吉他)   2018-12-14 14:42:00
解决了 感谢S大

Links booklink

Contact Us: admin [ a t ] ucptt.com