excel怎样将多个工作表合并

Excel多个工作表合并至一个工作表!

excel怎样将多个工作表合并

效果如下所示:

excel怎样将多个工作表合并

要求汇总至一个工作表

excel怎样将多个工作表合并

1多个工作表

表一数据:

姓名定位性别程咬金坦克男刘禅坦克男墨子坦克男亚瑟坦克男钟无艳坦克女

excel怎样将多个工作表合并

表二数据:

excel怎样将多个工作表合并

表三数据:

excel怎样将多个工作表合并

2传统方法:

使用ALT D P功能的多重合并计算,但是在添加字段时,如果存在100张表格,那么这种方法的效率是极低的

excel怎样将多个工作表合并

3VBA代码

那么只需要使用VBA方法,就能轻松快速的解决,如果你的字段不是3个,那么仅需将下面字段中的标红位置进行相应修改即可!

excel怎样将多个工作表合并

VBA代码

Sub 多表合并()

Dim arr()

For Each sh In Sheets

If sh.Name <> "汇总" Then

arr1 = sh.Range("a2:c" & sh.UsedRange.Rows.Count)

act = act UBound(arr1)

ReDim Preserve arr(1 To 3, 1 To act) '

For j = 1 To UBound(arr1)

n = n 1

arr(1, n) = arr1(j, 1)

arr(2, n) = arr1(j, 2)

arr(3, n) = arr1(j, 3)

Next

If

Next

Sheets("汇总").[a2].Resize(n, 3) = Application.Transpose(arr)

Sub

将文件另存为xlsm格式,要不然重新打开文件时这段代码就消失了!

觉得好用的可以收藏分享给你的朋友哦!

版权声明:本文内容由互联网用户投稿发布,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 2211788188@qq.com 举报,一经查实,本站将立刻删除。如需转载请注明出处:https://www.wptmall.com/a/article/98802

为您推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注