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

发布网友发布时间：2022-09-02 05:48

共2个回答

热心网友时间：2024-02-15 02:57

用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

热心网友时间：2024-02-15 02:57

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

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