當前位置:首頁 » 表格製作 » 怎樣把新建的表格合並
擴展閱讀

怎樣把新建的表格合並

發布時間: 2024-12-26 14:52:36

A. 如何在excel中新建表格合並表

在Excel中新建表格合並表,首先需要明確目標文件和目標工作表名稱。

接著,選擇「編輯」菜單中的「移動或復制工作表」選項。

在彈出的對話框中,選擇要移動的工作表,並指定目標文件及目標工作表名稱。

最後,點擊「確定」按鈕完成工作表的移動操作。

通過此方法,可以在Excel中將一個文件的工作表合並到另一個文件中,實現表格數據的共享與整合。

B. 怎樣將多個excel表格合並到一個excel表格中

excel表格是一個數據匯總的實用工具之一,也是各行業都需要用到的數據匯總工具之一。當數據過多時,就需要用excel表格的技巧去分類處理這些數據,那麼怎樣將多個excel表格合並到一個excel表格中呢,下面就來看看步驟吧:
首先將需要合並的excel所有表格存放在同一個文件夾中,如下圖:

然後再該文件夾中新建一個空白的excel表格,如下圖:

然後打開新建的excel表格,找到sheet1,然後在sheet1上面滑鼠單擊右鍵,點擊「查看代碼」,如下圖:

點擊「查看代碼」後,就會出現下圖中的框框,然後在右邊框框中填入下列代碼: Sub 合並當前目錄下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath "\" "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName "" If MyName AWbName Then Set Wb = Workbooks.Open(MyPath "\" MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN Chr(13) Wb.Name Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合並了" Num "個工作薄下的全部工作表。如下:" Chr(13) WbN, vbInformation, "提示" End Sub

代碼填入好後,如果代碼出現紅色的,那說明改代碼有問題,需要更改,反之正常。

確定代碼無誤後,再點擊下圖中箭頭所指的圖標或者是按快捷鍵F5,即可開始excel表格的合並運行

若結果彈出下面的對話框,這說明合並成功,反之就沒有