表格式一模一样 ，对应单元格有内容则显示到总表 怎么写VBA

awp57

每天有很多类似统计任务，好头痛啊，用= 链接 很容易过时，求VBA   表格式一模一样 （各门店各自填写内容） 把多个（大概十几个店）Excel 表 的内容反馈到总表

查询很多天 没有类似的帖子 ，求大神赐教

东方红2020

希望获得解答

凌空一羽

Sub lkyy()
Dim Mp$, Mf
Mp = ThisWorkbook.Path & "\"
Mf = Dir(Mp & "*.xlsx")
Range("a2:g10000").ClearContents
Do While Mf <> ""
n = 0
ReDim br(1 To 1000, 1 To 7)
If Mf <> ThisWorkbook.Name Then
    t = Replace(Replace(Mf, ".xlsx", ""), "工作表-", "")
    With Workbooks.Open(Mp & Mf)
        ar = .Sheets(1).Range("a1").CurrentRegion
        For i = 1 To UBound(ar)
            If ar(i, 1) = t Then
                n = n + 1
                For j = 1 To 7
                    br(n, j) = ar(i, j)
                Next
            End If
        Next
        .Close 0
    End With
   
    With ThisWorkbook.Sheets(1)
        myr = .Range("a10000").End(3).Row + 1
        .Range("a" & myr).Resize(n, 7) = br
    End With
End If
Mf = Dir()
Loop
End Sub

awp57

凌空一羽 发表于 2020-2-25 12:05
Sub lkyy()
Dim Mp$, Mf
Mp = ThisWorkbook.Path & "\"

多表 合并 VBA 文件夹里所有表格格式一样   把指定工作表名称的内容提取到一个表里
http://club.excelhome.net/thread-1522661-1-1.html
(出处: ExcelHome技术论坛)

这个怎么写