Question

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

这些表格里的内容不同 ,但是形式是一样的 怎么把所有内容合并在一个表格里?

Answer 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

Answer 2

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

追问

公司电脑装不了软件

追答

有绿色版的，不用装

Answer 3

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