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

用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

比如编辑某一配置文件.conf

举个例子

vi /etc/keepalived/keepalived.conf

然后按Esc 输入冒敬雹号(shift+)然后亮陆帆悉逗输入数字(希望编辑的行数)然后回车

---