求方法，多excel文档整合展示符合条件的数据。

lxhez

上图为被引用表格示例，被引用数据有多个excel表，中的多个sheet。想整合在下图的excel中，下图整合表的sheet会按L列专业分设，需求：当上图多个被引用数据表中的L列为“供电”，且K列为“是”时，将上图的L、M、N列，对应展示在下图的B、C、D列。下图的E列需要展示上图的中被展示行的excel表名称，如果当前行次展示的是引用数据1的一行，就显示“引用数据1”；展示的是引用数据6的一行，就显示“引用数据6”；被引用数据的各表格会后续更新台账，想做到下图表格自动随共享文件夹的台账数据表更新而更新展示


测试.rar (31.1 KB, 下载次数: 1)

2024-2-8 11:55 上传

点击文件名下载附件

被引用数据会有多个sheet和多个不同文件夹下的excel文档。但被引用表格总量是固定的。

高个子

你是2013版的吗？旧版多文件就不推荐函数了

lxhez

高个子 发表于 2024-2-8 19:50
你是2013版的吗？旧版多文件就不推荐函数了

2016版本，有别的老师帮做过vba，不会改....

3190496160

Sub 多薄多表合并为一薄多表()
Application.ScreenUpdating = False
Dim ar As Variant
Dim br(), arr()
lj = ThisWorkbook.Path & "\"
f = Dir(lj & "*.xls*")
ReDim br(1 To 50000, 1 To 4)
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        Set wb = Workbooks.Open(lj & f, 0)
        For Each sh In wb.Worksheets
            r = sh.Cells(Rows.Count, 12).End(xlUp).Row
            ar = sh.Range("k2:n" & r)
            For i = 2 To UBound(ar)
                If ar(i, 1) = "是" Then
                    If ar(i, 2) <> "" Then
                        m = m + 1
                        For j = 2 To 4
                            br(m, j - 1) = ar(i, j)
                        Next j
                        br(m, 4) = Split(wb.Name, ".")(0)
                    End If
                End If
            Next i
        Next sh
        wb.Close False
    End If
f = Dir
Loop
If m = "" Then MsgBox "没有需要汇总的数据！": End
For Each sh In Sheets
    sh.UsedRange.Offset(1) = Empty
    sh.UsedRange.Offset(1).Borders.LineStyle = 0
    zd = Replace(sh.Name, "汇总表", "")
    n = 0
    ReDim arr(1 To m, 1 To 5)
    For i = 1 To m
        If br(i, 1) = zd Then
            n = n + 1
            arr(n, 1) = n
            For j = 1 To 4
                arr(n, j + 1) = br(i, j)
            Next j
        End If
    Next i
    If n > 0 Then
        sh.[a2].Resize(n, UBound(arr, 2)) = arr
        sh.[a2].Resize(n, UBound(arr, 2)).Borders.LineStyle = 1
    End If
Next sh
Application.ScreenUpdating = True
MsgBox "汇总完毕！"
End Sub

3190496160

测试.rar (43.32 KB, 下载次数: 3)

2024-2-9 09:50 上传

点击文件名下载附件

3190496160

这种跨多薄多表的问题，就别想着用公式了，
代码完成的，所有需要汇总的文件放到程序文件所在文件夹内，这个文件件内不要放其他不相关的文件