一个工作簿里每个工作表的第一行汇总到一个表里

如果只有几个工作簿就用这个，如果很多工作簿还要写个遍历。
'打开工作簿，按alt+f11，插入——模块，然后复制下面的东西，然后按f5。
Sub a()
Dim a, b
For a = 1 To Sheets.Count
If Sheets(a).Name <> "Sheet10" Then
'""里是汇总表的sheets名称(后面的那个也是)，注意大小写
Sheets(a).Cells(1, 1).EntireRow.Copy Sheets("Sheet10").Cells(a, 1)
End If
Next
MsgBox "完成"
End Sub