第2个回答 2017-09-04
采用宏来解决,如下的方法请参考:
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的工作表内容到一个工作表中