① 怎麼把多個excel表格里的內容放在一個里
以office2019為例,把多個excel表格里的內容放在一個里的方法如下:1、首先需要將多個Excel表格都復制到一個文件夾下,然後打開表格,切換到數據菜單;
2、接著點擊菜單中的「合並」選項下的「合並和載入」,選擇要合並的工作表名稱;
3、點擊「確定」即可合並該表格中的內容;
4、在導入數據的時候,只需要選擇表格以及確定導入的位置即可,其它無需改動。
在日常辦公的時候電腦桌面上總會有密密麻麻的表格,這樣不僅看上去雜亂,而且也會影響電腦的開機速度,所以可以將其中類型相同的表格合並到一張Excel表格里,一般情況下如果表格較少,可以打開表格,新建一個空白的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、點擊運行、一段時間(取決於表格的大小和多少)後,合並完成了。
③ 製作了多個EXCEL表格,怎麼把這些表格放在同一個表格中
方法一:
Excel一般自讓亮動默認3個sheet,即sheet1、sheet2、sheet3。如果這三個sheet不夠用,你可以點擊插入——工作表,就可以插入新的sheet。將每個excel中的內容分別復制到每個sheet上,對sheet重命名即可。
方法二:
建一個要存放所有工作表的總文件,比如叫「匯總」然後依次打開所有的文件。在第一個文件,比如「客戶」,把滑鼠挪到左下角的工作表標簽的地方,點右鍵,「移動和復制工作表」,在對話框中選擇目標工作簿為「客戶」,這樣工作表就復制過去了,而且自動關閉,並保留「客戶」這個名稱。
依次操作其他文件。前提是要把這些小文件都打開。之所以一次打開全部文件,這樣做的好處是不會有漏掉和重復的。一個個打開也一樣。這個操作很簡單,只是文字描述比較費勁。和文件的另存為是一樣的。
方法三:
1、公式 - 名稱管理器 - 新建名稱 - 在新建名稱中輸入名稱「sh」,然後「引用位置」框中輸入公式:
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(now())
公式說明:
GET.WORKBOOK(1)是宏表函數,當參數是1時,可以獲取當前工作簿中所有工作表名稱,由於名稱中帶有工作簿名稱,所以用FIND+MID截取只含工作表名稱的字元串。&T(now())的作用是讓公式自動更新。
2、在A列輸入下面公式:
=INDEX(sh,INT((ROW(A1)-1)/12)+1)
公式說明:
此公式目的是在A列自動填充工作表名稱,並每隔N行更換填充下一個名稱。公式中12是各表格的現在或將來更新後最大行數,盡量設置的大一些。以免將來增加行匯總表無法更新數據。sh是第1步添加的名稱。
3、在B2輸入公式並向右向下填充,取得各表的數據。
=INDIRECT($A2&"!"&ADDRESS(COUNTIF($A$1:$A2,$A2)+1,COLUMN(A1)))
公式說明:
此公式目的是根據A列的表名稱,用indirect函數取得該表的值。其中address函數是根據行和列數生成單元格地址,如address(1,1)的結果是$A$1。
公式設置並復制完成後,你會發現各表的數據已合並過來。
合並過來後,你就可以用數據透視表御旦很方便的生成分類匯總報表。
註:如果不刪除匯總表和下面的錯誤值行,在生成數據透視表中把匯總表和錯誤值的選項鎮滑擾取消勾選,當然也可以用函數屏蔽錯誤值和判斷取值
④ 怎樣才能將多個Excel表格的內容合並到一個表格裡面
有多種方法可以將多個Excel表格的內容合並到一個表格裡面,以下是其中兩種常見的方法:
方法一:使用Excel自帶的合並工具
1. 打開一個新的Excel文檔,點擊「數據」選項卡,在「來自其他來源」一欄中選擇「從文本/CSV」選項;
2. 選擇要合並的第一個Excel表格,點擊「打開」;
3. 在「文本導入向導」中,選擇「分隔符」選項,並勾選「製表符」和「逗號」;
4. 點擊「下一步」,在「列數據格式」中選擇「拆迅文本」;
5. 點擊「完成」,將數據導入到新的Excel文檔中;
6. 重復以上步驟,將其他Excel表格的數據分別導入到新鍵脊的Excel文檔中;
7. 最後,將所有數據復制到同一個工作表中即可。
方法二:使用VBA宏
1. 打開一個新的Excel文檔;
2. 點擊「開發工具」選項卡,選擇「Visual Basic」;
3. 在Visual Basic編輯器中,點擊「插入」選項卡,選擇「模塊」;
4. 將以下代碼復制到模塊中:
Sub MergeAllWorkbooks()
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Application.ScreenUpdating = False
Set SummarySheet = ThisWorkbook.Worksheets.Add
FolderPath = InputBox("請輸入要合並的文件夾路徑:")
If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath + "\"
FileName = Dir(FolderPath & "*.xls*")
Do While FileName <> ""
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Set SourceRange = WorkBk.Worksheets(1).UsedRange
If NRow = 0 Then
Set DestRange = SummarySheet.Range("A1")
SourceRange.Copy DestRange
Else
Set DestRange = SummarySheet.Range("A" & NRow + 1)
SourceRange.Copy DestRange
End If
NRow = SummarySheet.UsedRange.Rows.Count
WorkBk.Close False
FileName = Dir()
Loop
SummarySheet.Columns.AutoFit
Application.ScreenUpdating = True
End Sub
5. 點擊「運行」按鈕,輸入要合並的Excel表格所在的文件夾路徑;
6. 程序將自動遍歷該文件夾下的所有Excel表格,將它們的數據合並到新的Excel文檔中;
7. 最後,保存新的Excel文檔即可。
以上兩種方旅亮此法都能夠將多個Excel表格的內容合並到一個表格裡面,使用VBA宏的方法相對來說更加自動化和快捷,但需要一定的編程知識。
⑤ 如何在EXCEL里把很多個sheet的數據合並到一張sheet里
以WPS 2019版本為例:
關於如何在EXCEL里把很多個sheet的數據合並到一張sheet里,您可使用WPS參考下述步驟完成操作:
1、打開「表格(Excel)」文檔;
2、點擊「數據-合並表格-多個工作表合並成一個工作表」;
提示:在設置合並工作表時也可添加其他「表格(Excel)」文檔來選擇其他文檔的工作表來合並。