怎样将一个EXECL文件中的所有Sheet表合并在同一个SHeet表中

jcmyygy · 发表于 2023-7-14 13:37

请教老师：怎样将一个EXECL文件中的所有Sheet表合并在同一个SHeet表中，在线等，谢谢！

miya0524 · 发表于 2023-7-14 13:51

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

shiruiqiang · 发表于 2023-7-14 13:51

你是汇总，还是提取所有的数据。前者相同的加起来，后者每条数据提取出来。最后数据放哪里，都没头没脑地，让群里老师怎么下手

jcmyygy · 发表于 2023-7-14 14:03

shiruiqiang 发表于 2023-7-14 13:51
你是汇总，还是提取所有的数据。前者相同的加起来，后者每条数据提取出来。最后数据放哪里，都没头没脑地， ...

不好意思，没有说清楚，就是所有的数据全部放到一个表中，谢谢！

jcmyygy · 发表于 2023-7-14 14:04

不好意思，没有说清楚，就是将每个表中所有的数据全部放到一个表中，谢谢！

shiruiqiang · 发表于 2023-7-14 14:10

本帖最后由 shiruiqiang 于 2023-7-14 14:11 编辑

直接wps里面是的，选择第一个功能，比帮你写代码快了

jcmyygy · 发表于 2023-7-14 14:15

shiruiqiang 发表于 2023-7-14 14:10
直接wps里面是的，选择第一个功能，比帮你写代码快了

我的办公电脑用的是EXECL

tanglf188 · 发表于 2023-7-14 14:21

jcmyygy 发表于 2023-7-14 14:15
我的办公电脑用的是EXECL

简单合并遍历工作表就可以了，选择合并要么改代码要么用选项，还有就是合并是不是要考虑去重？

jcmyygy · 发表于 2023-7-14 14:30

tanglf188 发表于 2023-7-14 14:21
简单合并遍历工作表就可以了，选择合并要么改代码要么用选项，还有就是合并是不是要考虑去重？

就是最简单的多个表，机械地搬到一张表中，不需要计算和合并

shiruiqiang · 发表于 2023-7-14 14:35

先建议把做报表的给开除吧

		自动登录	找回密码
密码			免费注册

[求助] 怎样将一个EXECL文件中的所有Sheet表合并在同一个SHeet表中

评分

评分