如何用字典功能实现多表合并呢？

lingdo2001

如附件，因数据量较大，希望用字典功能实现多表合并，速度会快一些。

jsxjd

区域拷贝，字典“画蛇添足”

jsxjd

1. Private Sub CommandButton1_Click()
   
2.     For Each s In Sheets
   
3.         If s.Name <> "合并" Then s.[A2].Resize(s.[A65536].End(xlUp).Row - 1, 3).Copy Range("A" & [A65536].End(xlUp).Row + 1)
   
4.     Next
   
5. End Sub
   

复制代码

jsxjd

多表合并.rar (13.74 KB, 下载次数: 38)

2014-8-8 18:43 上传

点击文件名下载附件

hlly888

1. Sub yy()
   
2. Dim arr, brr(1 To 100000, 1 To 3), i&, j&, s&, sh As Worksheet
   
3.     For Each sh In Worksheets
   
4.         If sh.Name <> "合并" Then
   
5.            arr = sh.UsedRange
   
6.            For i = 2 To UBound(arr)
   
7.                s = s + 1
   
8.                For j = 1 To 3
   
9.                    brr(s, j) = arr(i, j)
   
10.                Next
    
11.            Next
    
12.         End If
    
13.     Next
    
14. Range("a2:c65536").ClearContents
    
15. Range("a2").Resize(s, 3) = brr
    
16. End Sub

复制代码

张雄友

0.05秒够不够快。

hlly888

多表合并.zip (18.65 KB, 下载次数: 30)

2014-8-8 18:54 上传

点击文件名下载附件

jiminyanyan

一搜一大推。。。。。。

lingdo2001

谢谢各位。

但是如果有多余的工作表存在的情况下怎么改写程序呢？？
如附件。。。。

张雄友

lingdo2001 发表于 2014-8-8 21:37
谢谢各位。

但是如果有多余的工作表存在的情况下怎么改写程序呢？？

什么叫多余的表格？像《其他表格1》这样的工作表？神仙都做不到。