怎样把不同excel表格表头内容集中到一张表里面

Question

比如第一张表上面写的是张三，下面是表里关于他的信息，然后第二张表外面写的是李四，我现在想做一张excel表，分两列打上序号1，张三，序号2李四，如何实现，因为内容较多，我只是举例，排除每一个复制粘贴那种死方法

Answer 1

你的意思是一个工作簿里面分很多工作表，每个工作表的A1单元格是姓名?

如果是的话可用代码简单实现。

第一步：ALT+F11

第二步：在左边当前工作簿位置点右键-插入-模块

第三部：在右边空白处粘贴如下代码

Sub MY()

Dim C As Long, i As Long

C = Sheets.Count

Sheets.Add after:=Sheets(Sheets.Count)

Sheets(C + 1).Select

For i = 1 To C

    Sheets(C + 1).Cells(i, 1) = "序号" & i

    Sheets(C + 1).Cells(i, 2) = Sheets(i).Cells(1, 1)

Next i

MsgBox "完成" & C & "条信息汇总"

End Sub

第五步：F5运行

如果我假设的表的格式不对，请详细说明。

追问

请看图片

好多好多井号，我只是列了三口井，请帮忙看看该怎么弄，谢谢

追答

这些井的名字都在一个工作表里吗？

追问

都在一个工作簿里，在一个book1里面，我就是想把各个表头集中到下面那个表格里面，要打个井号的目录出来，贴在最前面

追答

方便把表发过来给我吗？三四九四一四八九二