PTT數位生活區 / Office

[算表] 貼上不同檔案

看板Office作者 (佩蒂吉他)時間7年前 (2018/12/14 12:02), 編輯推噓0(0推 0噓 3→)
留言3則, 2人參與, 7年前最新討論串1/1
軟體: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
→
12/14 12:26, 7年前 , 1F
wb.sheets("匯入").range.end()取得最後一筆有值儲存格
12/14 12:26, 1F
→
12/14 12:27, 7年前 , 2F
offset偏移至下一個儲存格，pastespecial貼上值
12/14 12:27, 2F
→
12/14 14:42, 7年前 , 3F
解決了 感謝S大
12/14 14:42, 3F
‣ 更多 ptguitar 的文章
文章代碼(AID): #1S4ojoIW (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 ptguitar 的文章
文章代碼(AID): #1S4ojoIW (Office)