懵新求助，大神帮忙做个一个多表合并，谢谢了

kokoro123

求助大神，我想要将多张表合并汇总到一张表内，但汇总总表类目还有排列，跟资源表不同，求助大神能否将资源表内相同类目名称的数据自动填入汇总表相同类目下，订单号和用户名有重复数据，只保留第一行的订单号和用户名，其余重复订单号和用户名删除，万分感谢。

kokoro123

Sub 合并2()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub

我自己用了这个 但是发现会将资源表内的其他页面的数据也汇总进来，能不能只汇总每个EXCEL文件里面的Sheet1呢

kokoro123

有没有大神来帮帮忙!

EdsionZL

加一点东西

dim sh as worksheet

还要添加下面的语句
for each sh in wb.sheets
if instr(sh.Name,"Sheet1")=1 then

kokoro123

EdsionZL 发表于 2018-5-8 14:35
加一点东西

dim sh as worksheet

谢谢 加在哪里呢？