excel工作簿中很多工作表，每个工作表中单独取数汇总

Question

1、一个工作簿中有几百个工作表（如1-6），
2、每个工作表格式一样（A1、A2等表示数字）

3、现在做一个一个汇总表显示所有工作表（1-6）中A1的数字

4、实际工作表数量很多，要使用公式批量取数。（汇总表中B2=“1“A1，中的“1“能否根据提取的工作表自动化）
5、工作表名称也要自动提取。

Answer 1

用vba

Sub aa()
    n = Worksheets.Count
    For i = 2 To n
        Sheet1.Cells(i, 1).Value = Sheets(i).Name
        Sheet1.Cells(i, 2).Value = Sheets(i).Cells(1, 1).Value
    Next
End Sub