如何把幾個表格放同一個文件夾

A. 我有10個文件夾，裡面都有好多excel表，如何把所有的表都放入一個文件夾里

先把這10個文件夾放到一個文件夾里。然後搜索。*.xlsx 搜索結果全選。然後剪切。再粘貼到一個新建文件夾里。

B. 怎麼把多個excel表格里的內容放在一個里

C. 怎麼把多個辦公表格合並到一個文件夾里

所以新建一個文件夾然後把這些表格全部都放到這個文件夾里

D. 怎麼把幾個Excel合並成一個文件

以WPS 2019版本為例：

如需將多個Excel合並成一個文件，可使用WPS2019中已自帶「文檔拆分合並」功能：

操作步驟：

1）打開其中一份「表格（Excel）」文檔；

2）點擊「特色應用-拆分合並-合並」；

E. 怎樣將幾個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文件，將工作簿另外即可

F. 如何把多個表格合並為一個表格

步驟如下：

1、打開excel表格，點擊菜單欄的【數據】選項。

‍

G. 如何將多個不同的excel文件放在一個excel文件里

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

H. 多個表格怎麼合並在一個

• 首先我們打開excel表格。

  

I. 怎麼將幾個excel表格合成一個

快速把多個excel表合並成一個excel表步驟如下：
1、多個excel表格放在同一文件夾里。
2、新建一個excel表格。
3、打開新建excel表格，右鍵單擊sheet1，點擊查看代碼。
4、彈出宏計算界面，將代碼復制進去。
5、在工具欄中找到運行，點擊「運行子過程」。
6、運行完成之後，點擊確定查看合並後的數據。

J. 如何把多個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、點擊運行、一段時間（取決於表格的大小和多少）後，合並完成了。