芯友网Xin1234.COM

Excel怎么合并汇总多个单独的工作文件呢



wBL
怎么合并汇总多个单独的工作文件呢
王大山
vba
渣渣小菜白
插件  VBA  WPS
PQ
TV-京北
@2536620210 VBA ,PQ
你得有附件才可以
王大山
正常来说可能都不会
wBL
PQ没有啊
@北京-VT
TV-京北
office 2016以上是自带得
2013需要安装插件
渣渣小菜白
Sub 汇总()
    Dim Trow&, k&, arr, brr, i&, j&, book&, a&
    Dim p$, f$, Rng As Range
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show Then p = .SelectedItems(1) Else Exit Sub
    End With
    If Right(p, 1) <> "\" Then p = p & "\"
    Trow = Val(InputBox("请输入标题的行数", "提醒"))
    If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub
    Application.ScreenUpdating = False
    Cells.ClearContents
    Cells.NumberFormat = "@"
    ReDim brr(1 To 600000, 1 To 1)
    f = Dir(p & "*.xls*")
    Do While f <&get; ""
        If f <&get; 
ThisWorkbook.Name Then
            With GetObject(p & f)
                Set Rng = .Sheets(1).UsedRange
                If IsEmpty(Rng) = False Then
                    book = book + 1
                    a = IIf(book = 1, 1, Trow + 1)
                    arr = Rng.Value
                    If UBound(arr, 2) &get; UBound(brr, 2) Then
                        ReDim Preserve brr(1 To 600000, 1 To UBound(arr, 2))
                    End If
                    For i = a To UBound(arr)
                        k = k + 1
                        For j = 1 To UBound(brr, 2)
                            brr(k, j) = arr(i, j)
                        Next
                    Next
                End If
                .Close False
            End With
        End If
        f = Dir
    Loop
    If k &get; 0 Then
        [a1].Resize(k, UBound(brr, 2)) = brr
        MsgBox "汇总完成。"
    End If
    Application.ScreenUpdating = True
End Sub

舍得百度 这类代码 多的是
ABV-杂打-北河

他们可能不知道什么是百度
王大山
主要是不会百度
wBL
TV-京北
众里寻他千百度,得那个百度
了红子菊
我百度了,小白自己还没修改成功
onez
@白菜小渣渣 @山大王 我晚点搞个文件上来,数据后续还有,升序,有一部分没排对
wBL
@白菜小渣渣 这个不成功啊
是怎么回事呢
ABV-杂打-北河
因为你没有修改
王大山
。。你不会以为拿了就能用吧
他那是百度出来的。肯定要稍微修修
渣渣小菜白

他格式都一样的话 不需要修改
除非他表格 不规则
TV-京北
要不然,你去下载一个WPS吧,哈哈哈哈哈
渣渣小菜白
还要是2019企业版的  个人版还要会员
TV-京北
ABV-杂打-北河
装插件
TV-京北
书到用时方恨少
ExcelHome 好像有插件
没用过
渣渣小菜白
方方格子
wBL

都合并在一个sheet1  里了,能不能一个工作簿对应一个sheet1。。。。
砾沙-都成
可以
wBL
怎么调节呢
仔涯-州广
群文件,报表处理工具
wBL
现在把所有的表格都汇总在一个标签里了,我想要汇总在分别的标签里
仔涯-州广
看看还在不
仔涯-州广
第一个模块可以帮到你
行随颖如
各位 大神有没有宏编辑合并代码
uohSauR-江浙
@LBw VBA
wBL
不会用
uohSauR-江浙
@如颖随行 编辑啥
wBL
@浙江-RuaShou
uohSauR-江浙
点按钮不会啊?
wBL
会,但是不知道点哪个、
仔涯-州广
第一个。
行随颖如
@浙江-RuaShou 将多个EXCEL合并成一个
仔涯-州广
合成一个表还是多个表
wBL
合并成一个表
仔涯-州广
多个子表 可以去下报表处理工具
wBL
是多个excel 文件,想把他们汇总在一个文件里的不同个sheet 里
渣渣小菜白
我才分享了代码 又有人问
仔涯-州广
去下。。
꧂꫞仔旺꫞꧁
VBA
wBL
Sub 汇总()
    Dim Trow&, k&, arr, brr, i&, j&, book&, a&
    Dim p$, f$, Rng As Range
    With Application.FileDialog(msoFileDialogFolderPicker)
        .AllowMultiSelect = False
        If .Show Then p = .SelectedItems(1) Else Exit Sub
    End With
    If Right(p, 1) <> "\" Then p = p & "\"
    Trow = Val(InputBox("请输入标题的行数", "提醒"))
    If Trow < 0 Then MsgBox "标题行数不能为负数。", 64, "警告": Exit Sub
    Application.ScreenUpdating = False
    Cells.ClearContents
    Cells.NumberFormat = "@"
    ReDim brr(1 To 600000, 1 To 1)
    f = Dir(p & "*.xls*")
    Do While f <&get; ""
        If f <&get; 
ThisWorkbook.Name Then
            With GetObject(p & f)
                Set Rng = .Sheets(1).UsedRange
                If IsEmpty(Rng) = False Then
                    book = book + 1
                    a = IIf(book = 1, 1, Trow + 1)
                    arr = Rng.Value
                    If UBound(arr, 2) &get; UBound(brr, 2) Then
                        ReDim Preserve brr(1 To 600000, 1 To UBound(arr, 2))
                    End If
                    For i = a To UBound(arr)
                        k = k + 1
                        For j = 1 To UBound(brr, 2)
                            brr(k, j) = arr(i, j)
                        Next
                    Next
                End If
                .Close False
            End With
        End If
        f = Dir
    Loop
    If k &get; 0 Then
        [a1].Resize(k, UBound(brr, 2)) = brr
        MsgBox "汇总完成。"
    End If
    Application.ScreenUpdating = True
End Sub

群里这个人分享的代码可以用,但是把多个文件汇总在了一个sheet里
我想把多个文件汇总在一个文件的不同子文件里
渣渣小菜白
你又没说 是多簿到多表
wBL
好吧
哈哈
꧂꫞仔旺꫞꧁
@LBw 自己改代码 别人的不合用 的
wBL
行随颖如
我也不会,求指教
渣渣小菜白
@如颖随行  你的上面的代码就可以
我这么闲啊?
ABV-杂打-北河
也许她就这么认为的

相关问题
------分隔线----------------------------
赞助商链接
赞助商链接
推荐内容