实现excel多个工作表合成为一个

最新推荐文章于 2024-04-12 03:09:07 发布

原创最新推荐文章于 2024-04-12 03:09:07 发布 · 2.9k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#小工具

小工具专栏收录该内容

1 篇文章

订阅专栏

本文介绍如何使用VBA宏代码在Excel中创建一个汇总工作表，将多个工作表的数据快速合并到一个指定的工作表中。代码通过遍历所有工作表，选择每个工作表的数据区域并复制到新建的汇总工作表中。

用到宏
alt+f11调出vba

创建一个模块
粘贴代码如下

Sub Comb()

Dim i%

On Error Resume Next

Sheets(1).Select

Worksheets.Add '新建一个工作表

Sheets(1).Name = "汇总工作表" '对新建工作表重命名

For i = 2 To Sheets.Count 'For循环，遍历所有工作表

Sheets(i).Activate '激活工作表

Range("a1").Select

Selection.CurrentRegion.Select '选择活动工作表数据区域

Selection.Copy Destination:=Sheets(1).Range("a65536").End(xlUp).Offset(1) '粘贴到汇总工作中

Next

MsgBox ("工作表已全部合并到指定工作表中！") '弹窗提示合并完成

End Sub

点击运行即可
在当前的excel中创建一个汇总工作表
亲测有效