4.Excel vba开发-多个sheet合并成一个

最新推荐文章于 2024-08-19 16:59:58 发布

牛code

最新推荐文章于 2024-08-19 16:59:58 发布

阅读量2.2k

点赞数 2

分类专栏： excel vba开发文章标签： vba

本文链接：https://blog.csdn.net/qq_25064691/article/details/126029384

版权

excel vba开发专栏收录该内容

18 篇文章

订阅专栏

需求：多个sheet合并成一个

在这里插入图片描述

效果

在这里插入图片描述

代码

Sub 合并当前工作簿下的所有工作表()
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set st = Worksheets.Add(before:=Sheets(1))
st.Name = "合并"
For Each shet In Sheets:
If shet.Name <> "合并" Then
i = st.Range("A" & Rows.Count).End(xlUp).Row + 1
 shet.UsedRange.Copy
 st.Cells(i, 1).PasteSpecial Paste:=xlPasteAll
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "已完成"
End Sub