如何快速把几十个工作表汇总成一个工作表

可理喻

谢谢,我看一下我能不能做出来

Margaretz

不知道有没有简单一点的做法?谢谢.对于我这个新手来说真是难懂的很,但还是非常的感谢!

LUOYEZHIQIU

我又学到了一招，谢谢各位，请大家多多关照，太棒了。

shenshen0455

喜欢看到这种方式的解答，后面有程序说明

有的人写的程序，一点说明都没有

小雨叶

QUOTE:

以下是引用异冉在2008-1-15 18:14:39的发言：
Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim Sh As Worksheet, nRow As Long
   
    '清除原来汇总结果
    nRow = Range("a65536").End(xlUp).Row
    If nRow >= 3 Then
        Range("a3:f" & nRow).ClearContents
    End If
   
    '循环所有工作表
    For Each Sh In Worksheets
   
        If Sh.Name <> ActiveSheet.Name Then        '如果不是本汇总表
       
            nRow = Sh.Range("a65536").End(xlUp).Row '子工作表最后的行号
           
            If nRow >= 3 Then
                Sh.Range("a3:f" & nRow).Copy Range("a65536").End(xlUp).Offset(1) '把数据复制到汇总表的后面
            End If
        End If
    Next
    Application.ScreenUpdating = True
End Sub

晕哦,是太深奥了还是我太笨了，我看不懂那是什么公式呀，郁闷死啦！

happy781217

有个工具“EXECL汇总专家”你可以试一下。

119714653

异冉 发表于 2008-1-15 18:14
Private Sub CommandButton1_Click()&nbsp;&nbsp;&nbsp; Application.ScreenUpdating = False&nbsp;&nbsp;& ...

代码很合我用呢，可我现在想把表名一起加入汇总表里要怎么加代码呢？

Strive_TL

WPS可以完成该需求

Strive_TL

VBA也可以实现
Sub 汇总()
    t = Timer
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls*")
    Application.ScreenUpdating = False
    ReDim brr(1 To 100000, 1 To 22)
    Do While f <> ""
        If InStr(f, ThisWorkbook.Name) = 0 Then
            n = n + 1
            With Workbooks.Open(p & f)
                Set sh = .Sheets(1)
                arr = sh.[a1].CurrentRegion
                .Close False
            End With

            For i = 2 To UBound(arr)
                m = m + 1
                For j = 1 To UBound(arr, 2)
                    brr(m, j + 1) = arr(i, j)
                Next
            brr(m, 1) = f
            Next
        End If
        f = Dir
     Loop
     Set sh = Nothing
     With Sheet1
         .Range("a2:v" & Rows.Count).ClearContents
         .[a2].Resize(m, 22) = brr
     End With
     Application.ScreenUpdating = True
     MsgBox "合并了" & n & "个工作簿的" & m & "行数据。" & "用时：" & Format(Timer - t, "0.00") & "秒"
End Sub

脚踏祥云进来了

安装易用宝，有个工作簿管理 - 合并工作簿功能。