excel 数据表汇总，

chanhuiwuzui

目前想要的需求如下

打开汇总表点击导入按钮，自动扫描明细表文件夹下所有文件，读取名称含有“表”文件，复制黄色标记部分数据，粘贴到汇总表对应单元格。
补充一点需要复制收获地址，取“市”之前数据复制粘贴到汇总表e列

烦请大佬们帮下忙

3190496160

Sub 汇总()
Application.ScreenUpdating = False
lj = ThisWorkbook.Path & "\明细表\"
f = Dir(lj & "*.xls*")
ReDim arr(1 To 10000, 1 To 5)
Do While f <> ""
    Set wb = Workbooks.Open(lj & f, 0)
    With wb.Worksheets("数据")
         r = .Cells(Rows.Count, 1).End(xlUp).Row
         ar = .Range("a1:j" & r)
    End With
    wb.Close False
    For i = 11 To UBound(ar)
        If Trim(ar(i, 2)) <> "" Then
            n = n + 1
            arr(n, 1) = ar(i, 2)
            arr(n, 2) = ar(i, 3)
            arr(n, 3) = ar(4, 8)
            arr(n, 4) = ar(i, 10)
            arr(n, 5) = ar(7, 3)
        End If
    Next i
f = Dir
Loop
With Sheet1
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(arr, 2)) = arr
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

3190496160

新建文件夹 (4).rar (41.44 KB, 下载次数: 20)

2023-3-8 09:31 上传

点击文件名下载附件

chanhuiwuzui

3190496160  2023-3-8 09:31

zxsea_7426

chanhuiwuzui

3190496160  2023-3-8 09:31

谢谢。

城市问题解决了。万分感谢。

ykcbf1100

chanhuiwuzui 发表于 2023-3-8 12:52
老师

您好

先说谢谢，再送小花，然后再追加条件。

zxsea_7426

ykcbf1100 发表于 2023-3-8 16:20
先说谢谢，再送小花，然后再追加条件。

楼主目前貌似没有花花

ykcbf1100

zxsea_7426 发表于 2023-3-8 16:25
楼主目前貌似没有花花

新手时没有花花的？这个我不记得了。

你这个图只能说明别人没有送过花给楼主。