如何把多个EXCEL表格里的内容都合并在一个表格里

2024-11-25 05:04:36

推荐回答（3个）

回答1：

Sub s()
    Dim pth$, fn$, wb As Workbook, tsh As Worksheet, sh As Worksheet, n&
    pth = "D:\Temp\" '在此输入完整路径
    fn = Dir(pth & "*.xls")
    Set tsh = ActiveSheet
    Do While fn <> ""
        Set wb = Application.Workbooks.Open(pth & fn)
        For Each sh In wb.Sheets
            n = tsh.UsedRange.Row + tsh.UsedRange.Rows.Count
            sh.UsedRange.Copy tsh.Cells(n, 1)
        Next
        wb.Close False
        fn = Dir
    Loop
End Sub

回答2：

有一个软件叫做 Excel汇总专家

回答3：

那你的数值在新的单元格如何体现呢？