EXCEL VBA 複製兩個活頁簿到同一個活頁簿中

程式設計 office

toxin 2012-04-19 13:40:35 ‧ 13136 瀏覽

分享至

因工作需要
請問一下
假設資料如圖

但是兩個活頁簿中列數不一...且沒有定值，如活頁簿1...資料列數10，活頁簿2資料列數15
以上10跟15不一定相同....要講活頁簿1跟活頁簿2的資料合併至活頁簿3
麻煩各位大大了

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

ltc09

iT邦研究生 4 級 ‧ 2012-04-20 12:26:00

最佳解答

IA=1
IB=1
Do While Sheets("工作表1").Range("A" & IA).Value <> ""
Sheets("工作表3").Range("A" & IB).Value = Sheets("工作表1").Range("A" & IA).Value
Sheets("工作表1").Range("A" & IA & ":E" & IA).Copy Destination:=Sheets("工作表3").Range("A" & IA)
IA = IA + 1
IB = IB + 1
Loop

IA=1
Do While Sheets("工作表2").Range("A" & IA).Value <> ""
Sheets("工作表2").Range("A" & IA & ":E" & IA).Copy Destination:=Sheets("工作表3").Range("A" & IA)
IA = IA + 1
IB = IB + 1
Loop

回應 3
分享
檢舉

toxin iT邦新手 3 級 ‧ 2012-04-20 16:04:35 檢舉

感謝大大
但是這樣會有問題...就是工作表2的內容會覆蓋工作表1
如表1有10列資料
表2有3列資料
變成表3前3筆資料是表2的後7筆是表1的

現在主要問題是要抓表1複製到表3時，表2的資料要由表3的最後一筆後貼上

ltc09 iT邦研究生 4 級 ‧ 2012-04-20 17:23:23 檢舉

抱歉寫錯了
修正後
IA=1
IB=1
Do While Sheets("工作表1").Range("A" & IA).Value <> ""
Sheets("工作表1").Range("A" & IA & ":E" & IA).Copy Destination:=Sheets("工作表3").Range("A" & IB)
IA = IA + 1
IB = IB + 1
Loop

IA=1
Do While Sheets("工作表2").Range("A" & IA).Value <> ""
Sheets("工作表2").Range("A" & IA & ":E" & IA).Copy Destination:=Sheets("工作表3").Range("A" & IB)
IA = IA + 1
IB = IB + 1
Loop
試試看