合并工作簿

yangguiisbest

各位老师 ，请指导我如何合并工作簿，sheet1到汇总sheet1   sheet2到汇总sheet2，谢谢

心电感应

合并工作簿可以看一下叶枫老师的分享课

用VBA合并多工作簿数据

请使用谷歌或Edge浏览器打开链接看回放。http://ke.wooffice.net/livelist/detail/43.html

课件下载链接:https://pan.baidu.com/s/1egVJP7qIeqkC9Y9UM7PXBw 提取码:dc9d

3190496160

Sub test()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
    If f <> ThisWorkbook.Name Then
        n = n + 1
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        For Each sh In wb.Worksheets
            With ThisWorkbook.Worksheets(sh.Name)
                If n = 1 Then
                    .UsedRange.Clear
                    sh.UsedRange.Copy .Cells(1, 1)
                Else
                    ws = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                    sh.UsedRange.Offset(1).Copy .Cells(ws, 1)
                End If
            End With
        Next sh
        wb.Close False
    End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

3190496160

测试.rar (49.48 KB, 下载次数: 15)

2020-2-24 09:28 上传

点击文件名下载附件

yangguiisbest

3190496160 发表于 2020-2-24 09:27
Sub test()
Application.ScreenUpdating = False
f = Dir(ThisWorkbook.Path & "\*.xls*")

谢谢老师   涨知识了

yangguiisbest

3190496160 发表于 2020-2-24 09:28

谢谢老师，涨知识了

LighOffice

http://club.excelhome.net/forum.php?mod=viewthread&tid=1531207&mobile=2