1.如何把多个excel工作表汇总到一个工作表中

你的提问有点笼统，如果你所说的多工作表之间的关系是你中有我，我中有你，你可以用VLOOKUP来汇总，如果只是相对独立的话，可以复制粘贴过来就行了。

你的意思是各个工作表中有多有少，你指的是行的项目多还是列的项目多呢。你还是说得不够清楚 行项目有多有少，汇总可以用VLOOKUP来查找各表格中的数据，VLOOKUP用法，你可以在EXCEL中按F1，找到函数参考里帮助看下。

不明白可以问我。用法的意思是，我以项目为目标，在另外的表格中找这个项目，并显示表格中与这个项目对应该的行的另外列的数据。

这样你就可以按最多项目找，汇总各表中的需要的列数据 按F1会出现帮助，在函数参考里的查找和引用。

2.如何把多个EXCEL文件汇总到一个EXCEL中

新建一个文件夹将要合并的表格放到里面新建一个表格用excel打开右击Sheet1选择查看代码PS:excel有着一项，WPS没有将下列代码复制到文本框中：Sub 合并当前目录下所有工作簿的全部工作表（）Dim MyPath, MyName, AWbNameDim Wb As workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "" & MyName)Num = Num + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。

如下：" & Chr(13) & WbN, vbInformation， "提示"End Sub点击运行一段时间（取决于表格的大小和多少）后，合并完成了。

3.如何将多个excel汇总成一个excel表如何将多个excel表

操作说明： 1、将表《2》-《12》B1:C101分别复制粘贴到表《1》B:C列第101行之后；选中表《1》B1:C1201，在A上邻“名称框”输入任意名字如“名字”二字。

2、在《汇总》表，“数据/筛选/高级筛选/将筛选结果复制到其他位置/列表区域/输入‘名字’二字/条件区域/空白/复制到/B1/勾选‘选择不重复的记录’/确定”，即可得到1-12月姓名与部门组合不重复信息（如此处理同名不同部门者以两人计），如黄色区域。 3、在D2，输入公式“=SUMPRODUCT((INDIRECT(D$1&"!$B$2:$B$101")=$B2)*(INDIRECT(D$1&"!$C$2:$C$101")=$C2)*INDIRECT(D$1&"!$D$2:$D$101")）”，将其复制到整个区域，即可得到不重复姓名1-12月每月的工资金额，如浅绿色区域。

4、核对：在每表E101，求出当月工资合计；在本表Q521，求出12个月工资总计；P521=Q521=3744270，可证本汇总无遗漏。

4.如何将多个excel表格汇总到一个表格里

用这段代码试下，复制来的，是读入同一目录下的所有工作簿：

Private Sub CommandButton1_Click()

Dim Wk As Workbook, Sht As Worksheet, n As Integer, MyPath, MyName, u As Integer, arr

Application.ScreenUpdating = False

Application.EnableEvents = False

n = 0: M = 0

MyPath = ThisWorkbook.Path

MyName = Dir(MyPath & "" & "*.xls")

ThisWorkbook.Sheets("sheet1").Columns("A:A").Interior.ColorIndex = 0

Do While MyName <> ""

If MyName <> ThisWorkbook.Name Then

Set Wk = Workbooks.Open(MyPath & "" & MyName)

M = M + 1

For Each Sht In Wk.Sheets

arr = Sht.UsedRange

If IsArray(arr) = False Then GoTo PP

n = n + 1

With ThisWorkbook.Sheets("sheet1")

u = .UsedRange.Row + UsedRange.Rows.Count

.Cells(u, 1).Interior.ColorIndex = 6

.Cells(u, 1) = Wk.Name & "-" & Sht.Name

.Cells(u + 1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr

End With

Erase arr

PP:

Next

Wk.Close False

End If

MyName = Dir

Loop

Application.ScreenUpdating = True

Application.EnableEvents = True

Me.Select

If M = 0 Then

MsgBox "同路径下没有其他工作簿！"

ElseIf n = 0 Then

MsgBox "已读取" & M & "个工作簿！但该工作簿为空！"

Else

MsgBox "已读取" & M & "个工作簿！" & n & "个工作表！"

End If

End Sub

5.怎样将各个表格里的数据汇总到一个excel表里的多个工作表

如sheet0中A2开始是车牌号码，则B2为1日的耗油量，C2为2日的耗油量，D2为3日的耗油量，。

以此类推AE2为30日的耗油量。则操作如下： 1. 则在sheet0 中，输入公式：B2=VLOOKUP(A2,Sheet1!A:B,2,0),C2=VLOOKUP(A2,Sheet2!A:B,2,0),D2=VLOOKUP(A2,Sheet3!A:B,2,0),。

AE2=VLOOKUP(A2,Sheet30!A:B,2,0)。

2. 在sheet0 中，选择B2到AE2（即所有设定公式的单元格）往下拖，一直拖到A列中有车牌号的那一行。 这样的话，你只要在不同的sheet表中输入相关的数据，则总表会自动识别， 但前提是车牌号码须保持一致性，否则无法自动识别，你先试试，保证管用。

6.EXCEL请教：如何把多个工作表的内容汇总到一个工作表

记得给分我。

//

==========以下是宏===============

Sub 合并各工作表内容（）

sp = InputBox（"各表内容之间，间隔几行？不输则默认为0"）

If sp = "" Then

sp = 0

End If

st = InputBox（"各表从第几行开始合并？不输则默认为2"）

If st = "" Then

st = 2

End If

Sheets(1).Select

Sheets.Add

If st > 1 Then

Sheets(2).Select

Rows("1:" & CStr(st - 1)).Select

Selection.Copy

Sheets(1).Select

Range("A1").Select

ActiveSheet.Paste

y = st - 1

End If

For i = 2 To Sheets.Count

Sheets(i).Select

For v = 1 To 256

zd = Cells(65535, v).End(xlUp).Row

If zd > x Then

x = zd

End If

Next v

If y + x - st + 1 + sp > 65536 Then

MsgBox "内容太多，仅合并前" & i - 2 &； "个表的内容，请把其它表复制到新工作薄里再用此程序合并！"

Else:

Rows(st & ":" & x).Select

Selection.Copy

Sheets(1).Select

Range("A" & CStr(y + 1)).Select

ActiveSheet.Paste

Sheets(i).Select

Range("A1").Select

Application.CutCopyMode = False

End If

y = y + x - st + 1 + sp

x = 0

Next i

Sheets(1).Select

Range("A1").Select

MsgBox "这就是合并后的表，请命名！"

End Sub

7.如何将EXCEL中多个工作表中的内容统计汇总到一个工作表中

这个问题有点复杂不过我可以给你一个“超级汇总函数”希望对你能起到抛砖引玉的效果，他的优点就是在汇总表后增加新表，汇总会自动默认。

函数：

Function CJHZ(X As Range, Y As Integer, Z As Integer)

On Error Resume Next

For I = 2 To Sheets.Count

CJHZ = CJHZ + Application.WorksheetFunction.SumIf(Sheets(I).Columns(Y), X, Sheets(I).Columns(Z))

Next I

Application.Volatile

End Function

我对宏函数了解不深如果楼主也不是很了解的话我建议用傻瓜的办法，就是把得数除以统计数就等于个数了。