softsadwind

不好意思我也是剛入門的
這個程式要作用你要確認你的資料是在data
或者你已經要用這個程式抓別的分頁的資料
那就是要把sheets("data")內的data改成最終分頁

i=sheets("data").Cells(1,2)-sheets("sheet1").Cells(1,2)
sheets("sheet1").range (Cells(j+1,k),(cells(j+1,k+2)=sheets("data").range (Cells(j+1,2),(cells(j+1,4))
這兩行都要改...怎麼改要看你的需求吧...
基本的做法就是人工改資料頁的名稱
進階 就是可以看是自動抓第一個分頁當資料頁 或者其他方式...這點我就不懂了