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

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

  • <div id="hdphd"><small id="hdphd"></small></div>
      學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel2007教程 > excel2007怎么將兩個(gè)工作表合并成一個(gè)

      excel2007怎么將兩個(gè)工作表合并成一個(gè)

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

      excel2007怎么將兩個(gè)工作表合并成一個(gè)

        已知有多個(gè)獨(dú)立的excel工作簿文件,現(xiàn)在需要將這些文件合并到一個(gè)新的工作簿中。保留原來excel工作簿中各個(gè)excel工作表名稱。如果量小,可以采用打開一個(gè)個(gè)復(fù)制的方法。下面小編教你excel2007怎么將兩個(gè)工作表合并成一個(gè)的方法,希望對(duì)你有幫助!

        excel2007將兩個(gè)工作表合并成一個(gè)的方法

        將需要合并的excel工作簿文件放置在一個(gè)文件夾中。

        每個(gè)文件夾中的工作簿都輸入了簡(jiǎn)單的內(nèi)容。


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖1

        在該文件夾中,新建立一個(gè)新的excel工作簿文件。重命名為8.


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖2

        打開新建立的excel工作簿文件8.按Alt+F11或者將鼠標(biāo)移動(dòng)到下方工作表名稱sheet1上右鍵,選擇查看代碼。


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖3

        在彈出的代碼編輯窗口中,輸入代碼。注意:通過快捷鍵Alt+F11打開的窗口如下沒有直接復(fù)制代碼的面板,需要點(diǎn)擊左上方的工程-VBA project模塊,雙擊sheet1,即可打開代碼窗口。而步驟3中的第二種方法可以直接打開代碼輸入窗口。


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖4

      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖5

        在代碼窗口中,黏貼下列代碼:

        Sub CombineFiles()

        Dimpath As String

        DimFileName As String

        DimLastCell As Range

        DimWkb As Workbook

        DimWS As Worksheet

        DimThisWB As String

        Dim MyDir AsString

        MyDir =ThisWorkbook.path & "\"

        'ChDriveLeft(MyDir, 1) 'find all the excel files

        'ChDir MyDir

        'Match =Dir$("")

        ThisWB =ThisWorkbook.Name

        Application.EnableEvents = False

        Application.ScreenUpdating = False

        path =MyDir

        FileName =Dir(path & "\*.xls", vbNormal)

        Do UntilFileName = ""

        If FileName <> ThisWB Then

        Set Wkb = Workbooks.Open(FileName:=path & "\"& FileName)

        For Each WS In Wkb.Worksheets

        Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)

        If LastCell.Value = "" And LastCell.Address = Range("$A class="main">

      學(xué)習(xí)啦 > 學(xué)習(xí)電腦 > 工具軟件 > 辦公軟件學(xué)習(xí) > Excel教程 > Excel2007教程 > excel2007怎么將兩個(gè)工作表合并成一個(gè)

      excel2007怎么將兩個(gè)工作表合并成一個(gè)

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

        Else

        WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

        End If

        Next WS

        Wkb.Close False

        End If

        FileName = Dir()

        Loop

        Application.EnableEvents = True

        Application.ScreenUpdating = True

        Set Wkb =Nothing

        Set LastCell= Nothing

        End Sub


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖6

        點(diǎn)擊菜單欄運(yùn)行-運(yùn)行子過程-用戶窗體。關(guān)閉代碼輸入窗口。打開excel工作簿8.可以看到下方已經(jīng)多了很多新的工作表——此時(shí),我們已經(jīng)將之前的工作簿中的工作表都復(fù)制到了這一新建的工作簿中。


      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖7

      excel2007將兩個(gè)工作表合并成一個(gè)的方法圖8

        >>>下一頁更多精彩“Excel中進(jìn)行函數(shù)公式合并多個(gè)工作表的操作步驟”

      375088