1 2 3 4 5 6

廣告

網友您好,若是您覺得我寫的工具或文章對您有幫助,
而您或者您的朋友有在博客來購物,可以透過底下連結

如何在博客來購物贊助網站或是點選計數器下方的博客來圖示來讓網站可以永續經營。

2008年10月5日 星期日

如何快速將Excel多個工作表合併成一個

一般人在使用Excel大部分會用工作表來分類,如果要把分類後的資料再合併成一個檔案時,就必須一直使用複製貼上的功能,還要算要貼在那裡,很不方便,還有的資料會有欄位名稱,copy時,要省略欄位名稱,所以我寫了這一支可以自動合併的VBA。
練習檔案:
http://download.bestdaylong.com/f9.htm 主程式
http://f272586.googlepages.com/sheets.xls 要合併的練習檔
2009/7/9新增水平合併功能(下面連結)
http://download.bestdaylong.com/f10.htm
1.將下載的2個練習檔放在一起 2. sheets是要合併的內容 3.開啟sheetsmerger.xls會出現安全性警告,選啟用巨集 4.將要設定的資料填寫完畢,按下〔開始合併Excel活頁簿〕 5.合併結果會放在〔合併結果〕活頁

161 則留言:

Liang 提到...

大大真有佛心來的,這個問題也是我多年的困擾,大大的幫忙解決了大家的問題,真是一個大善人呢!感謝哦!

慈憶 提到...

那可以再請問一下~~
若是說 我有100家門市30項產品
想要建立每天每家門市的每個品項銷售量
**銷量從網站是下載是excel檔案
那我應該要怎麼做蔫??

一整天 提到...

慈憶您好:
您可以透過我寫的另一篇
http://272586.blogspot.com/2008/07/excelcopy_31.html
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中,並以檔案的檔名作為工作表的名稱
再透過"如何快速將多個Excel活頁簿合併成一個",把它合併成一個檔案.

慈憶 提到...

不好意思~~ 先謝謝你的回覆。不過,我可能沒有把我想要的表單說清楚,所以你回覆的這各不是我想要的答案。
我要的是
10/1
1號店銷售5個
3號店銷售3個
10/2
1號店銷售2個
2號店銷售4個
...
...

如果我要再同一個sheet上面
建立直列1.2.3....號店
橫欄10/1.10/2.10/3....
記上每家店每天的銷售數量
若是說每天都有新的下載資料
那我應該要怎麼做會比較快完成
而不是開2個excel表同是對帳把資料填上

一整天 提到...

慈憶您好:
您可以打處理前,跟處理後的excel檔案寄到我的信箱(imingho@gmail.com),這樣我比較會知道您要的東西.

caacaao 提到...

請問一下這個VBA若是檔案內容列若有空格就只會合併到標題列?該如何解決呃?若是內文有一些設計,只有某幾欄或是列有資料,但格是很固定,要如何改呃?謝謝你喔: )

一整天 提到...

caacaao您好:
方便寄給我您的檔案格式.我再看看程式是那裡要修改.imingho@gmail.com

繼光 提到...

請教一下,我執行了大大放上來的兩個程式,可以執行後,他說'range'方法('_worksheet'物件)失敗,請問我該怎麼處理,謝謝

Liang 提到...

大大可以再請問一下,可以將檔案A,B,C裡的其中一個SHEET 1合併在再一個檔案裡的SHEET 1嗎?

檔案A,B,C裡各有10幾個SHEET,但是3個檔案裡只要其中一個SHEET 1合併在一起,可以這麼做嗎?
謝謝!

一整天 提到...

繼光您好:
請問您用的office版本是多少?,我在excel2003測試,沒有出現您說的問題.

一整天 提到...

Liang您好:
您可以透過我寫的另一篇
http://272586.blogspot.com/2008/07/excelcopy_31.html
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中,並以檔案的檔名作為工作表的名稱
再透過"如何快速將多個Excel活頁簿合併成一個",把它合併成一個檔案.

繼光 提到...

我是用07的 該不會是版本有問題吧
謝謝你的回答~~~~

一整天 提到...

繼光您好:
我己經將程式修正了.目前在excel2007己經可以正常運作,您只要重新下載就可以.

jj 提到...

感謝您提供的程式!另外,我想請問一下,假如今天我有兩份資料內容大致一樣工作表,想透過合併的方式找出不一樣的資料內容並且標記出資料相異的儲存格,再逐一檢查並決定是否接受變更,該如何做呢?謝謝~~

一整天 提到...

jj您好:
如果是兩份活頁要比較資料,我會用我另一支程式.
Excel資料合併
http://272586.blogspot.com/2007/12/excel_07.html
把兩個活頁都合併成單欄的資料,
再透過
如何快速比對出兩種資料的差異性
http://272586.blogspot.com/2007/11/blog-post.html
找出兩邊的差異.

Albertbug 提到...

請問你有初始copy的列數但是可以幫忙在設定結束的列數跟欄數嗎??麻煩新增謝謝你

一整天 提到...

Albertbug您好:
結束的列數跟欄數,我己經有寫自動偵測,因為毎一個活頁的結束的列數跟欄數都會不一樣,還是您的資料我的程式無法處理,如果是的話,寄到我的信箱,我再幫您看是什麼問題.

女子木羕白勺.日青 提到...

您好,想請問您一個問題,若是我的表格是制式的,裡頭有N間學校和機關人員的合計,我想要請學校機關回報人員的異動情形,但由於機關學校加起來幾百間,一時半刻之間我也沒辦法拿到所有人的email,唯一能做的就是將這張總表用電子公文發給所有的人,請他們填報自己機關的部分再回傳。若是這樣的情況,我該如何合併表單的資料在同一張表格裡呢?謝謝哦!

一整天 提到...

女子木羕白勺.日青您好:
您可以透過我寫的另一篇
http://272586.blogspot.com/2008/07/excelcopy_31.html
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中,並以檔案的檔名作為工作表的名稱
再透過"如何快速將多個Excel活頁簿合併成一個",把它合併成一個檔案.

再利用我寫的
http://272586.blogspot.com/2007/09/excel_28.html
Excel如何刪除多餘的資料

thomas 提到...

一整天您好,想請問一下
merger01,merger02,merger03的表頭都一樣,合併結果能不能只留下merger01的表頭其它的不要

一整天 提到...

Thomas Lee您好:
您只要把"開始copy列數"設為2,就會從第二列開始copy,最後您再手動把第一列加上就可以.

ettenna 提到...

merger01,merger02,merger03的名稱可以改成自己要的檔名ㄇ??

ettenna 提到...

merger01,merger02,merger03的名稱可以改成自己要的名稱ㄇ..如果改了好像就不能合併?.3Q

一整天 提到...

ettenna 您好:
可以改成自己要的名稱,但是要記得大小寫字母,Excel活頁預設的Sheet1第一碼為大寫.

cacu 提到...

大大你好!
原本活頁簿中空白的欄位可以保留嗎?還有合併後合計怎麼不見了~:(~

一整天 提到...

cacu您好:
您可以把處理前,跟希望處理後的excel檔案寄到我的信箱(imingho@gmail.com),這樣我比較會知道問題所在.

來者無名,去者無跡 提到...

站長您好,我要合併的活頁簿跟這功能是同一個檔時,會出現錯誤,但我對vb語法不懂,不知要如何改寫。

目前我只知道將
'Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename
此行註解掉。

但下面這行我不知道要怎麼改寫
Set objsheet = Sheets(sheetname) '切換視窗


非常感謝您的幫忙。

一整天 提到...

來者無名,去者無跡您好:
這支程式當初的設計,就是處理另一個Excel檔案的活頁,您如果要把它變成同一支,會有一些問題,您可以把您的檔案寄給我,我再幫您看看.

珊mf結合 提到...

請問一下是否可以將多個活頁簿合併成一個時的資料設起始與終止的合併成想要的部份呢? 請告知謝謝familyying99@yahoo.com.tw

學院 提到...

您好~

將多個Excel的活頁合併成一個這支程式碼,我開在2007EXcel 似乎無法轉換成功~
煩請大大指點,感謝~

一整天 提到...

珊mf結合您好:
我將程式做了修改.
加入
結束copy欄數(0代表系統自動偵測)
結束copy列數(0代表系統自動偵測)

程式下載,請到[首頁右上方],[檔案下載],找到sheetsmerger.xls下載

一整天 提到...

學院您好:
您試看看
http://272586.blogspot.com/2009/11/excel2007excel2003.html
在Excel2007如何開啟巨集

如果還是不行,方便寄有問題的檔案給我.我再執行看看,是那出了問題。

珊mf結合 提到...

謝謝您,但可以在麻煩您解決一下我的問題,那就是我要從第二欄至第五欄的話程式要如何改呢?謝謝

珊mf結合 提到...

謝謝您,但可以在麻煩您解決一下我的問題,那就是我要從第二欄至第五欄的話程式要如何改呢?謝謝

一整天 提到...

珊mf結合您好:
您設定
開始欄:2
開始列:0
結束欄:5
結束列:0
就可以達到您要的需求.

珊mf結合 提到...

真的很謝謝您,不知道你會不會廣告設計的部份

一整天 提到...

珊mf結合您好:
廣告設計的部分不是我熟悉的領域。

SKY 提到...

hi there,
感謝你的巨集
真的很好用

bruce 提到...

您的程式相當好用....感謝
但我在執行合併時出現
執行階段錯誤"1004"
無法改變合併儲存中的一部分

錯偵 出現以下
Sheet2.Cells(1, z).Select
"ActiveSheet.Paste"
z = z + y - m + 1
Else

可以提供一下意見嗎?

一整天 提到...

bruce您好:
您方便將有問題的檔案寄給我.方便我查看是什麼原因造成的錯誤.

bruce 提到...

檔案以傳送....還請您有空時解答
再次感謝

無上師電視只播正面節目 提到...

謝謝您這好省時間喔
我的問題事請教:我的表格是水平合併
合併後想改為垂直列示,不然橫到太寬了
請問要如何做呢?
謝謝

紋立 提到...

不好意思
剛剛逛到你的部落格
發現幾個教學都超好用
對我的幫助很大

我想請問你一個excel的問題

假設excel中
有10(有重複)個字串 例如 {張 張 林 林 林 林 陳 陳 王 李}
怎麼亂數填入另一個excel中的10個空白處

並且驗證行與列沒有重複?

因為一直以來 我都用人工的方式填空
但是資料有幾百筆 眼睛都花了 ><
想請問你像這種狀況
可以自動處理嗎?

一整天 提到...

bruce您好:
我有回信給你,順便把您的問題寫出來,方便以後的人知道。如果是最後一筆有合併儲存格的話,會讓筆數計算錯誤,影響到不能貼上,且出現
執行階段錯誤"1004"
無法改變合併儲存中的一部分

一整天 提到...

紋立您好:
  您方便寄Excel檔的範例給我,並說明處理前及處理後的狀況給我,這樣我比較知道要如何幫您。

bigrayn8 提到...

您好,因為有很多工作表,如果需要插入一欄將sheetname加註進去可行嗎?

bigrayn8 提到...

抱歉打擾了,重新描述我要問的問題;我現在有九個倉庫資料表,資料表內依照類別(變頻器、機板、按鈕..等約八十幾項)分類成各工作表,現在的需求是要做成一張總表。
我先用sheetsmerger分別合併A~I倉庫資料成A_list~I_list資料表,然後以mergertosheet合併成storeroom_list.xls,再以sheetsmerger合併各庫房資料成為總表。
問題來了!若sheetsmerger能將工作表名稱插入於第一欄(或其他欄位),就不用以人工方式填入各類別分項及庫房位置了^_^,大大能幫幫我嗎?
另外,若是sheetsmerger這支有autoupdate選項的話就太完沒啦!感謝大大費心了~

P.S. 由於使用mergertosheet合併時只會取Sheet1工作表,我已先將sheetsmerger內"參數設定"改為Sheet2,"合併結果"改為Sheet1,並將程式碼內Sheet2取代Sheet1,Sheet1取代Sheet2

一整天 提到...

bigrayn8您好:
我己經將這個功能加上,請到範例程式下載
http://sites.google.com/site/272586/fan-li-cheng-shi
找到
sheetsmerger.xls
檔案下載即可.

bigrayn8 提到...

一整天大大打擾了,我試過了您的程式,我在B7填入Y,合併結果中有多了A欄,但卻秀不出各工作表的sheetname;抱歉因為是新手,在VBA中還看不出端倪,可以幫我嗎,感恩阿~

一整天 提到...

bigrayn8您好:
我己經將問題修正了.麻煩您重新下載即可。

bigrayn8 提到...

一整天大大,真的太謝謝你了~幫了我很大的忙^_^
有個建議,當我使用V4版時將B5設為0時,好像會取最多的列數COPY,但我各工作表的列數不一,後來複製舊檔內的程式碼後已正常:
'讀取來源檔案的X(列數),Y(行數)
x = n
y = m

Do While True
kk = ""
For l = 1 To 10
For k = 1 To 30
If IsError(objsheet.Cells(x + l, k)) = False Then
kk = kk & objsheet.Cells(x + l, k)
End If
Next
Next
If kk = "" Then Exit Do
x = x + 1
Loop

Do While True
kk = ""
For l = 1 To 10
For k = 1 To 30
If IsError(objsheet.Cells(k, y + l)) = False Then
kk = kk & objsheet.Cells(k, y + l)
End If
Next
Next l
If kk = "" Then Exit Do
y = y + 1
Loop

再次感謝您~

一整天 提到...

bigrayn8您好:
謝謝您的告知,我己經把程式修成舊的判斷方式。

kevin 提到...

請問一下可以讓合併完的分頁產生在同一個檔案下嗎?(很頭大)
可否請大大幫我指點迷津

kevin 提到...

請問一下可以將合併完的分頁產生在"自動合併的VBA"的新分頁之中嗎?而不是另外開新的分頁去存放
(很頭大)
可否請大大幫我指點迷津

一整天 提到...

kevin您好:
這支VBA並沒有開新的工作表.您可以麻煩您用圖說明,並寄到我的信箱.

小芹 提到...

你好^^很高興來到你的部落格,有點問題想請問你.如果我匯入的excel檔案,可以利用空白行區別開來嗎?還有,我匯入的檔案名稱可自己選擇要放置於A,B,C,D哪個欄嗎?

小芹 提到...
作者已經移除這則留言。
小芹 提到...

想再請教您一個問題,如果我更改任何的excel檔案的內容,那合併後的檔案會更著一起改變嗎?例如多增一行或更改內容資料.謝謝^^

一整天 提到...

小芹您好:
關於第一個問題.我目前沒有設計任何空白行區隔,您可以寄一個範例給我.我再看要如何修改.還有如果您要放在不同欄位.可以在合併後再自行移動欄位.

第二個問題.修改後合併後的欄位並不會自動變化.您要自己在合併一次.

毅廷 提到...

您好:今天試了您寫的程式發現很好用,不過我遇到的狀況是我的sheet的名稱剛好都是數字,所以在執行時會出現「陣列索引超出範圍」的錯誤,在第155列左右「Set objsheet = Sheets(sheetname) '
」中,我後來猜想可能是字串和數字誤判造成,所以我在一開始約37列那裏將sheetname先定義成string後就可以正常整併了,個人經驗請參考。很謝謝您的程式,感激不盡!!

一整天 提到...

毅廷您好:
感謝你回報的錯誤,我己將程式碼修正.並上傳網站上了.

Angel 提到...

您好!
請問如果我將Sheet設定為數字後,就無法合併了,請問要怎麼處理?謝謝

一整天 提到...

Angel您好:
您可以到
http://sites.google.com/site/272586/fan-li-cheng-shi
下載sheetsmerger.xls,這一版己經修正這個問題.

賴小美 提到...

想請問我有數個sheet的子頁,我想要把所以有子頁資料合併到總表,然後自動更新到總表,只有增加了子頁就會到總表,但總表的資料和子頁的資料不太一樣,子頁有圖檔,但圖檔可以不用到總表,因為總表要給主管,子頁的是給客戶,請問這樣要如何使用,我這個檔案下載了,但巨集我會用,可以請把檔案給你,幫我看一下如何使用嗎?

賴小美 提到...

我收到你的檔案了~非常謝謝你
不過因為我的SHEET之後會一直增加會很多,而且總表要有固定的格式,可能比較困難點,只是不想要自已每次都KEY進去裡面才想說看他會不會這自代入。

mei-hui 提到...

dear 大大
因為要合併的資料超過2003 excel版一個表單的總列數 請問您有存成 2007 excel版 的 file 可以分享嗎? 因為真的是需要整合的資料太多筆了所以只有 2007的 excel sheet才放的下,所以想請教大大這個問題感恩您!!您這個成是真是我們的救星謝謝您的share ^_^

一整天 提到...

mei-hui您好:
我己經將Excel2007版上傳了。請到
檔案下載,請到[首頁右上方],[範例檔案下載],找到sheetsmerger.xlsm下載

ally 提到...

老師
看見您寫的ab了
太神奇
真的真的感謝您
謝謝
Orz

祝平安
ally敬上

mei-hui 提到...

Dear 大好心人一整天:
非常謝謝 您的回覆及分享您真是太神奇啦

mei-hui 提到...

Dear 版大:
非常感謝您的回覆與分享,您真是太神奇啦

SISI 提到...

那請問有單純把二或三欄放在同一欄,並把篩選出不重覆的資料的函數嗎?

例: A欄 B欄 C欄 結果:小明
小明 小胖 小藍 小王
小王 小香 小王 小胖
小胖 小陳 小香 小香
小陳
小藍

提到...

一整天您好:祝您新年快樂~~~事事順心~~
可否請問,若是將一個工作表中同欄位相同資料分成各個工作表,我應該要怎麼做?

提到...
作者已經移除這則留言。
一整天 提到...

玥您好:
您可以透過
http://272586.blogspot.com/2008/10/excel_24.html
如何將Excel依欄位分類自動儲存並以分類名稱為檔案名稱

再利用
http://272586.blogspot.com/2008/07/excelcopy_31.html
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中,並以檔案的檔名作為工作表的名稱

一整天 提到...

SISI您好:
我看不太懂您的問題,如果您是要把兩欄的內容放在一個欄位可以利用文字相加的函數
例如:
您想把儲存格A1跟儲存格B1的內容放在儲存格C1
可以在儲存格C1輸入=A1 & B1就會把A1跟B1的內容放在C1
最後再利用countif找出次數為1就是不重覆的資料
http://272586.blogspot.com/2007/08/excelcountif.html
Excel中要如何判斷資料是否有重複(CountIF的應用)

michale 提到...

一整天大您好
我要合併五個報表(動態每天自動更新)
合併到第二個時就出錯了
因為第二個sheet ,今天是空白,請問這樣如何解決?

出錯是寫執行階段錯誤"9"
陣列索引超出範圍

然後就停在第二個沒資料的sheet了
謝謝您

一整天 提到...

michale您好:
您可以將您的程式寄給我,我幫您查看是那出了問題,我的信箱在右上方有。

Tina 提到...

您好,
可以再請問一下~~
除了將Excel多個工作表合併到一個檔案不同工作表中,我還需要針對不同的工作表將特定欄位選取某種類然後再將其中幾欄隱藏起來,應如何修改呢?
非常感謝!!

Tina

一整天 提到...

Tina您好:
您可以將不同的工作表一次選取,再做欄隱藏,就會全部都隱藏,工作表選取可以按住Ctrl或是Shift選項,Shift是選取開始到結束,Ctrl可以加選或是取消.

敏如 提到...

一整天您好,
非常感謝您的幫忙,受用無窮。我想請教一下,您的程式在合併工作表,預設是垂直合併。若我需要水平合併工作表該怎麼做呢?

非常謝謝您~~

一整天 提到...

敏如您好:
您可以下載底下的檔案
http://f272586.googlepages.com/sheetsmerger_v2.xls
在B5將水平合併(Y/N)由N改成Y就可以水平合併。

misswhite 提到...

您好
如果我有一筆資料有sheet1和sheet2要將它們水平整合但sheet1的同月份資料多筆但sheet2資料只有一行.如何整合??以下為例:

sheet1
代碼 名稱 月份
1001 a 2000/03
1001 ab 2000/03
1001 bb 2000/03
1001 c 2000/04
1001 ca 2000/04

sheet2只有提供以下

代碼 月份 開價 收價
1001 2000/03 17.1 16.4
1001 2000/04 18.5 17

如何將sheet2的各月份對到sheet1來合併??因為每一月份的數量皆不一樣(可能3月有10筆.4月只有5筆)

因為全部資料有38萬筆如果慢慢複製貼上好像很浪費時間
謝謝您~~:))

ally 提到...

老師:
我又來魯您了.
有一個excel2007的檔案,
檔案內有50多萬列的資料,
不過,
資料全部都是簡體中文,
請問有沒有辦法轉換成繁體中文?
謝謝
祝平安
ally敬上

一整天 提到...

misswhite您好:
是否方便寄Excel檔(使用範例)說明處理跟處理後情形.謝謝.

一整天 提到...

ally您好:
您可以透過Excel2007上方的[校閱],再選簡轉繁就可以.

alex 提到...

老師您好:
請教一下『如何快速將Excel合併儲存格還原成各欄(列)』
舉例說明:
A1 小明
A2 小明
A3 小明
A4 小明
A5 小明
合併後結果
A1~A5只秀出一個『小明』,亦即『合併儲存格模式』。
如今想還原回原來狀態,請教老師,是否有快速處理的方式,謝謝解惑~~

一整天 提到...

Alex您好:
如果您只有一欄,合併以後是不可能再還原,除非您有規則才有可能復原.
例如:
小明,5
這樣就知道是重覆5次,才有可能還原成原來的5筆資料.

bonny 提到...
作者已經移除這則留言。
bonny 提到...

您好,
我想請問,要如何將多個Excel檔案中的某幾個sheet(每個檔案所需要合併的sheet不同)合併在一個sheet中呢?
感謝!

一整天 提到...

bonny您好:
目前還沒有時間寫類似的程式.您可以先利用
http://272586.blogspot.com/2008/07/excelcopy.html
如何一次將多個Excel檔案copy到一個檔案內
來把您合併後的檔案變成一個檔案.

bonny 提到...

了解...謝謝你的回答~~
你的程式真的很好用很方便,感謝唷~

小采 提到...

感謝版大的熱心講解解決了在下很多問題
如今在下在工作上遇到個問題~
不知道可否請教一下

我有五個excel檔裡面有每個人的一些資料
然後五個excel檔內可能都會有同一個人的名字~只是不同的資料
如今
我希望能打出一個人名
然後會自動在這些檔内跑出這個人的所有相關資料~不知道是否可以作到??

小采 提到...
作者已經移除這則留言。
一整天 提到...

小采您好:
我會建議您把檔合成一個再處理會比較方便,您可以透過
http://272586.blogspot.com/2008/07/excelcopy.html
如何一次將多個Excel檔案copy到一個檔案內

geway 提到...

拜讀您以下文章及擴充程式幫助很多
1 如何一次將多個Excel檔案copy到一個檔案內的不同工作表中,並以檔案的檔名作為工作表的名稱
2 如何快速將Excel多個工作表合併成一個

但我的問題差一點就更完美 情況如下:
總公司有一 Excel檔(單一工作表) 每周收集6個分支機構email 寄來相同格式Excel檔 逐周累積資料 以便做樞紐分析 因此我需要將6個分支機構的Excel檔案copy到總公司累積許多資料 的這個Excel檔的這個工作表中 直接插入 使資料一周次遞增

而不是您目前另外產生一個Excel新檔案
謝謝

提到...

不好意思,我遇到麻煩了!!
excel 跳出視窗說找不到檔案,偵錯顯示是 Workbooks.Open Filename:=Excel.Workbooks(Source).Path & "\" & Filename
發生錯誤
請問應該如何處理?

明和蔡 提到...

靖您好:
我將程式加入判斷了,麻煩您再下載試看看,ps:請將要處理的Excel檔跟這一支放在同一個目錄下執行。

提到...

謝謝版大 先謝謝你的回覆。
先前的問題已解決了(是我副檔名為xlsx)
但在跑公式的時候,出現執行階段錯誤9:陣列索引超出範圍,Set objsheet = Sheets(sheetname) '切換視窗!

請問應該如何修改呢?

提到...

謝謝版大 先謝謝你的回覆。
先前的問題已解決了(是我副檔名為xlsx)
但在跑公式的時候,出現執行階段錯誤9:陣列索引超出範圍,Set objsheet = Sheets(sheetname) '切換視窗!

請問應該如何修改呢?

明和蔡 提到...

靖您好:
我將程式加入工作表判斷了,麻煩您再下載試看看

提到...

版大~太感謝你了!!
成功的把他合併起來了!!

viprr 提到...

Thanks a lot.

吳志平 提到...

老師您好
假如我要將庫存.生產量.個人報表這三個表格整理成資料庫.該怎麼做?

賣麵小弟 提到...

一整天大,我想問一個如何讓EXCEL自動抓取網頁資料並將所需的數據增填至指定欄位的問題,不好意思,因為對VBA不太熟,剛好看到您在知識+解決很多人的問題,所以想說是不是能請你幫忙,我會利用IQY使EXCEL抓取網頁資料,並每次開啟的時候自動更新,但現在有個問題,我想設計成每天開啟後,會將下列網頁的日期、開盤價、最高價、最低價及收盤價自動更新在指定的欄位,然後每天開啟都可以將新的資料記錄在舊資料的下一列,如果好幾天沒更新,也可以自動去比對缺哪些日期來更新,這樣要怎麼做呢?不知道會不會太麻煩您?先說聲謝謝喔!下面的網頁是證交所的,先跟您說一聲。 http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report201207/A1122012070501.php

小薛 提到...

大大您好:我是小薛,再無意間發現了你的部落格,真的是很棒,很受用,我想很多人都會這樣認為,言歸正傳.
我下載大大的範例下來試用,發現了這個問題
'將之前合併的結果清除
Sheet2.Cells.Delete Shift:=xlUp

z = 1
i = 1
在Sheet2.Cells.Delete Shift:=xlUp這部分顯示黃底 且也不能夠合併 麻煩你了

一整天 提到...

小薛:
請問您的Excel那一個版本的?

小薛 提到...

我也不清楚耶~因為我電腦是讓人家組裝到好~他沒有寫2003還是2007 我就覺得很奇怪

小薛 提到...

不好意思大大~這樣的話我該怎麼查證~我的版本呢~因為我還蠻想學習大大教學的東西~

袁金玲 提到...

你好,請問我用要"合併的練習檔"但出現偵錯訊息,請問該如何解決(我是用2000版本)tks

一整天 提到...

小薛您好,
您Excel後面的數字是多少?那個數字就可以知道您用的版本.

一整天 提到...

袁金玲您好,
我目前手邊沒有Excel2000的環境可以測試.

小薛 提到...

回大大~他就只有顯示~Excel這樣呀~我知道他有些會寫2003或是2007但我的都沒有~

一整天 提到...

小薛您好,
可以麻煩您到我的論壇註冊,把畫面張貼上去,我幫您看看.

匿名 提到...

哈哈哈~
我在製作工作需求的資料庫時,用了你的系統,幫了我很大很大的忙:)
請受我一拜!

一整天 提到...

Angela H,
感謝您回來留言,很高興我的程式有幫助到您.

Alan C 提到...

一整天您好:
我想請教您,我的檔案總共三欄,我只想單獨合併第二個欄位,第一和第三都不要,可否有這樣子的功能,此外,我的工作表有18個,可否有一次合併全部,而不用一一輸入,工作表名稱

一整天 提到...

Alan C 您好,
您可以全部合併以後再一次將第1跟第3欄刪除,
全部工作表合併,只要不輸入任何工作表就是全部合併.

Alan C 提到...

一整天您好:
因為我的檔案時常也會超過20幾個,不知可以能只合併特定欄位ex:多個工作表的第二欄,這樣不用刪掉大量的資料

icewings Fang 提到...

真的很强大,大陆的读者也受益了 :)

劉冠甫 提到...

版大您好:
小弟看了您的文章後
本該開心 終於版大資料順我意 !!
也超感謝版大願意分享這資訊 !!
結果問題產生了
您的"開始合併" 當我輸入完成後
那塊按鈕 怎按 都沒反應 是不是小弟電腦關係呢?
小弟電腦使用
中文精簡免安裝OFFICE EXCEL 2003版本
電腦為Window 7 32bit
本打公司型號.貨物品名.顏色
近來接任點貨責任所以需要版大解救 ~~
請版大相救~~~~~~

一整天 提到...

劉冠甫,
您是否可以把檔案拿到其他電腦試看看.我這邊沒有"中文精簡免安裝OFFICE EXCEL 2003版本",所以沒辦法幫您測試.

lin8075 提到...

板大您好
請問利用您所提共的檔案做合併時
"表頭"在合併時會重複出現
請問要如何改善?謝謝

一整天 提到...

lin8075您好,
您只要設定開始copy列數為2,就會從2列開始複製.

lin8075 提到...

了解~~那合併後的表頭部分是自已加上嗎?謝謝

一整天 提到...

lin8075 ,
對,標題自行複製貼上.

Anderson Peng 提到...

不好意思,一整天大大
若要從三個不同檔案(其中的工作表),合併起來
應該要如何寫此VBA呢

一整天 提到...

Anderson Peng:
您可以參考
如何一次將多個Excel檔案copy到一個檔案內
http://discuz.bestdaylong.com/forum.php?mod=viewthread&tid=247&fromuid=2
(出處: 彰化一整天的論壇)

Robin Wu 提到...

我50歲了,用電腦也不知道多少年了,excel也常用,剛看了這篇文章,覺得很神奇,還有那麼多人在討論一些我完全看不懂的東西,以後別人問我excel是什麼,我只能說100分的話略懂一二,不懂98。唉~~~

阿綠 提到...

很謝謝大大的程式 幫了我大忙
想請問大大我可以把你的程式碼加入我的 excel裡面嗎(自用)
如果可以的話 我要擷取哪一段 就可以讀取本檔

謝謝你

一整天 提到...

阿綠您好,
自用沒問題您可以自行修改程式,至於程式碼的討論,麻煩您到論壇上發問,那邊可以上傳檔案及圖片,方便討論您的問題。

Wu Vaca 提到...

您好:
非常謝謝您提供的工具.
想請問使用mergeradv4.
在合併第一行加入檔案名稱,目前是只有在第一行加入,請問有辦法填滿嗎?例如:有10筆資料.10筆資料前都加入檔案名稱.謝謝~

Wu Vaca 提到...

您好:
非常謝謝您提供的工具.
想請問使用mergeradv4.
在合併第一行加入檔案名稱,目前是只有在第一行加入,請問有辦法填滿嗎?例如:有10筆資料.10筆資料前都加入檔案名稱.謝謝~

一整天 提到...

Wu Vaca您好,
您可以利用
Excel的特殊填滿效果
http://blog.bestdaylong.com/2008/04/excel.html

Wu Vaca 提到...

一整天 您好:

我使用 Excel的特殊填滿效果.成功.謝謝您了~

saber768 提到...
作者已經移除這則留言。
saber768 提到...

請問如果要複製的儲存格都含有超連結,要怎麼修改才能都正確複製到新的工作表

一整天 提到...

saber768:
只要複製結果(選擇性貼上值及格式)設為N就會保持連結。

楊尹禎 提到...

我有發問提到您的信箱...還麻煩請您回覆我了^^"

張起華 提到...

不好意思請問一下,假設我今天有十個分開的EXCEL檔,裡面分別都有三個工作表,我能不能指定工作表去合併,例如:我只要合併這10個EXCEL檔的工作表1,或是只要工作表3這樣,有類似的巨集能做到這樣的事情嗎?

一整天 提到...

張起華您好,
您可以參考底下這一篇.
如何一次將多個Excel檔案copy到一個檔案內
http://discuz.bestdaylong.com/thread-247-1-1.html

Hi, How are you. 提到...

一整天您好,偶然逛到這,我想請問,我想以(單字清單列表)批次的方式擷取此http://cdict.net/q/school 網站的中的單字及英標(就此兩項)資料,彙整到一個檔案中,在該檔案裡,每個單字(含其英標)佔一行(例如20個單字及其英標,共計有20行)。不知較簡單的做法為何?如蒙回覆不勝感激。
以下為小弟目前製的 iqy檔內容。
--------------------------
WEB
1
http://cdict.net/q/school

Selection=4
Formatting=None
PreFormattedTextToColumns=True
ConsecutiveDelimitersAsOne=True
SingleBlockTextImport=False
DisableDateRecognition=False
DisableRedirections=False

小丫怡 提到...

請問~有沒有辦法可以將每個儲存格的內容新增為新的工作表呢?例如A1為台中,A2為台北,A3為高雄,會產生台中、台北和高雄三個新工作表~感謝您的解答!!!

小丫怡 提到...
作者已經移除這則留言。
陳奕樸 提到...

您好,有時間的話可否在水平合併的巨集功能中增加設定結束列數跟結束欄數呢?
謝謝您

一整天 提到...

陳奕樸您好,
您要的功能已加上,請重新下載試看看.

. ruru~^_*~ 提到...

ALL DAY您好..
小妹受您幫助很大..尤其越用越上手就更倚賴您了...
最近使用中的將多檔合併一檔的功能表﹐實在太事半功倍了...
功能機乎已完全符合需求...其中有兩小部份原本不好太麻煩您多會再手動處理..
然~近來工作量大增...只好再來尋求協助...是這樣子...
1.有A、B、C...多檔要併成一彙總檔...欄位都相同....在多檔中欄位有寫含數在內...
那~請問於合併於彙總檔時...該如何忽略寫在多檔內的含數只取值出來呢?
2.多檔是每人每日不斷登入資料﹐我如何於彙總表時可直接判斷不再重覆寫入之前的資料呢?
以上﹐請教您~感謝再感謝!!

cat026 提到...
作者已經移除這則留言。
cat026 提到...

獻點醜以示感謝
小弟把判斷末行的 code 從判斷固定欄,改為只要任一欄位有值即可,但仍限於第一行必須各欄位都有值。
未爬文,若重覆那就抱歉囉。

'讀取來源檔案的X(列數),Y(行數)
x = 1
y = 1

'''''''''''''從這裏開始改'''''''''''''''''''''
While objsheet.Cells(1, y + 1) <> ""
y = y + 1
Wend

'append 一格放客代或統編

check:
Do While (True = True)
For m = 1 To y
If objsheet.Cells(x + 1, m) <> "" Then
x = x + 1
objsheet.Cells(x, y + 1).Value = "Custcode"
objsheet.Cells(x, y + 1).HorizontalAlignment = xlRight
GoTo check
End If
Next
Exit Do
Loop
'''''''''''''在這裏結束'''''''''''''''''''''

'選取來源範圍
objsheet.Range(objsheet.Cells(1, 1), objsheet.Cells(x, y)).Select

劉士綸 提到...

板大您好:
拜讀您這個程式後,對我合併工作表的工作幫助很大,
但對於合併後的資料,與版大另外一個程式"mergeradv1.xls"相比,
另個程式還可以進行排序和刪除重覆資料的工作,
因為小弟想合併的資料中會有重複的資料,
是否能在此程式中做到將合併後的資料將重覆的內容(依照特定欄位檢索),
能夠整列資料刪除(就像mergeradv1.xls能做到的一樣),
但是希望能不進行排序的工作,僅作刪除的動作,
因為對於VBA不熟,研究了兩個檔案很久還是無法做結合,
是否可請版大費心協助解決這個問題,
謝謝您!

蔡明和 提到...

您好,
Excel本身就有去除重覆的功能,您可以參考
Excel 2013如何去除重覆資料
http://blog.bestdaylong.com/2014/07/excel-2013.html
若是您一定要寫程式,屬於客制化服務,這部分是要收取費用.若是有需要您可以寄信到我的信箱.

蔡明和 提到...

或是您將您遇到不懂的點,在我的論壇發問,我會針對您不會的跟您說明.

FLY AWAY 提到...

版大您好:
首先先感謝您的無私分享,這個功能真的非常好用,讓小的受益良多,
有個小小問題想要請教,請問若是我的sheet的表頭都一樣,
合併後只想保留一個表頭,不知道能夠怎麼改呢?謝謝

目前嘗試
1. 「開始copy列數」設定2→沒有表頭
2. 「合併後是否要在第一欄填入工作表名稱」設定Y→表頭重複且列序亂掉

再請指導,謝謝您!

Unknown 提到...

老師您好,我在做水平合併的時候每次合併了256個sheet就會出現error 從257各繼續下去就又不會有問題了但是再過256個也就是到513個的時候又會出現error了,請問這個問題如何解決

蔡明和 提到...

您好,
方便寄檔案給我,我來找看看是什麼問題造成.

Kyle 提到...

您好
請問我在合併工作表時,發現欄位數不足(只有65336),但我要合併的資料超過時,該怎麼處理呢?麻煩請賜教,謝謝

蔡明和 提到...

Kyle您好,
請下載
http://download.bestdaylong.com/f199.htm
將Excel的多個工作表合併成一個(Excel2007版)

許雪昭 提到...

您好

感謝您無私的分享許多程式,在工作上更有效率, 這正好也是我需要的,我下載的是2018年1月8號更新版本,合併後是否要在第一欄填入工作表名稱,選擇Y, 顯示合併結果發現,第一欄顯示的工作表名稱,部份並非原資料的工作表名稱, 不知是否操作上有什麼問題,煩請解惑,謝謝您。

蔡明和 提到...

許雪昭 ,
我這邊試沒問題,您是否可以將檔案寄給我,我來查看是什麼原因。

蔡明和 提到...

許雪昭 ,
或是您可以到我的論壇張貼您的畫面。

許雪昭 提到...

好的,謝謝您

許雪昭 提到...

好的,謝謝您

贊助

彰化一整天粉絲團

About Me

我的相片

很多人問我為什麼叫"一整天",其實這是有原故的.有一天看一本書.就是說如何介紹自己.裡面說到如何讓別人對你的名字有印象.就要讓別人跟你的名字或是身體的一些特徵有關.比如很胖.就會被別人取小胖或是胖子.或是跟名字有關的諧音,那天看布袋戲中有一個叫”一頁書”的角色.所以我就想我的名字.可以想出什麼字出來.結果我把我的名字"明和",拆成日月和,日月和在一起,就代表白天晚上都在一起.就取名為"一整天",而這個"一整天"跟我的名字有關也方便別人記憶,後來發現"一整天"這個名詞太常被用,所以就在"一整天"前面加上"彰化"變成"彰化一整天",為什麼要加彰化.因為我老家在彰化,所以以後別人要找我的部落格的話.我都會跟他們說,請到yahoo或是google打"彰化一整天"第一筆出現的就是我的Blog. PS:現在只要輸入"一整天"可以找到.