如何批量提取多个工作表的固定列里的数据，复制到一个工作表中！

gongwei01

原帖由 qdchyq 于 2010-9-25 17:31 发表
Sub TEXT()
Dim SH As Worksheet
Dim i%, j%
For Each SH In Worksheets
    If SH.Name  "合计" Then
       j = Sheets("合计").Range("a65536").End(xlUp).Row
       i = SH.Range("c6").End(xlDown).Row
...

这个完全可以，谢谢，非常感谢！！！！万能的EXCELHOME！！！！

gongwei01

原帖由 cafkyy 于 2010-9-25 19:51 发表
Sub TEXT()
    Dim SH As Worksheet
    Dim i%, j%, d
    Set d = CreateObject("Scripting.Dictionary")
    For Each SH In Worksheets
        If SH.Name  "合计" Then
            For j = 6 To SH.[c ...

这个也很好，非常感谢！！！！！！而且全部连后面有数据的列都导出了，自已再手工挑一下。很不错。。。速度嘛，好像是要快一点点。

lpluobin

好用！强呀！！！

lisan

留个记号，学习一下。

chenling134

占位置...学习~！

帷帐山人

qdchyq 发表于 2010-9-25 17:31
Sub TEXT()
Dim SH As Worksheet
Dim i%, j%

确认有用  学习了。

Excel小咔

留个脚印，学习了。

muiyisiqiao

大神们都太厉害了，膜拜~