如何在EXCEL文件中把一个工作簿中的所有工作表数据汇总,表格内容全部一样。

作者&投稿:元荆 (若有异议请与网页底部的电邮联系)
~ 创建三维引用,就行了! 简单得很!
建三维引用
单击要在其中输入函数的单元格。
键入 =(等号),再输入函数名称,然后键入左括号。
单击要引用的第一张工作表的标签。
按住 Shift 并单击要引用的最后一张工作表的标签。
选择要引用的单元格或单元格区域。
完成公式,然后按 Enter。

您可以在三维引用中使用以下函数:
函数 说明
SUM 将数值相加。
AVERAGE 计算数值的平均值(算术平均值)。
AVERAGEA 计算数值(包括文本和逻辑值)的平均值(算术平均值)。
COUNT 统计包含数值的单元格数。
COUNTA 统计非空单元格数。
MAX 查找一组数值中的最大值。
MAXA 查找一组数值中的最大值(包括文本和逻辑值)。
MIN 查找一组数值中的最小值。
MINA 查找一组数值中的最小值(包括文本和逻辑值)。
PRODUCT 将数值相乘。
STDEV 基于样本计算标准偏差。
STDEVA 基于样本(包括文本和逻辑值)计算标准偏差。
STDEVP 计算总体的标准偏差。
STDEVPA 计算总体(包括文本和逻辑值)的标准偏差。
VAR 基于样本估算方差。
VARA 基于样本(包括文本和逻辑值)估算方差。
VARP 计算总体的方差。
VARPA 计算总体(包括文本和逻辑值)的方差。

用VBA代码,下面的代码可以选择是否有表头
Alt+F11,打开VBA编辑器,将下面的代码复制到编辑器里面。保存
Alt+F8 选择执行

如果需要现成的文件,请留下联系邮箱,我发给你。

Sub Combine_data()
'
' Combine_data Macro
'
Dim source, target As String
Dim s As Worksheet
Dim tr As Double
Dim SheetHeader As String

OpenFN = Workbooks.Application.GetOpenFilename
If OpenFN = False Then Exit Sub
Workbooks.Open OpenFN

SheetHeader = MsgBox("是否有表头?", vbYesNo)

Application.ScreenUpdating = False
source = ActiveWorkbook.Name
Workbooks.Add
target = ActiveWorkbook.Name

If SheetHeader = vbYes Then
RowStart = 2
tr = 2
Windows(source).Activate
Rows("1:1").Select
Selection.Copy
Windows(target).Activate
Range("A" & 1).Select
ActiveSheet.Paste
ElseIf SheetHeader = vbNo Then
RowStart = 1
tr = 1
End If

Windows(source).Activate
For Each s In ActiveWorkbook.Sheets
Sheets(s.Name).Select
lr = LastCell(ActiveSheet).Row
Rows(RowStart & ":" & lr).Select
Selection.Copy
Windows(target).Activate
Range("A" & tr).Select
ActiveSheet.Paste
If SheetHeader = vbYes Then
tr = tr + lr - 1
ElseIf SheetHeader = vbNo Then
tr = tr + lr
End If

Windows(source).Activate
Next

Application.DisplayAlerts = False

Workbooks(source).Close savechanges:=False
' Application.CutCopyMode = False
Application.ScreenUpdating = True

MsgBox "合并完成!"

'
End Sub

Function LastCell(ws As Worksheet) As Range
Dim LastRow&, LastCol%

On Error Resume Next
With ws
' Find the last real row
LastRow& = .Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row

' Find the last real column
LastCol% = .Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column
End With
Set LastCell = ws.Cells(LastRow&, LastCol%)
End Function

1.函数处理:
在汇总表中输入对应的公式,如:每个表的C1求和,在汇总表中输入公式如下
=sum(sheet1:sheet10!C1)这样就把sheet1到10表中的C1相加了,其他单元格同理
2.VBA方法:
可用在工作表中循环相加处理,具体情况根据你的表格设计而定。

excel中如何批量把一个工作簿当中的每个工作表名称复制出来
答:打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧需要存放名称的那个Sheet上双击,右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口,选择刚插入的宏,点击“执行”。这样,在该Sheet的A列就会罗列出所有工作表名称。Sub fz()Dim i As IntegerFor i = 1 To Sheets....

如何在excel中一个单元格中使文字变成两行
答:利用自动换行命令或“Alt+Enter”快捷键皆可在Excel中的一个单元格中使文字变成两行。具体操作请参照以下步骤。1、在电脑上打开Excel文件,进入文件界面后在目标表格内输入文本内容。2、然后缩小目标表格所在的E列列宽,具体列框范围按实际需求进行设置。3、然后选中目标表格,在开始菜单的“对齐”区域点击...

如何将多个文件合并在一个excel文件中?
答:在excel表格中点击【数据】中的【合并表格】,选择合并方式为【多个工作表合并成一个工作表】。点击【添加文件】,添加完成点击【开始合并】,在【报告】页可看到合并的数据情况。点击【总表】,即可看到合并后的表格内容,详细步骤:1、打开excel表格,点击菜单栏的【数据】选项。2、在下方,找到【合并...

excel中怎么将多个sheet合成一个
答:以WPS 2019版本为例:关于excel中怎么将多个sheet合成一个,您可使用WPS参考下述步骤完成操作:1、打开「表格(Excel)」文档;2、点击「数据-合并表格-多个工作表合并成一个工作表」;3、勾选需合并的工作表即可。提示:在设置合并工作表时也可添加其他「表格(Excel)」文档来选择其他文档的工作表来...

在excel中如何将第一个工作表中的数据求和汇总到另一个表中
答:4、此时会弹出“合并计算”对话框。在“函数”下拉列表中选择“求和”选项。单击“引用位置”后面的收缩对话框按钮。5、选择第二个工作表“北京”,并用鼠标拖动以选中该工作表中的B3:E6单元格区域。单击展开对话框按钮返回到合并计算的对话框中。6、单击“添加”按钮将引用位置添加到“所有引用位置列表...

如何把EXCEL一个工作表的页面设置应用到所有工作表
答:把EXCEL一个工作表的页面设置应用到所有工作表的具体步骤如下:我们需要准备的材料分别是:电脑、Excel表格。1、首先我们打开需要编辑的Excel表格,点击“sheet1”,之后按“shift”选中全部工作表。2、然后我们点击打开sheet1页面布局中的页面设置后面的箭头。3、然后我们在弹出来的窗口中点击“确定”即可。

如何将一个EXCEL中的多个标签页合并到一个标签页里?
答:1.首先要有自己的excel数据,并且我们需要的是microsoft excel,WPS没有这些负责的功能。比如下面举例的,有205页的数据需要合并,如图所示。2.看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了。现在开始合并,首先要在最前页新建一个工作表。如图:3.在新建的sheet表中“右键”,找到“...

excel 如何把一个文件分成两个
答:实现窗口的拆分有两种方法:第一种方法就是:窗口的拆分,操作方法:选择要拆分的位置的单元格--》选择工具栏的“窗口”--》选择拆分 ,取消的方法是:选择工具栏的“窗口”--》选择 取消拆分 或者双击拆分线也能取消。这种方法是将页面拆分成两个或者四个页面,滚轮控制上下滚动,左右拉的滚动条控制...

如何把一个excel表格拆分成独立的excel文件?
答:3、将选定工作表移至位置,选择新工作簿;4、然后点击确定;5、这时候,原来的工作表就单独成为新的工作簿了;6、点击保存按钮(或使用快捷按键 Ctrl+S),找到保存位置后,点击保存就可以了。以上就是把一个excel表格拆分成独立的excel文件的教程了,学会了的小伙伴快去试试吧✧*。&...

如何把多张Excel表格的内容合并成一个Excel表格?
答:要将多个Excel表格中的数据汇集到一个表格中,你可以使用以下方法:1. 复制粘贴:这是最简单的方法。打开一个目标Excel工作簿,然后逐个打开其他要汇集数据的Excel文件。在源工作簿中选择数据范围(例如,选中整个工作表或特定数据区域),然后复制(Ctrl + C),切换到目标工作簿,选择要粘贴的位置,然后...