一个工作簿里N个工作表总，汇总成一张表，如何操作

tiankongwuy · 发表于 2012-6-12 22:10

今天工作表中遇到这一个问题，有一个工作簿，这工作簿里有N多张表，表头都是一样的。现在想把N张工作表合并在一张工作表里。如果一个一个复制粘贴。需要花上半天的时间了。有没有用函数或者VBA的办法能快速汇总在一张表里

1.rar (9.92 KB, 下载次数: 202)

AVEL · 发表于 2012-6-12 22:30

Option Explicit

Sub hz()
Dim sh As Worksheet
For Each sh In Sheets
      If sh.Name <> "汇总" Then
         sh.UsedRange.Offset(1).Copy Sheets("汇总").[A65536].End(3).Offset(1)
      End If
Next
End Sub

AVEL · 发表于 2012-6-12 22:31

EH(AVEL)-1 12-06-12 22-31.rar (20.47 KB, 下载次数: 754)

tiankongwuy · 发表于 2012-6-12 22:38

AVEL 发表于 2012-6-12 22:31

怎不能设置为最佳答案呀，

tiankongwuy · 发表于 2012-6-12 22:40

AVEL 发表于 2012-6-12 22:30
Option Explicit

Sub hz()

苦思半天呀，都没有做出来！

Ellison2012 · 发表于 2012-6-13 09:02

我也需要知道，感谢你们的分享

jiatengm · 发表于 2012-12-20 11:32

太感谢了，实用，还想问下你做的效果那个图片是怎么加上去的？

adao176 · 发表于 2013-7-2 21:41

hao好贴学习

飞雪飘梅 · 发表于 2014-4-18 16:54

效果图看了，正需要这样处理的数据报表，如何汇总，请解析谢谢

早睡不早起 · 发表于 2016-6-22 22:41

需把汇总的表名称改为“汇总”

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

[已解决] 一个工作簿里N个工作表总，汇总成一张表，如何操作

点评

评分

点评

最新热点 /1