Question

excel中怎么提取很多sheet页的某一行到一个新sheet中

Answer 1

用VBA程序实现，假设将所有sheet中的第一行，提取到新建的sheet表中\
代码及注释如下：
Sub main()
Worksheets.Add after:=Sheets(Sheets.Count) '添加新的工作表，用于存放数据
For i = 1 To Sheets.Count - 1 '遍历所有工作表，除新添加的工作表外
Sheets(i).Rows(1).Copy Sheets(Sheets.Count).Range("A" & i) '将每个工作表的第一行，复制到新工作表，从第一行开始依次往下累加
Next i
End Sub

Answer 2

如果需要得到每个表的B2:G2的数据。
在新的Sheet的A列，将多个Sheet的表名罗列，比如分表一、分表二等；
然后在B2单元格输入以下公式，向右向下填充公式
=OFFSET(INDIRECT($A2&"!B2"),,COLUMN(A1)-1)

追问

试了一下 好像不行

追答

公式表示：以A2单元格内容为表名的B2单元格为基准，每向右移动一列，偏移一列。