→ soyoso: wb.sheets("匯入").range.end()取得最後一筆有值儲存格 12/14 12:26
→ soyoso: offset偏移至下一個儲存格，pastespecial貼上值 12/14 12:27
→ ptguitar: 解決了 感謝S大 12/14 14:42
軟體: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 <---這段要怎麼寫 貼上去還會一直往下(只貼值)
End If
Next Sheet
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.67.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1544760178.A.4A0.html