[算表] 不固定列資料複製貼上至不同檔案

看板Office作者shezion (= =)時間8年前 (2017/07/13 09:41)推噓0(0推 0噓 10→)

留言10則, 2人參與討論串1/1

軟體:excel 版本:2013 想請各位大大幫忙看看以下案例如何縮短VN指令碼目前我有兩筆excel檔案，一筆名為"PACK"，一筆為現正開啟中檔案"A"，我想要將PACK中固定範圍分別依序複製貼到目前開啟中檔案的各個工作表中，因為每次"PACK"的資料筆數不固定但不會超過50筆，而"A"的工作表數也是不固定的，但會和"PACK"的資料筆數相同。因為我是新手所以目前只能土法煉鋼，不管有幾筆資料要截取，都讓它抓50筆試試看。 EX: Sub 複製貼上() s = ThisWorkbook.Name Filename = "X:\PACK.xls" Workbooks.Open Filename Workbooks("PACK").Worksheets("工作表1").Range("A4:J5").Copy _ Destination:=Workbooks(s).Sheets(1).[A8] Workbooks("PACK").Worksheets("工作表1").Range("A6:J7").Copy _ Destination:=Workbooks(s).Sheets(2).[A8] . . . Workbooks("PACK").Worksheets("工作表1").Range("A82:J83").Copy _ Destination:=Workbooks(s).Sheets(40).[A8] 這樣跑的過程會出現"執行階段錯誤、陣列索引超出範圍"的錯誤訊息，雖然需要截取的資料仍能順利抓到，但因為指令只會執行到實際有資料的筆數，所以在後面的有些調整格式指令就通通都不會執行下去。 -- 桃~● ╱ . ◢██◣ 探猶　俺園 ╱ ╱ █ ◥▋ 主公！救我！囊如中在實畫. . ＋ ╱ ╱ ╱ ◣◤□︵□▋ / 取取百至家 ◆●●●Φ▃▃▃▃▃●█◤◥\ ▆_◤▃●~▃▃▃▃￠物敵萬名 . . . . ◥\ ◤█◤ ╱ ╱ ~● 之軍歸 ψfishhzy123 . . ▆▆◤ ╱ crabwind改洨 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.249.160.220 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1499910108.A.FAF.html