[算表] 貼上不同檔案

作者: 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