亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel2013教程 > 在excel2013中怎么把幾個(gè)excel合并到一個(gè)

      在excel2013中怎么把幾個(gè)excel合并到一個(gè)

      時(shí)間: 張偉670 分享

      在excel2013中怎么把幾個(gè)excel合并到一個(gè)

        我們?nèi)粘.a(chǎn)生的Excel數(shù)據(jù),有時(shí)候會(huì)保存在不同的Excel文檔里,等到要分析、整理數(shù)據(jù)的時(shí)候需要把每個(gè)文檔的數(shù)據(jù)復(fù)制、黏貼到一個(gè)Excel文檔里,再進(jìn)行分析。這個(gè)時(shí)候文檔數(shù)據(jù)一多,工作量就大了。下面小編就教你在excel2013中怎么把幾個(gè)excel合并到一個(gè)的方法。

        把幾個(gè)excel合并到一個(gè)的步驟

        把需要合并的excel表格文檔放到同一個(gè)文件夾里


      把幾個(gè)excel合并到一個(gè)的步驟圖1

        新建一個(gè)“數(shù)據(jù)合并.xlsx“文檔


      把幾個(gè)excel合并到一個(gè)的步驟圖2

        打開“數(shù)據(jù)合并.xlsx“文檔,在”Sheet1“工作表的地方右鍵→查看代碼(快捷鍵:“Alt+F11”,盡量選用快捷方式)進(jìn)入到Microsoft Visual Basic for Applications窗口


      把幾個(gè)excel合并到一個(gè)的步驟圖3

      把幾個(gè)excel合并到一個(gè)的步驟圖4

        雙擊工程資源管理器里面的sheet1,在右側(cè)的代碼區(qū)粘貼如下代碼:

        Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()

        Dim MyPath, MyName, AWbName

        Dim Wb As Workbook, WbN As String

        Dim G As Long

        Dim Num As Long

        Dim BOX As String

        Application.ScreenUpdating = False

        MyPath = ActiveWorkbook.Path

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

        AWbName = ActiveWorkbook.Name

        Num = 0

        Do While MyName <> ""

        If MyName <> AWbName Then

        Set Wb = Workbooks.Open(MyPath & "\" & MyName)

        Num = Num + 1

        With Workbooks(1).ActiveSheet

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

        For G = 1 To Sheets.Count

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

        Next

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

        Wb.Close False

        End With

        End If

        MyName = Dir

        Loop

        Range("A1").Select

        Application.ScreenUpdating = True

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

        End Sub


      把幾個(gè)excel合并到一個(gè)的步驟圖5

      把幾個(gè)excel合并到一個(gè)的步驟圖6

        運(yùn)行→運(yùn)行子過(guò)程/用戶窗體(或者直接點(diǎn)擊運(yùn)行按鈕,快捷鍵:F5),即可合并所有Excel表格到”數(shù)據(jù)合并.xlsx“文檔的Sheet1工作表里面


      把幾個(gè)excel合并到一個(gè)的步驟圖7

        完成Excel表格的合并


      把幾個(gè)excel合并到一個(gè)的步驟圖8

      猜你喜歡:

      1.在excel2013中怎么把幾個(gè)excel合并到一個(gè)

      2.excel2013多個(gè)excel表格如何合并

      3.如何把excel兩列合并的教程

      4.excel怎么給多個(gè)工作表同時(shí)錄入相同的數(shù)據(jù)

      5.excel2013怎么對(duì)多個(gè)數(shù)據(jù)進(jìn)行匯總

      6.如何合并幾個(gè)excel的教程

      402062