【资料图】

1、1. 增加一个工作表sheet，重命名xx 。

2、2. 点到新增加的工作表中，按ALT+F11，出现如图的对话框。

3、3.双击名称xx的图标。

4、出现如下对话框。

5、4. 在上图红色的区域复制上如下代码。

6、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 = ***.Name FinalRow = FinalRow + 1 Next StEnd Sub5.把名称为xx的图表的属性改为sheet1（这需要把原先那个sheet1,改为其他的sheet，不和其他工作表重复即可6.点击菜单中的执行的三角符号，就可以合并所有sheet的工作表内容到一个工作表中。

本文就为大家分享到这里，希望会喜欢。

关键词：