怎样从多个表中快速批量提取数据。

用代码就可以。qq448733708。

试试 数据-合并计算功能

这个可能有点难度。
试举个实例来看看，比如说那个表那列那行。

需求很简单，上千个格式一样的文件，从每个文件的固定位置取数据，现实起来很难啊。不可能手动复制啊。

样式有千种万种，每种都造一个解法似乎不可能。没有具体例子就无法帮忙了。

例如:文件Site1, site2, site3,.....
在汇总表里，输入site1, 能直接显示出文件site1 里B5的数据， 我再随便输入其它100个文件的名字例如site7, site 15.....同样能取到文件中B5的数据。

首先选好你要处理的区域(此例a2:a6)，
设定 vba 内的文件夹，工作表名称，单元格，然后执行vba。
如找到就有显示，没找到就显示 "没找到" ，你可以修改显示字样，或不显示。

Sub getdata()
Dim cell As Range, nextcell As Range, path$, ST$, CL$
path = "D:"
ST = "Sheet1"
CL = "b2"
If Not path Like "*\" Then path = path & "\"
Application.DisplayAlerts = False
On Error Resume Next
For Each cell In Selection
cell.Offset(0, 1) = "='" & path & "[" & cell.Value & ".xls]" & ST & "'!" & CL
Set nextcell = cell.Offset(0, 1)
If IsError(nextcell) Then
nextcell.Value = "没找到"
Else
nextcell.Value = nextcell
End If
Next
On Error GoTo 0
Application.DisplayAlerts = True
End Sub

执行上面vba时不须要打开有关xls文件。

假设，
收集数据那个工作表放在最右。(此例是 "汇总表" )
收集的工作表由左至右
输出在 "汇总表" A1及以下
Sub xxx()
Dim i%
Sheets(Sheets.Count).Select
For i = 1 To Sheets.Count - 1
Cells(i, 1) = Sheets(i).Name
Cells(i, 2) = Sheets(i).[h28]
Next
End Sub