是excel麼？
第一步：開啟你的工作簿，建立一個空表工作表（sheet1的位置）
第二步：工具選單-選項-安全性-巨集安全性-設定成「中」等
第三步：工具選單-巨集-巨集-巨集名-輸入個名字--點建立
第四步：彈出來一個框框 【在「Sub 合併工作表（）」下面，將以下的字元複製貼上過去】
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 6
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
Range(＂a1＂, ＂z＂ & n).Select
#Range(＂a＂ & n).Activate
Selection.Copy
Sheets(1).Select
Range(＂a＂ & o 1).Select
#ActiveSheet.Paste
Next
第五步：注意 ：For m = 2 To 6 如果你有5個工作表 你就For m = 2 To 6
如果有7個就 For m = 2 To 8 如果有8個 就For m = 2 To 9
以此類推
第六步：打開你之前建立的那個工作表 ，sheet1.
第七步：工具選單，選擇「巨集」—「巨集」 點選執行~
#就ok啦~
新建一個資料夾，將需要合併的excel文件複製到該文件目錄下。
2/7
新建一個EXCEL空白文檔，滑鼠移到在sheet工作表上按一下右鍵，選擇「檢視程式碼」選項，進入VBA控制台。
3/7
在選單列點選「插入」選單，選擇「模組」選項，進入模組編輯介面。
4/7
在編輯框中複製以下程式碼，注意符號，需是英文狀態下。
'功能：把多個excel工作簿的第一個sheet工作表合併到一個excel工作簿的多個sheet工作表，新工作表的名稱等於原始工作簿的名稱Sub Books2Sheets（) '定義對話框變數Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) '新建一個工作簿Dim newwb As Workbook Set newwb = Workbooks.Add With fd If .Show = -1 Then '定義單一檔案變數Dim viantItemed循環變量，開始文件檢索，打開被合併工作簿，複製工作表，把新工作簿的工作表名字改成被複製工作簿文件名，這兒應用於xls文件，
5/7
程式碼輸入後，點選選單項目中“執行”，選擇“執行子流程”選項，或按下F5快速鍵，執行程式碼。
6/7
運行程式碼後，會彈出文檔選擇介面，找到新建資料夾的路徑，選擇你所需要合併的文檔，選擇文檔後，點擊“打開”，程式碼正在運行，運行時間視文檔數目而定。
7/7
程式碼段運行結束後，就會出現已經合併完成的excel文件介面，新工作表的名稱等於原始工作簿的名稱。
因為你每天都會有一個表，表的總數無法確定，所以你應該把每天的表都依次複製到一個表中，並給此表起名為 匯總
此表A列放序號，B列放名稱，C列放件數，D列放金額。
然後再新建一個表起名 目錄
把各表中的「名稱」內容如：汕頭奧馬、成都精益等等，不重複的輸入到「目錄」表的A列，從A1格開始，每個佔一格，依序向下輸入。
在「目錄」表的B1格輸入公式，得到件數合計：
=SUMIF（總結！$B$1:$B$1000，目錄！A1，匯總！$C$1:$C$1000）
在「目錄」表的C1格輸入公式，得到金額合計：
=SUMIF（總結！$B$1:$B$1000，目錄！A1，匯總！$D$1:$D$1000）
試試吧，如果有問題可以H！我。
將一個EXCEL中的多個SHEET中內容合併到一個SHEET中的特定操作步驟如下：
1、首先我們要有自己的excel數據，然後我們打開電腦裡的microsoft excel載入要合併的資料。
#2、看到這麼多資料頁要合併，如果是複製貼上的話，工作量就很大了。我們現在開始合併，首先要在最前頁新建一個工作表。
#3、在新建的sheet表中“右鍵”，找到“查看程式碼”。
#4、然後看到巨集計算介面。
#5、看到巨集計算介面，我們就只需要把下面的程式碼複製進去。
#6、做完上面的事情，然後只要點擊工具列上面的「運行」下的「運行子過程/使用者窗體」就可以了，合併完之後會有提示。提示完成之後就可以把巨集計算介面關閉了。
#7.合併後的效果如下圖，我們看到的是合併之後有8000多行，就是205頁合併後的結果。
以上是將多個Excel工作表合併為一個工作表的方法的詳細內容。更多資訊請關注PHP中文網其他相關文章！
