比如第一张表上面写的是张三,下面是表里关于他的信息,然后第二张表外面写的是李四,我现在想做一张excel表,分两列打上序号1,张三,序号2李四,如何实现,因为内容较多,我只是举例,排除每一个复制粘贴那种死方法
你的意思是一个工作簿里面分很多工作表,每个工作表的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里面,我就是想把各个表头集中到下面那个表格里面,要打个井号的目录出来,贴在最前面
追答方便把表发过来给我吗?三四九四一四八九二