為了實現(xiàn)將無數(shù)個有相同數(shù)據(jù)格式的excel表文件合并到一個excel的一個工作簿里面去方便進行后續(xù)的篩選，提取數(shù)據(jù)，分析等等。
需要分兩步走：
第一步：將所有的excel合并到一個excel之中;剛才的多表之中的內(nèi)容化身為現(xiàn)在的一個表，下邊的多個sheet。
第二步：把這個excel之中的多個sheet合并到一個sheet之中。
需要的基礎(chǔ)軟件：擁有VBA的excel軟件，可以用微軟的包含有VBA的office，也可以用國產(chǎn)的wps之中的專業(yè)版。
下邊說具體步驟
一 不同表合并到一個有很多sheet的表里
1、新建一個工作薄，將其命名為你合并后的名字。
2、打開此工作薄。
3、在其下任一個工作表標簽上點擊右鍵，選擇“查看代碼”。（wps的該按鈕在開發(fā)工具下）
4、在打開的VBA編輯窗口中粘貼以下代碼：
Sub 工作薄間工作表合并()
Dim?FileOpen Dim?X?As?Integer Application.ScreenUpdating?=?False FileOpen?=?Application.GetOpenFilename(FileFilter:="microsoft?Excel文件(*.xls),*.xls",?MultiSelect:=True,?Title:="合并工作薄") X?=?1 While?X?<p>5、關(guān)閉VBA編輯窗口。</p><p>6、在excel中，工具---宏---宏,選“工作薄間工作表合并”,然后“執(zhí)行”。</p><p>7、在打開的對話窗口中，選擇你需要合并的工作表，如果多的話，可以放在一個文件夾，然后全選。</p><p>8、等待。。。。ok！</p><p><strong>二 將一個表里的很多sheet合并到一個sheet</strong></p><p>1、在包含多個sheet的工作簿中（如多個工作簿合并后含n個sheet的工作簿），新建一個sheet</p><p>2、在新建的sheet標簽上點擊右鍵，選擇“查看代碼”（wps的該按鈕在開發(fā)工具下）</p><p>3、在打開的VBA編輯窗口中粘貼以下代碼：</p><p><strong>Sub 合并當前工作簿下的所有工作表()</strong></p><pre class="brush:php;toolbar:false">Application.ScreenUpdating?=?False For?j?=?1?To?Sheets.Count If?Sheets(j).Name??ActiveSheet.Name?Then X?=?Range("A65536").End(xlUp).Row?+?1 Sheets(j).UsedRange.Copy?Cells(X,?1) End?If Next Range("B1").Select Application.ScreenUpdating?=?True MsgBox?"當前工作簿下的全部工作表已經(jīng)合并完畢！",?vbInformation,?"提示" End?Sub
運行，等待……合并好了后會彈出提示。
? 版權(quán)聲明
文章版權(quán)歸作者所有，未經(jīng)允許請勿轉(zhuǎn)載。
THE END
