合并excel工作簿

林小乖0817

每个表格中有vlookup函数，生成准考证号码的，需要把所有工作簿中的sheet1表格合并到一个工作部中。
举例只有4张表格，实际有近100张，需要做一个汇总，在汇总里有全部的sheet1，不是一张表，是很多张小表

LMY123

同夹多薄首表合并成一薄一表

opiona

http://club.excelhome.net/thread-1409141-1-1.html

林小乖0817

LMY123 发表于 2018-7-12 17:45
同夹多薄首表合并成一薄一表

就是希望做一个汇总 里面有所有的sheet 1

林小乖0817

LMY123 发表于 2018-7-12 17:45
同夹多薄首表合并成一薄一表

同一文件夹内的多个工作簿，每个工作簿里的首表合并，成为一个工作簿，但是是分开的表，每个表的内容不变

林小乖0817

林小乖0817 发表于 2018-7-12 17:55
同一文件夹内的多个工作簿，每个工作簿里的首表合并，成为一个工作簿，但是是分开的表，每个表的内容不变

像这样的。。。。。

lsc900707

林小乖0817 发表于 2018-7-12 17:55
同一文件夹内的多个工作簿，每个工作簿里的首表合并，成为一个工作簿，但是是分开的表，每个表的内容不变

准确地说，是多簿首表归集一簿多表。

林小乖0817

lsc900707 发表于 2018-7-12 18:09
准确地说，是多簿首表归集一簿多表。

大神帮个忙看看怎么弄呗 先谢谢拉

lsc900707

Sub gj23w98()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    For Each sht In Sheets
        If sht.Name <> ActiveSheet.Name Then sht.Delete
    Next
    Set wk = ThisWorkbook
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xlsx")
    Do While f <> ""
        If f <> ThisWorkbook.Name Then
            Set ws = Workbooks.Open(p & f)
            ws.Sheets(1).Copy after:=wk.Sheets(wk.Sheets.Count)
            wk.Sheets(wk.Sheets.Count).Name = Split(f, ".")(0)
            ws.Close False
        End If
        f = Dir
    Loop
    Sheets(1).Activate
    MsgBox "ok"
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

lsc900707

林小乖0817 发表于 2018-7-12 18:02
像这样的。。。。。

附件供参考：