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

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

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

不感兴趣

开通SVIP免广告

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

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

就是这个意思

假设找h列最底下那个数
Sub xxx2()
Dim i%
Sheets(Sheets.Count).Select
For i = 1 To Sheets.Count - 1
Cells(i, 1) = Sheets(i).Name
Cells(i, 2) = Application.Lookup(9 ^ 307, Sheets(i).[h:h])
Next
End Sub

真是无语了，几行代码把我几年的辛苦都解决了，没什么表示的，只好盼望siao juen吧主能来河北保定的白洋淀旅游一次，到时候请你吃红鳞大鲤鱼，刚才和轻舟吧主都闹笑话了，把字打错了，不过我可真不敢那二位开玩笑啊！！！真心的希望啊，如果能来的话给我留言，QQ1206352076

我真是无语了，这个小儿科要搅几年。

不感兴趣

开通SVIP免广告

在我看来可不是小儿科呀，简直是武林秘籍。真的没法表达我的感激之情，首先感谢的是吧主的真心赐教，再有就是感谢百度给大家提供的这个平台，使更多的人的学习更进步了。

刚好用的上，还要试试在每个文件中取多个单元格

没有源excel文件

看过了，确实有帮助，谢谢

谢谢，帮助很大。

不感兴趣

开通SVIP免广告

不知道楼主实现了没有，有的话能教教我吗，我也遇到了同样的问题，但是我不会用vba，能告诉我大概怎么用吗

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

首页上一页 1 2 3 下一页尾页
37回复贴，共3页
，跳到页

<<返回excel吧

分享到:

日	一	二	三	四	五	六