回覆列表
  • 1 # 紅淚偷垂歲月花開

    1、新建一個資料夾、將要合併的表格放到裡面、新建一個表格、用excel開啟、右擊Sheet1

    2、選擇檢視程式碼(PS:excel有著一項,WPS沒有)

    3、將下列程式碼複製到文字框中:

    Sub合併當前目錄下所有工作簿的全部工作表()

    DimMyPath,MyName,AWbName

    DimWbAsworkbook,WbNAsString

    DimGAsLong

    DimNumAsLong

    DimBOXAsString

    Application.ScreenUpdating=False

    MyPath=ActiveWorkbook.Path

    MyName=Dir(MyPath&"\"&"*.xls")

    AWbName=ActiveWorkbook.Name

    Num=0

    DoWhileMyName""

    IfMyNameAWbNameThen

    SetWb=Workbooks.Open(MyPath&"\"&MyName)

    Num=Num+1

    WithWorkbooks(1).ActiveSheet

    .Cells(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)

    ForG=1ToSheets.Count

    Wb.Sheets(G).UsedRange.Copy.Cells(.Range("B65536").End(xlUp).Row+1,1)

    Next

    WbN=WbN&Chr(13)&Wb.Name

    Wb.CloseFalse

    EndWith

    EndIf

    MyName=Dir

    Loop

    Range("B1").Select

    Application.ScreenUpdating=True

    MsgBox"共合併了"&Num&"個工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"

    EndSub

  • 中秋節和大豐收的關聯?
  • 電磁爐炒鍋可以烙餅?