如何一次將多個Excel檔案copy到一個檔案內的不同工作表中，並以檔案的檔名作為工作表的名稱

有時候我們會把Excel分類請不同人幫忙輸入，但是輸入完時，都是各別檔案，如果要把它copy成一個檔案就很麻煩，底下這個VBA程式，就是在處理這種情形的工具。

練習檔案:

http://f272586.googlepages.com/merger01.xls

http://f272586.googlepages.com/merger02.xls http://f272586.googlepages.com/merger03.xls

http://f272586.googlepages.com/mergertosheet.xls

2009/1/9:新增一個可以匯入txt的功能

http://f272586.googlepages.com/mergertosheet_v2.xls

2009/5/4:修改程式.除了xls開頭的檔案類型會用excel的方式開啟,其它的會用文字檔方式開啟

http://f272586.googlepages.com/mergertosheet_v3.xls

Excel 2003 新版下載網址
如何一次將多個Excel檔案copy到一個檔案內的不同工作表中
http://discuz.bestdaylong.com/thread-30584-1-1.html

Excel 2007版本下載網址: http://discuz.bestdaylong.com/thread-1529-1-1.html

http://download.bestdaylong.com/f14.htm
mergertosheet_v4.xls 下載

1.下載ergertosheet.xls把它放在要處理的Excel檔案目錄中 2. 開啟時會出現安全性警告，請按啟用巨集 3.將您要合併的檔案名稱輸入 4.合併完時會出現，己將所有檔案匯入活頁中 5.這是合併後的sheet

97年5-6月統一發票中獎號碼單

特獎:65445893 頭獎:32299517、48636521、94183545

如何一次取代多個Word檔案中的多個字串

如果有一百份word的檔中的"身份證"要改成"身分證" ，就要開啟一百個檔案，把每一個檔案取代完再開另一個檔案，另一個我會寫這個主要原因是合併列印時，如果有unicode的字，合併完的word檔都會用?取代，每次都要取代這些很麻煩，所以就寫了這一支word巨集．
檔案下載:http://download.bestdaylong.com/f11.htm
練習檔案:
http://f272586.googlepages.com/A.doc
http://f272586.googlepages.com/B.doc

註冊版本下載:http://download.bestdaylong.com/f470.htm
(可以取代格式及加入頁首頁尾取代)
PS:未註冊每次只可以執行3個檔案

1.replacepro.doc跟您要處理的word檔案放在一起 2.打開replacepro.dlc會出現巨集，請按啟用巨集 3.把要取代的字及檔案寫上去，格子不夠可以自己往下加，但中間不要有空白，然後按下多檔案取代 4.出現取代完成，就表示處理完了．

真人說普通話廣東話的網站

這個網站是從老公仔教廣東話的文章中發現的，如果您想學廣東話，這個網站是不錯的選擇。

1.http://www.kanhan.com/tdc/blackboard_tdc.swf

輸入您要發音的句字,按下即時發音就可以

為什麼工作管理員的功能表會消失不見了

一般我們遇到程式無法關閉，都會透過工作管理員來將程式關閉，如果工作管理員的工能表不見了，就不能切換功能頁，底下會說明消失的原因。

1.這是沒有功能表的工作管理員，可以在底下空白處點滑鼠左鍵兩下，就可以作切換 2.這是有功能表的工作管理員

如何將火車時刻表簡化成簡訊內容

會有這個想法時，是之前上台北找朋友結束時要回家時，到火車站時，火車剛好開走，所以就在等火車想可不可以把時刻表存在我們一般人都有的手機內，這樣隨時就可以知道幾點有火車可以搭乘，那時候是把時間簡化．如7點有7:10,7:20,7:50,我就用07102050來表示，不同小時用.來區格，最後因為火車0-4時，沒有火車，就再把第一碼的0簡化掉.

1.http://new.twtraffic.com.tw/twrail/index.aspx 台灣鐵路管理局-火車時刻查詢系統 2.把您要的結果查詢出來，並將內容copy到Excel貼上 3.再將開車時間選取起來 4. 到http://272586.blogspot.com/2007/04/blog-post_28.html 將內容貼在來源區 5.按下火車時刻表轉換,結果會顯示在目的區(看第４張圖) 6. 這是新豐到台北電車的時刻表 7.簡訊中如果有中文字．一通會只剩下７０個字

Skype 台灣GO

最近發現Skype台灣Go沒有收連接費，之前使用時一個月99元，可以撥市話10000分鐘，每通都還要另加1.6元的連接費，現在不但不收，還特價89元，再送1歐元( 47.49元)的通話費，所以現在辦等於1個月42元(89元-47元)，所以常打市話的人可以趕快去辦。skype out可以設定顯示電話號碼(這個功能在台灣無法使用詳情請看[問題]為何無法 " 來電顯示" 功能 無法啟用 )，

1.點帳戶/購買Skype點數 2.Skype亞洲通己經售完，目前只剩下Skype台灣GO跟Skype全球GO 3. 目前訂購89元，還加送1歐元(47.489元) 4. 設定來電顯示(需要經過24小時才會有作用) 5.設定來電顯示會有兩筆簡訊費 (一通是確認碼，一通是剩2小時啟用時，會在傳一封提醒的簡訊) 6.今天四月份的帳，每分鐘還有收1.6元的連接費 7.這個功能在台灣無法使用(系統又沒提示，害我設了二支手機，花了8元簡訊費) 8. 9.可以把一般市話或手機設為連絡人 10.經過24小時後，來電顯示會有作用(這個功能在台灣無法使用)

如何在Excel一次取代多個字串

Excel有取代的功能，但是如果您要一次取代很多筆資料，就會覺得很不方便，所以我就寫了一個VBA，只要把要取代的內容一次寫完，按下開始整批取代，就會一次把您要取代的所有動作都作完。

練習檔案:

http://f272586.googlepages.com/batchreplace.xls

http://f272586.googlepages.com/replacetest.xls

2009/9/30新增所有活頁都會取代

http://f272586.googlepages.com/batchreplace_v2.xls

下載:http://download.bestdaylong.com/f12.htm

1.假設我要取代４種資料 2. 將batchReplace.xls跟您要取代的檔案放在同一個目錄， 只要執行batchReplace.xls(要取代的檔案會自動開啟) 3.設定您要批次取代的內容 4.執行取代完的對話框 5.程式碼一覽

Sub Macro1()

    Dim nowworkbook As String   '參數設定的檔案名稱
    Dim s   '要被取代的字串
    Dim d   '取代過的字串
  
    nowworkbook = Excel.ActiveWorkbook.Name

    Workbooks.Open Filename:=Excel.ActiveWorkbook.Path & "\" & Cells(2, 1) & ".xls"
  
    i = 2
  
    While Windows(nowworkbook).ActiveSheet.Cells(i, 2) <> ""
        s = Windows(nowworkbook).ActiveSheet.Cells(i, 2)
        d = Windows(nowworkbook).ActiveSheet.Cells(i, 3)
  
        Cells.Replace What:=s, Replacement:=d
        i = i + 1
    Wend
    Cells(1, 1).Select
    Windows(nowworkbook).Activate
    MsgBox "取代完成,請切視窗查看結果"
End Sub

網站介紹:隨心所欲做詞庫

這個網站有以下多種詞庫可以下載來練習.

《VOCABULARY 10000》;《VOCABULARY 5000》;《VOCABULARY FUNDAMENTAL》;《大學英語》預備1級;《大學英語》預備2級;《大學英語》精讀第1冊;《大學英語》精讀第2冊;《大學英語》精讀第3冊;《大學英語》精讀第4冊;《大學英語》精讀第5冊;《大學英語》精讀第6冊;《小學英語》第1冊;《小學英語》第2冊;《小學英語》第3冊;《小學英語》第4冊;《小學英語》第5冊;《小學英語》第6冊;《中級美國英語教程》(下冊);《中級美國英語教程》(上冊);《初中英語》(第1冊);《初中英語》(第1冊);《初中英語》(第2冊);《初中英語》(第2冊);《初中英語》(第3冊);《初中英語》(第3冊);《初中英語》(第4冊);《初中英語》(第5冊);《初中英語》(第6冊);《初級美國英語教程》(下冊);《初級美國英語教程》(上冊);《高中英語》(第1冊);《高中英語》(第1冊)下;《高中英語》(第1冊)上;《高中英語》(第2冊);《高中英語》(第2冊)下;《高中英語》(第2冊)下;《高中英語》(第2冊)上;《高中英語》(第2冊)上;《高中英語》(第3冊);《高中英語》(第3冊);《高中英語》(第3冊)下;《高中英語》(第3冊)下;《高中英語》(第3冊)上;《高中英語》(第3冊)上;《高級美國英語教程》;《許國璋英語》(第1冊);《許國璋英語》(第2冊);《許國璋英語》(第3冊);《許國璋英語》(第4冊);《新世紀公共管理教程》;《新版新概念英語》(第1冊);《新版新概念英語》(第2冊);《新版新概念英語》(第3冊);《新版新概念英語》(第4冊);《新概念英語》(第1冊);《新概念英語》(第2冊);《新概念英語》(第3冊);《新概念英語》(第4冊);《新編許國璋英語》(第1冊);《新編許國璋英語》(第2冊);2005研究生入學考試詞彙;2005研究生英語入學詞組;2006研究生英語入學詞彙;2007研究生英語入學詞彙;GMAT600分詞組;GMAT600分詞彙;GMAT800分商業管理詞彙;GMAT800分常考詞彙;GRE字彙進階下;GRE字彙進階上;GRE紅寶書;GRE蘭寶書;MBA;TOFEL;TOFEL詞組;人體解剖學詞彙;大學英語1-4級詞組;大學英語5-6級詞組;大學英語六級詞彙;大學英語四級詞彙;六級後;化學;天文學;心理與思維;文學與藝術;世界地名;交通與運輸;地理;考研真題高頻詞庫;自然與氣候;房屋與建築;服裝;法律;物理學;政治與社會;研究生詞彙;美國口語慣用法例句集粹;計算機常用詞組及縮略語;計算機常用詞彙;航空航天;高考英語詞彙手冊;高校英專全程通用詞彙;博士醫學詞彙;植物;詞庫名稱;詞頻分級詞彙第1級;詞頻分級詞彙第2級;詞頻分級詞彙第3級;詞頻分級詞彙第4級;詞頻分級詞彙第5級;郵電與通訊;雅思;語言與文學;廣播與電視;數學;學校與教育;醫學英語第1冊;醫學英語第2冊;醫學英語第3冊;體育

1. 連到http://upquark.51.net/,選詞庫下載 2. 各式各樣的英文詞庫 3. 因為編碼的不同,所以會顯示為亂碼

相關連結:

中文簡繁內碼轉換器

Excel的資料剖析應用

利用Excel來背英文單字

如何一次將多個Excel檔案copy到一個檔案內

之前用Sendkey寫了一篇如何合併多個相同的Excel檔案，發現有些缺點，無法一次用很多檔案，因為這個功能很多人都會用到，因此我把它改寫，改成開啟檔案沒有限制，只要把開啟的檔案名稱都寫在一起，中間不要有空白，程式會自動把所有的檔案都copy到一個空白檔案。

練習檔案:

http://f272586.googlepages.com/merger01.xls

http://f272586.googlepages.com/merger02.xls

http://f272586.googlepages.com/merger03.xls

http://f272586.googlepages.com/mergeradv.xls

2009/2/3新增功能

可以加入副檔名,且不用開新檔,合併以後會排序,如果重覆會自動去除

http://f272586.googlepages.com/mergeradv1.xls

2009/2/19新增功能 加入可以指定合併活頁名稱,加入判斷如果貼上於65535則會自動新增活頁貼上

去除合併會排序及重覆自動去除功能

http://f272586.googlepages.com/mergeradv2.xls

2009/5/5新增功能

加入第一列可以加入檔案名稱的選項

http://f272586.googlepages.com/mergeradv3.xls

下載:http://download.bestdaylong.com/f2.htm

1. 下載四個練習檔，把它們放在一起，執行mergeradv.xls

 2. 出現安全性警告，請按啟用巨集

3. 開啟一個空白檔案，並把該檔案名稱寫在儲存格B1 儲存檔B2下面，可以寫您要合併的檔案名稱(.xls副檔案名稱可以不用寫)

4. 這是合併後的檔案

5. 程式碼一覽

Excel的資料剖析應用

資料處理時，常會遇到別人給您是有規則的資料，如用逗號分格，底下我用一個單字的題庫格式，來做個例子，因為我寫了一個背單字的Excel，可是單字都是有版權的，我到大陸的網站有找到一個可以讓人下載字庫，但是有二個缺點，一是簡體字，二是還有所有的單字都是用逗號來區格，底下的資料來源．我己經先把它轉成繁體中文.

範例檔案:http://f272586.googlepages.com/english01.xls

1.將要處理的資料選取起來 2.選〔資料〕／資料剖析 3. 選分隔符號，按下一步 4.選逗點，按下一步 5.選[完成] 6.資料己經處理完畢 7.因為音標沒有用到，可以選取，按滑鼠右鍵刪除