Excel用代码sub运行汇总多个sheet工作表（重点笔记请保存!）
如图所示：如何将sheet1、sheet2、sheet3、sheet4...几百个工作表快速汇总在一张Excel表里？这里需要用到一个代码，Sub可以合并当前工作簿下的所有工作表()，笔记如下：Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <>...
如图所示：如何将sheet1、sheet2、sheet3、sheet4...几百个工作表快速汇总在一张Excel表里？
这里需要用到一个代码，Sub可以合并当前工作簿下的所有工作表()，笔记如下：
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub
1、首先，原excel基础上插入新工作表。
2、然后，在新的工作表中，鼠标右键，选择查看代码。
3、之后，会弹出代码对话框。
4、然后，我们事先提前已编辑好代码在txt记事本中全选复制。
5、将代码粘贴到对话框里。
6、点击运行。
7、最后，成功汇总完N个sheet工作表。
综上所述，汇总完的表常见用于数据透视分析和图表模型建立等方面，非常高效率。
欢迎收藏本站，获取更多优质内容。如需转载请保留本文地址。本文地址：http://www.mgcjz.cn/article/93.html
- 发表于 2023-04-03 20:53
- 阅读 ( 377 )
- 分类：教程指南
