我是靠谱客的博主 幸福机器猫，最近开发中收集的这篇文章主要介绍4.Excel vba开发-多个sheet合并成一个需求：多个sheet合并成一个效果代码，觉得挺不错的，现在分享给大家，希望可以做个参考。
概述
需求：多个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
最后
以上就是幸福机器猫为你收集整理的4.Excel vba开发-多个sheet合并成一个需求：多个sheet合并成一个效果代码的全部内容，希望文章能够帮你解决4.Excel vba开发-多个sheet合并成一个需求：多个sheet合并成一个效果代码所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复