五張表格製成文件夾

A. 如何將多個EXCEL表格組成一個工作薄，表格都是存放在同一個文件夾下的子文件夾里（有多個子文件夾）

新建一個sheet來做目錄，在裡面做超鏈接（插入——超鏈接）可以連接到其它文件也可以打開其它表。也可以連接到sheet中某一位置。做好了就像一本書的目錄。你的文件不管在那個文件夾，一點就到你想要的位置。很方便。祝你成功！

B. excel如何幾個excel表格放在一個文件裡面

1、新建一份表格，點擊工具欄上面的數據，新建查詢-從文件-從文件夾路徑點擊打開。

C. 如何用Excel表格大量創建指定名字的文件夾

操作步驟：

1、打開Excel，在A列中輸入「ren+空格」；

2、在B列中輸入「舊文件名+空格」；

3、在C列中輸入「新文件名+空格」；

4、在D列中輸入函數「=A1&B1&C1」；

5、然後選擇D列並復制；

6、打開新記事本並粘貼該內容；

7、把該文本文檔保存為bat文件，並移動到該文件夾下，雙擊運行即可。

D. EXCEL表格過多，如何分層，做成文件夾形式

這問題能引起無數聯想啊~ 是指同一張excel表中的內容太多嗎？那就選中相似的內容點「創建組」來縮短吧。 是指同一張工作薄裡面的sheet工作表太多嗎？點右鍵選「移動和復制」拆分成多個工作薄吧。 是指工作薄太多嗎？同樣移動復制整理到一個或多個工作薄吧。或者新建文件夾，全部放進去……

E. 如何把多個表格合並到一個表格文件

1. Ctrl + C, Ctrl + V
做數據的搬運工，理論上也是沒有問題的。可在這全名編程的時代，你還苦逼的復制粘貼、挑燈夜戰就顯得太沒水平了。

2. VBA for Excel
同樣是復制粘貼，不過前者自己動手，後者讓機器動手。

3.Power Query for Power BI

既然咱們這是PB的專欄，那肯定要介紹它的功能了，恰巧其中的Power Query就是處理「多表合並」的利器。

那麼廢話不多說，我們直接上步驟：

假設現在有三張銷售記錄表，其中每個表的欄位結構是相同的，我們想要將它們合並成一個表，方便後續的分析操作。

下面介紹兩種方法：

01

多表合並1

首先，分別將三張表導入到Power BI中：

然後，點擊主頁選項卡下的追加查詢按鈕，在彈出的對話框中選擇三個或更多表，將「銷售數據表1」和「銷售數據表2」添加到右側框中，點擊確定：

這樣就將所有數據存儲在「銷售記錄表」中了。

當然上面這個方法應對表格數量較少的還是比較方便，但要是碰到極端的情況，比如有一百張表要合並，那這種方法的效率可能就沒那麼高了，所以下面再為大家介紹一種方法。

02

多表合並2

這次我們先將所要載入的數據存入一個文件夾中，比如取名為「銷售數據」。

然後在Power BI中點擊獲取數據按鈕下的更多選項：

F. 如何把多個excel文件合並到一個文件夾

1、新建一個文件夾、將要合並的表格放到裡面、新建一個表格、用excel打開、右擊Sheet1
2、選擇查看代碼（PS：excel有著一項，WPS沒有）
3、將下列代碼復制到文本框中：
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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合並了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。

G. 如何將excel里的多個表格，保存成一個表格一個的單獨文件

將excel里的多個表格，保存成一個表格一個的單獨文件的具體步驟如下：

需要准備的材料分別是：電腦、Excel表格。

1、首先打開需要編輯的Excel表格，進入到編輯頁面中。

H. 請問多張EXCEL表格怎麼合並成一個文件

如果文件不多的話，可以點表格名稱上，按滑鼠右鍵——移動復制工作表，把他們移動到一個文件中去。如果很多文件（但不能多於256個因為工作簿最多隻能有256個工作表），不管每個文件的格式，那麼用以下的辦法：
具體步驟：
1、下面是代碼。
Private Sub CommandButton1_Click()
Dim Sh As Worksheet, MyName$, n%
Application.DisplayAlerts = False
Application.ScreenUpdating = False
If ThisWorkbook.Sheets.Count > 1 Then
If MsgBox("重新導入報表將刪除原來報表，繼續嗎？ ", 52, "警告") = 7 Then Exit Sub
End If
On Error Resume Next
For Each Sh In Worksheets
If Sh.Name <> ActiveSheet.Name Then
Sh.Delete
End If
Next
n = 1
MyName = Dir(ThisWorkbook.Path & "\*.xls")
Range("a2:b65536").ClearContents
Range("a2:b65536").Hyperlinks.Delete
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
Workbooks.Open ThisWorkbook.Path & "\" & MyName
ActiveWorkbook.Sheets(1).Copy After:=ThisWorkbook.Sheets(n)
n = n + 1
ThisWorkbook.Sheets(n).Name = Left(MyName, InStr(MyName, ".") - 1)
Range("a" & n) = n - 1
Me.Hyperlinks.Add Range("b" & n), Address:="", SubAddress:="'" & ThisWorkbook.Sheets(n).Name & "'!A1", ScreenTip:=ThisWorkbook.Sheets(n).Name, TextToDisplay:=ThisWorkbook.Sheets(n).Name
ActiveSheet.Hyperlinks.Add ActiveSheet.Range("p1"), Address:="", SubAddress:=Sheets(1).Name & "!A1", ScreenTip:="返回首頁", TextToDisplay:="返回"
Workbooks(MyName).Close
End If
MyName = Dir
Loop
Me.Activate
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
2、新建Excel文檔，創建一個按鈕，將上面的代碼放到按鈕上。
3、將文檔保存，和那些要合並的文件存放到同一個文件夾。
4、點擊剛才創建的按鈕，即可將這些表格合並到當前這個文檔里（工作簿）。

I. 怎樣將幾個excel表格合並成一個文件夾

1、將需合並的excel文件放在同一個文件夾中，並這個文件中新建一個excel文件
2、打開新建的excel文件，按alt + f11建，打開宏，選擇視圖——代碼窗口
3、將下面分割線內的的代碼拷貝進去，並保存。
======我是分割線======
Sub sheets2one()
'定義對話框變數
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
If .Show = -1 Then
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
======我是分割線======
4、點擊運行，彈出對話框可，點擊運行選項運行程序，
5、再次彈出選擇對話框，選擇要批量合並的excel名，確定即可
6、程序運行完畢後，會自動生成一個工作簿，工作簿內包含所有需合並的excel文件，將工作簿另外即可

J. 怎樣把幾個表格壓縮成一個文件

可以把幾個表格放到一個word里或者一個文件夾里，甚至可以直接選中這幾個表格後進行壓縮，都可以壓縮為一個文件。