需求：多个sheet合并成一个
效果
代码
复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Sub 合并当前工作簿下的所有工作表() 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内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复