久久人人玩人妻潮喷内射人人-无码少妇一区二区三区-欧美~日韩~国产~中文字幕-性xxxxfreexxxxx欧美丶

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

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

更新時間:2018-01-08 14:54:03| 編輯:本站整理 | 信息來源:本站整理|瀏覽數:
    如果我們需要將多個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、程序運行完畢后,會自動生成一個工作簿,工作簿內包含所有需合并的Excel文件,將工作簿另存為即可。


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


返回頂部


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

主站蜘蛛池模板: 宿州市| 文昌市| 星座| 法库县| 巫山县| 南涧| 衡水市| 潞城市| 靖江市| 张家界市| 通海县| 北辰区| 邵阳市| 和平县| 抚州市| 南岸区| 图木舒克市| 衡山县| 乌拉特中旗| 白银市| 庐江县| 竹北市| 东平县| 海阳市| 德州市| 榆树市| 会东县| 盐池县| 包头市| 双流县| 会宁县| 大同市| 西和县| 怀宁县| 泸水县| 尼木县| 满城县| 蒙阴县| 兴和县| 长兴县| 通州市|