excel多张表合并成一张表

如果有100张表，每一张都是姓名 年龄 性别三列
想要的结果是 把100张表的内容全部合到一张表里
还是姓名 年龄 性别三列
不想复制黏贴，100张表太浪费时间了
哪位大侠支个招。
能麻烦说下具体

你的100张表在同一个工作簿里面么？
是的话，可以使用
此宏用于合并同一工作簿内的所有工作表！
打开你的工作簿，按下alt+F11，插入-模块，看见一个模块1，复制下面的的内容，然后运行。
你的 工具-宏-安全性，设置为中，才能运行此宏。
按照提示做就可以了。注意：如果工作表很多可能需要很长时间，请耐心等待！
*//
==========以下是宏===============

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

假设所有表的列相同，且每页都有表头不需要合并。将所有表都合并到第一个表中。另外还要假设所有表的数据是连续的没有空行之类的东西。 如果以上所有的假设都成立，打开第一个表，右击sheet标签，查看代码，把下面代码贴进去，然后按f5。如果结果是你要的再把代码删掉正常保存表格。 sub hebing() dim sht as worksheet, a as integer, b as integer, rng as range for each sht in worksheets if sht.name <> activesheet.name then set rng = range("a1").end(xldown).offset(1, 0) a = sht.range("a1").currentregion.rows.count b = sht.range("a1").currentregion.columns.count sht.range("a2").resize(a - 1, b).copy rng end if next end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息