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

如题所述

如果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运行即可。