如何将数千个相同表格中的同一栏提取到一张表格中

童龙军

你好！如何将数千个相同表格中的同一栏提取到一张表格中? 补充： 表格的格式相同，但是内容不同。


是只有一个薄，里面有很多工作表，每个工作表的格式是一样的。

AVEL

1. Sub l()
   
2.     Dim arr(1 To 10000, 1 To 2)
   
3.     Dim sh As Worksheet
   
4.     Dim i As Integer
   
5.     For Each sh In Sheets
   
6.         With sh
   
7.             If .Name <> ActiveSheet.Name Then
   
8.                 i = i + 1
   
9.                 arr(i, 1) = .[b2]
   
10.                 arr(i, 2) = .[f2]
    
11.             End If
    
12.         End With
    
13.     Next
    
14.     ActiveSheet.[a3].Resize(i, 2).Value = arr
    
15. End Sub
    

复制代码

AVEL

多表提取特定值，形成目录.rar (8.58 KB, 下载次数: 20)

2013-4-9 09:47 上传

点击文件名下载附件

童龙军

AVEL 发表于 2013-4-9 09:46

谢谢！达到预期效果!