系統(tǒng)軟件園 - 專注分享最好的電腦系統(tǒng)軟件!免費安全下載 系統(tǒng)軟件園首頁 | Win7激活工具 | 熱門專題
系統(tǒng)軟件園>您的位置:首頁 > > 系統(tǒng)教程 > 軟件教程 >

如何將多個Excel表格合并到一個excel文件里?合并多個表格的方法

更新時間:2018-01-08 14:54:03| 編輯:本站整理 | 信息來源:本站整理|瀏覽數(shù):
    如果我們需要將多個Excel表格文件合并成一個該怎么做呢?一個Excel文件中可以建立多個表格,但是如果一個文件就一個表格,怎么才能把他們合并起來呢?當然我們也可以打開表格一個一個的復制到一個excel文件中,但是如果表格太多的話復制起來是很麻煩的,下面小編就詳細的為大家介紹快速合并多個excel表格的方法。

操作方法:

1、將需合并的Excel文件放在同一個文件夾中,并這個文件中新建一個Excel文件。

2、打開新建的Excel文件,按 Alt + F11 鍵,打開宏,選擇視圖→代碼窗口。


3、將下面的代碼拷貝進去:

  Sub sheets2one()

  ‘定義對話框變量

  Dim cc As FileDialog

  Set cc = Application.FileDialog(msoFileDialogFilePicker)

  Dim newwork As Workbook

  Set newwork = Workbooks.Add

  With cc

  If .Show = -1 Then

  Dim vrtSelectedItem As Variant

  Dim i As Integer

  i = 1

  For Each vrtSelectedItem In .SelectedItems

  Dim tempwb As Workbook

  Set tempwb = Workbooks.Open(vrtSelectedItem)

  tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)

  newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, “.xls”, “”)

  tempwb.Close SaveChanges:=False

  i = i + 1

  Next vrtSelectedItem

  End If

  End With

  Set cc = Nothing

  End Sub

  4、點擊運行選項運行宏命令。

  5、之后彈出選擇對話框,選擇要批量合并的Excel名,確定即可。

  6、程序運行完畢后,會自動生成一個工作簿,工作簿內(nèi)包含所有需合并的Excel文件,將工作簿另存為即可。


以上就是快速合并多個表格的方法了。合并后的Excel文檔會出現(xiàn)多個Sheet頁,合并之后我們只需要在一個excel界面內(nèi)即可完成不同表格之間的切換了。


返回頂部


系統(tǒng)軟件園發(fā)布的系統(tǒng)鏡像及軟件均來至互聯(lián)網(wǎng),僅供學習和研究使用,不得用于任何商業(yè)用途并請在下載后24小時內(nèi)刪除,如果滿意請聯(lián)系版權(quán)方購買。
如果您發(fā)現(xiàn)本站侵害了您的版權(quán),請立即聯(lián)系我們,本站將第一時間進行相關處理。聯(lián)系方式(見首頁)
版權(quán)聲明|下載聲明 Copyright @ 2016 系統(tǒng)軟件園