如何把多个excel表格中的sheet页合并成一个
2个回答
2017-03-11
深圳市新思维软件有限责任公司
深圳市新思维软件有限公司致力于为企业、组织提供专业的软件产品解决方案、软件集成，软件开发及服务。总部设于中国深圳，服务客户包括政府、公安、环保、教育、旅游、酒店、转型制造业等组织及企业。
向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的工作表内容到一个工作表中
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
