如何合并相同格式的文件并提炼该文件名进入合并文件中（或者在合并文件中进行标识））

injinbb

求助各位大神，有很多相同格式的文件，差不多100个左右，有什么方法能将例如附件报表1、报表2、报表3这三个相同格式的报表，其中的E5-E15合并到同一个报表中，例如报表2的E5-E15合并到报表合并中的F5-F15，报表3的E5-E15合并到报表合并中的G5-G15，并于合并报表中能列出是哪个文件的数据，合并后的效果如附件报表合并格式，其中最好有以excel文件名为标识提炼进报表合并中。
感谢各位大神，谢谢。

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr()
   
4.   Dim wb As Workbook
   
5.   Dim ws As Worksheet
   
6.   Dim mypath$, myname$
   
7.   Application.ScreenUpdating = False
   
8.   Application.DisplayAlerts = False
   
9.   mypath = ThisWorkbook.Path & ""
   
10.   myname = Dir(mypath & "*.xls")
    
11.   n = 0
    
12.   Do While myname <> ""
    
13.     If myname <> ThisWorkbook.Name Then
    
14.       Set wb = GetObject(mypath & myname)
    
15.       With wb
    
16.         With .Worksheets(1)
    
17.           arr = .Range("e6:e15")
    
18.           n = n + 1
    
19.           ReDim Preserve brr(1 To UBound(arr), 1 To n)
    
20.           For i = 1 To UBound(arr)
    
21.             brr(i, n) = arr(i, 1)
    
22.           Next
    
23.         End With
    
24.         .Close False
    
25.       End With
    
26.     End If
    
27.     myname = Dir
    
28.   Loop
    
29.   With Worksheets(1)
    
30.     .Range("e5").Resize(12, .Columns.Count - 4).ClearContents
    
31.     .Range("e5").Resize(1, UBound(brr, 2)) = "数据"
    
32.     .Range("e6").Resize(UBound(brr), UBound(brr, 2)) = brr
    
33.   End With
    
34. End Sub
    
35. 
    

复制代码

chxw68

详见附件。

injinbb

chxw68 发表于 2018-9-19 10:18
详见附件。

大神，可以合并，但是如何标识这列的数据属于哪个文件中的数据？这有什么方法嘛？比如F列的数据属于报表2

chxw68

修改好了。

injinbb

chxw68 发表于 2018-9-19 10:40
修改好了。

谢谢大神的帮助，太感谢了