① 怎么把多个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)”文档来选择其他文档的工作表来合并。