我有多个格式一模一样的EXCEL表，现在需要从每张表的固定位置提取数据出来。如果实现快速批量提取功能?

用代码就可以。qq448733708。

试试 数据-合并计算功能

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

我也遇到过类似的情况，以前就是复制/选择性粘贴/粘贴链接，不知道还有没有更好的办法？还有一个问题就是比如提取每个表格的f5（右下角左后一个单元格），当其中一个表格插入行以后，比如插入3行，就变成了f8，这样汇总后的数据会不会有变化？请吧主不吝赐教，谢谢！！！

自己顶一下，千万别沉下去呀！！

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

是把每个表里的同一位置的数取出来，在新的表里相加，还是在新的表里进行逐行填写出来。

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

例如:文件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文件。

我的情况和楼主不太一样，情况是这样，我的一个工作簿里面有100多个工作表，且每个工作表的名字也不一样（是汉字不是sheet1、sheet2），我想在最后的表格里面有一个汇总的表格，也就是每个工作表的最终数据（总欠账），我打算在这个工作表里面提取前面所有表格的H28中的数据，这个可以做到么？谢谢siao juen吧主了！！！

假设，
收集数据那个工作表放在最右。(此例是 "汇总表" )
收集的工作表由左至右
输出在 "汇总表" 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


这次的代码运行速度很快一秒钟就完成了，还要请教吧主能不能把条件改一下，收集每个工作表右下角的数据，比如：如果原来的表格插入1行以后就收集h29的数据？谢谢！！！

"原来的表格插入1行以后" 怎样判断？

就是说虽然每个表格的格式一样，但是长度不一样（行数不一样），有的表格是h28，有的是h29、h30，是不是有办法收集每个表格的最下面、最右面的数据（右下角）？也可能是我的表格格式不太适合这样做，如果把汇总行作在最上面就方便了，但是已经做好了要改动的话工作量就大很多了。

＞＞有的表格是h28，有的是h29、h30
是否有这个共通点？就是 h列最底下那个数？

就是这个意思