[已解决]求助！~~~同一文件中的多个工作表数据合并到一张工作表

wowohml · 发表于 2012-11-13 19:34

本帖最后由 suye1010 于 2012-11-14 16:44 编辑

每一个表的第一排标题都是一样的内容，我要的就是将它其他的数据汇合到一个表中来方便查询各种数据。因为每个表代表不同地方。。有70几个表啊。。。现传上一个只有两个表的，求各位高手指教帮忙谢谢！~~

最佳答案

月排行榜 / 总排行榜

suye1010

2012-11-14 16:38

本帖最后由 suye1010 于 2012-11-14 16:43 编辑

Option Explicit
Sub CombineData()
Application.ScreenUpdating = False
Dim sh As Worksheet
Sheets("合并").Cells.Clear
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "合并" Then
With Sheets("合并")
Select Case .Cells(1, 1)
Case Is <> ""
.Range("M" & .Range("A65536").End(xlUp).Row + 1).Resize(sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Count) = sh.Name
sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Copy .Range("A" & .Range("A65536").End(xlUp).Row + 1)
Case Else
.Range("M1") = "城市"
.Range("M2").Resize(sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Count) = sh.Name
sh.Range("A1:L" & sh.Range("A65536").End(xlUp).Row).Copy .Range("A1")
End Select
End With
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

合并.zip (703.34 KB, 下载次数: 27, 售价: 2 个金币)

wowohml · 发表于 2012-11-13 19:36

我不需要合计什么的。。。就是要所有的数据体现到一个表上。。。。全复制到一起不行。应为每个表的数据每天都在变总不能每天都去复制吧

suye1010 · 发表于 2012-11-13 20:04

这个搜索一下论坛，应该可以找到不少例子的，套用你总会的吧O(∩_∩)O

风化石 · 发表于 2012-11-14 09:37

合并.rar (210.34 KB, 下载次数: 128)

ccentaurc2005 · 发表于 2012-11-14 09:41

本帖最后由 ccentaurc2005 于 2012-11-14 10:24 编辑

1\70多张表,每张表的数据有多少行?
2\建议使用2007或2010版的excel
3\只要求合并到一个表中,原表中的数据变动时新表里面的数据也会变动
直接在合并表A1单元格内输入=大连!a1右拉,下拉(下拉行数大于原表中的行数,方便原表数据行数的增加时,合并表也能自动增加行数)
第二张烟台的表也一样.
第一次操作时会麻烦一下,下次使用时就只用更新数据原就行,合并表不动

wowohml · 发表于 2012-11-14 12:00

ccentaurc2005 发表于 2012-11-14 09:41
1\70多张表,每张表的数据有多少行?
2\建议使用2007或2010版的excel
3\只要求合并到一个表中,原表中的数据 ...

非常感谢你朋友。，我每个表都是近9000行。而且一直在增加，看来只有每天拉一次了

ccentaurc2005 · 发表于 2012-11-14 12:26

wowohml 发表于 2012-11-14 12:00
非常感谢你朋友。，我每个表都是近9000行。而且一直在增加，看来只有每天拉一次了

那就用07啊,07的行数是1,048,576 9000*70=630,000

wowohml · 发表于 2012-11-14 13:11

ccentaurc2005 发表于 2012-11-14 12:26
那就用07啊,07的行数是1,048,576 9000*70=630,000

朋友方便加一下你的QQ吗？我的qq： 1176890943 我看到网上好像有用vba代码的。。。我在单独的表格上更新数据或增加了行数的话。是不是在汇总表上他就自动更新增加呢？

ccentaurc2005 · 发表于 2012-11-14 13:30

wowohml 发表于 2012-11-14 13:11
朋友方便加一下你的QQ吗？我的qq： 1176890943 我看到网上好像有用vba代码的。。。我在单独的 ...

你可以直接在论坛发帖,会有很多人帮你的,方法还都不太相同,
我没学VAB,
你还要以给每日最佳答案(自定义头衔为VBA班)的同学发消息,单独问.

suye1010 · 发表于 2012-11-14 16:38

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2012-11-14 16:43 编辑

Option Explicit
Sub CombineData()
Application.ScreenUpdating = False
Dim sh As Worksheet
Sheets("合并").Cells.Clear
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "合并" Then
With Sheets("合并")
Select Case .Cells(1, 1)
Case Is <> ""
.Range("M" & .Range("A65536").End(xlUp).Row + 1).Resize(sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Count) = sh.Name
sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Copy .Range("A" & .Range("A65536").End(xlUp).Row + 1)
Case Else
.Range("M1") = "城市"
.Range("M2").Resize(sh.Range("A2:L" & sh.Range("A65536").End(xlUp).Row).Count) = sh.Name
sh.Range("A1:L" & sh.Range("A65536").End(xlUp).Row).Copy .Range("A1")
End Select
End With
End If
Next
Application.ScreenUpdating = True
End Sub

复制代码

合并.zip (703.34 KB, 下载次数: 27, 售价: 2 个金币)

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

[已解决]求助！~~~同一文件中的多个工作表数据合并到一张工作表

相关帖子

评分

附件可实现切换到合并工作表时自动更新数据