Question

如何提取多个excel工作表中同一位置的单元格数据？sheet名称无规律。

Answer 1

如果sheet命名没有规律，普通的公式应该无法实现，不过可以使用vba代码实现。

比如你要提取每个sheet中的B2单元格，可以新建一个sheet，使其置于最右侧位置。

然后复制如下代码：

---

Sub 提取表格单元格数据()

'最后一张工作表必须为目录表，且A列没有数据，或直接新建sheet

Dim i As Integer

Application.ScreenUpdating = False

Sheets(Sheets.Count).Range("A1:A2000").ClearContents

For i = 1 To Sheets.Count-1

    Sheets(Sheets.Count).Range("a" & i) = Sheets(i).[b2]

Next

Sheets(Sheets.Count).Select

Application.ScreenUpdating = True

End Sub

---

按alt+F11键，在上方菜单中选择插入模块，粘贴该代码，按F5运行即可。

Answer 2

提取工作表SHEET1-SHEET8中的A1值。步骤：
　　
第一步，定义名称

在SHEET9工作表中，点百击“公式”、“定义名称”度。在“新建名称”对话框中，“名称”设置为如X，“引用位置”输入
=INDEX(GET.WORKBOOK(1),ROW(D1))
　　
然后在A1中输入
=X
向下拖公式，就内会显示各工作表名称。　
第二步，提取数据

在B1中输入
=INDIRECT(A1&"!A1")
　　就提取出SHEET1-SHEET8工作表A1单元格的值。