国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 產品 > 電腦 > 正文

電腦把多個Excel文件合并成一個文件的方法

2020-03-01 07:25:54
字體:
來源:轉載
供稿:網友

電腦在編輯Excel文件的時候會遇到大量的數據,比如客戶資料,項目資料,材料整合等等,數據多且雜亂。其實我們可以把多個Excel文件合并成一個文件,這樣方便閱讀和編輯。那么如何合并多個Excel文件合并成一個且保留原有數據?閱讀下文教程,我們一起來看下操作步驟吧。

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

電腦把多個Excel文件合并成一個文件的方法

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

電腦把多個Excel文件合并成一個文件的方法

 3、將下面的代碼拷貝進去:01Sub sheets2one()02'定義對話框變量03Dim cc As FileDialog04Set cc = Application.FileDialog(msoFileDialogFilePicker)05Dim newwork As Workbook06Set newwork = Workbooks.Add07With cc08If .Show = -1 Then09Dim vrtSelectedItem As Variant10Dim i As Integer11i = 112For Each vrtSelectedItem In .SelectedItems13Dim tempwb As Workbook14Set tempwb = Workbooks.Open(vrtSelectedItem)15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")17tempwb.Close SaveChanges:=False18i = i + 119Next vrtSelectedItem20End If21End With22Set cc = Nothing23End Sub復制代碼

電腦把多個Excel文件合并成一個文件的方法

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

電腦把多個Excel文件合并成一個文件的方法

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

電腦把多個Excel文件合并成一個文件的方法

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

電腦把多個Excel文件合并成一個文件的方法

  電腦把多個Excel文件合并成一個文件的方法分享到這里了,合并后的Excel文檔會獻出多個Sheet頁,我們可以很方便的切換。

?

鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 云梦县| 定襄县| 呼图壁县| 平果县| 化州市| 梅州市| 林周县| 田东县| 东宁县| 漳浦县| 巴彦淖尔市| 红桥区| 荔波县| 华阴市| 大足县| 高平市| 牟定县| 敦煌市| 黄陵县| 新化县| 长海县| 巨鹿县| 噶尔县| 凤阳县| 麦盖提县| 运城市| 申扎县| 五寨县| 伊川县| 宜兰县| 合肥市| 黔江区| 蒙自县| 木里| 河北区| 成都市| 西丰县| 宕昌县| 宜丰县| 富宁县| 甘肃省|