一个文件夹有很多excel表，每个表中有个同样名字的表单，怎么样把这些表单内容自动统一在一个excel表内。

在该文件夹下新建一个表， 然后ALT+F11 打开VBE编辑器  粘贴下面代码， 然后运行此宏

Sub CombineFiles1()
   Dim path           As String
   Dim FileName       As String
   Dim Wkb            As Workbook
   Dim ThisWB         As String
 
Dim MyDir As String
   MyDir = ThisWorkbook.path & "\"
   ThisWB = ThisWorkbook.Name
  Application.EnableEvents = False
  Application.ScreenUpdating = False
   path = MyDir
   FileName = Dir(path & "\*.xls", vbNormal)
   Do Until FileName = ""
      If FileName <> ThisWB Then
          Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName)
          S = ThisWorkbook.Sheets(1).[a65536].End(3).Row
        
          Wkb.Sheets("sum").UsedRange.Copy ThisWorkbook.Sheets(1).Cells(S + 1, 1)
          
         
          Wkb.Close False
      End If
      FileName = Dir()
   Loop
  Application.EnableEvents = True
  Application.ScreenUpdating = True
    
   Set Wkb = Nothing
  
End Sub

很简单啦：
先打开一个，你会看到这个表格左下角有sheet1 、sheet2、sheet3，后面还有一个+号，你把其他的表格挨个打开，挨个复制到这里面就ok了。

慢慢复制吧。亲~~