多张格式相同的EXCEL表汇总至一张汇总表中

xiaoyaodizu

如题，年末需要汇总统计数据，需要将六十家店全年业绩汇总至一张汇总表中；六十家店的格式是完全一致的，应该如何操作，求各位大神帮忙解决，在此万分感谢

小花鹿

搜索汇总工作薄，很多...................................................................................................

genitous

把各表放到一个文件夹里，然后新建一个空的excel表

genitous

这个可以有

xiaoyaodizu

genitous 发表于 2017-1-23 10:48
这个可以有

谢谢您的帮助，由于我是代码文盲，怎么去使用这些代码，麻烦您指导

genitous

把各表放到一个文件夹里，然后新建一个空的excel表，进入excel表 alt+F11 把文档里的代码粘进去运行就ok了

xiaoyaodizu

genitous 发表于 2017-1-23 11:04
把各表放到一个文件夹里，然后新建一个空的excel表，进入excel表 alt+F11 把文档里的代码粘进去运行就ok了

好的，谢谢！您的帮助大大减轻了我的工作量，谢谢！

lsc900707

Sub lsc()
    Dim mypath As String, myname  As String, Dname As String, sh As Worksheet, i As Integer
    Set sh = ActiveSheet
    mypath = ThisWorkbook.Path
    myname = ThisWorkbook.Name
    Dname = Dir(mypath & "\*.xls*")
    Application.ScreenUpdating = False
    sh.UsedRange.Offset(1, 0).Clear
    Do While Dname <> ""
        If Dname <> myname Then
            For i = 1 To Worksheets.Count
                With GetObject(mypath & "\" & Dname)
                    .Sheets(i).UsedRange.Offset(1, 0).Copy sh.[A1048576].End(xlUp).Offset(1)
                    .Close False
                End With
            Next
        End If
        Dname = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "汇总完成，请查看!"
End Sub

xiaoyaodizu

lsc900707 发表于 2017-1-23 11:32
Sub lsc()
    Dim mypath As String, myname  As String, Dname As String, sh As Worksheet, i As Integ ...

十分感谢您提供的解决代码，为我的工作带来很大的便利，谢谢！