用VBA数组把多个工作表中数据 汇总到一个工作表中

laoau138

用VBA数组把多个工作表中数据   汇总到一个工作表中

乐乐2006201506

试试，如果好用，请给最佳。

laoau138

乐乐2006201506 发表于 2017-2-9 19:12
试试，如果好用，请给最佳。

结果完全正确  

VBA把字典改写成 纯数组方法 按列计算遗漏值  
http://www.excelpx.com/thread-427607-1-1.html

laoau138

乐乐2006201506 发表于 2017-2-9 19:12
试试，如果好用，请给最佳。

不知道速度能不能  再快一点啊

Sub 汇总所有数据()
Application.ScreenUpdating = False
[a5:n8888] = ""
Dim myPath$, myFile$, nm$, s%, r&, arr, wb As Workbook
myPath = ThisWorkbook.Path & "\"
myFile = Dir(myPath & "*.xls")
    Do While myFile <> ""
        If myFile <> ThisWorkbook.Name Then
            Set wb = GetObject(myPath & myFile)
                arr = wb.Worksheets(1).[a5:n8888] '可调成合适的区域
                With ThisWorkbook.Worksheets(1)
                    r = .Cells(.Rows.Count, 2).End(xlUp).Row
                    If r < 4 Then r = 4
                    .Range("a" & r).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr
                End With
            wb.Close False
        End If
        myFile = Dir
    Loop
Application.ScreenUpdating = True
End Sub

乐乐2006201506

laoau138 发表于 2017-2-9 19:28
不知道速度能不能  再快一点啊

Sub 汇总所有数据()

你指哪个速度快一些，是指我的代码，还是你发的代码？你发的代码已经都好了。估计提速空间不大。

laoau138

乐乐2006201506 发表于 2017-2-9 19:31
你指哪个速度快一些，是指我的代码，还是你发的代码？你发的代码已经都好了。估计提速空间不大。

2个代码速度差不多
难道没有更快的

乐乐2006201506

laoau138 发表于 2017-2-9 19:32
2个代码速度差不多
难道没有更快的

这两个思路差不多，都要从另一个工作簿中复制取数，所以速度差不多啊。

laoau138

乐乐2006201506 发表于 2017-2-9 19:35
这两个思路差不多，都要从另一个工作簿中复制取数，所以速度差不多啊。

VBA代码改写不要用find  明细表

http://www.excelpx.com/thread-427613-1-1.html