iT邦幫忙

0

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

toxin 2012-04-19 13:40:3511693 瀏覽

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

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

1 個回答

4
ltc09
iT邦研究生 5 級 ‧ 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

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邦研究生 5 級 ‧ 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
試試看

toxin iT邦新手 3 級 ‧ 2012-04-23 09:12:59 檢舉

一切正常....感謝大大

我要發表回答

立即登入回答