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

2024年1月15日 112次阅读 来源: Volcano3511

用到宏
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中创建一个汇总工作表
亲测有效

    原文作者：Volcano3511
    原文地址: https://blog.csdn.net/Volcano3511/article/details/89176615
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。
点赞