如何利用excel宏计算合并单个excel表中的多个sheet工作页
3个回答
2019-11-08 · 旨在提供办公软件的问答帮助。
WPS官方
金山办公软件为金山软件集团子公司,主要研发并运营WPS系列办公软件。WPS是我国自主知识产权的民族软件代表,自1988年诞生以来,WPS Office已经成为全世界最知名的办公软件之一。
向TA提问
关注
展开全部
1. 增加一个工作表sheet,重命名xx 。
2. 点到新增加的工作表中,按ALT+F11,出现如图的对话框。
3.双击名称xx的图标。出现如下对话框。
4. 在上图红色的区域复制上如下代码。
Sub GetStName()
Dim FinalRow As Long
Dim St As Worksheet
FinalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2
For Each St In ThisWorkbook.Worksheets
Cells(FinalRow, 1).Value = St.Name
FinalRow = FinalRow + 1
Next St
End Sub
5.把名称为xx的图表的属性改为sheet1(这需要把原先那个sheet1,改为其他的sheet,不和其他工作表重复即可
6.点击菜单中的执行的三角符号,就可以合并所有sheet的工作表内容到一个工作表中
2. 点到新增加的工作表中,按ALT+F11,出现如图的对话框。
3.双击名称xx的图标。出现如下对话框。
4. 在上图红色的区域复制上如下代码。
Sub GetStName()
Dim FinalRow As Long
Dim St As Worksheet
FinalRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 2
For Each St In ThisWorkbook.Worksheets
Cells(FinalRow, 1).Value = St.Name
FinalRow = FinalRow + 1
Next St
End Sub
5.把名称为xx的图表的属性改为sheet1(这需要把原先那个sheet1,改为其他的sheet,不和其他工作表重复即可
6.点击菜单中的执行的三角符号,就可以合并所有sheet的工作表内容到一个工作表中
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
上图说明,你这样表述很难让人看懂
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询