电脑知识|欧美黑人一区二区三区|软件|欧美黑人一级爽快片淫片高清|系统|欧美黑人狂野猛交老妇|数据库|服务器|编程开发|网络运营|知识问答|技术教程文章 - 好吧啦网

您的位置:首頁技術文章
文章詳情頁

多個excel文件合并成一個excel表的方法

瀏覽:115日期:2023-08-12 15:10:45

Excel是我們最常用的數據處理軟件,而在我們使用Excel時,常常會處理同一類的數據,例如,我們制作月度報表,那么在年末時我們共積累了1至12月的月度報表,這時我們的Excel的文檔將多達12個,實在不利于我們的保存/分析/使用,那么我們如何將多個Excel文件合并成一個文檔,并且在保留所有的Excel原數據基礎上,做到所有的文檔完全獨立呢,其實我們在Excel中能夠通過宏命令建立多個Sheet頁來實現,還不知道如何操作用戶趕緊來了解一下吧!

多個excel文件合并成一個excel表的方法方步/驟法

1、首先,我們新建一個文件夾,將我們將所有需要合并的“Excel文件”放入其中,并根據自己的需要對其進行排序,然后再此文件夾中新建一個Excel文件(空白Excel文檔),如下圖所示。

多個excel文件合并成一個excel表的方法

2、接著,我們打開這個新建的Excel文檔,進入界面后,我們通過快捷組合鍵“Alt + F11”來打開“宏”。

多個excel文件合并成一個excel表的方法

2、然后我們在菜單欄中選擇“視圖”,然后在下拉菜單中點擊“代碼窗口”。

多個excel文件合并成一個excel表的方法

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

多個excel文件合并成一個excel表的方法

4、然后我們點擊操作菜單中的“運行”選項(具體如下圖所示),即可運行以上的宏命令。

多個excel文件合并成一個excel表的方法

5、然后彈出瀏覽窗口,我們在文件夾中選擇我們所需要合并的所有Excel文件,然后點擊“確認”按鈕。

多個excel文件合并成一個excel表的方法

6、等到宏命令合并結束后,,將自動生成一個工作簿,此時用戶即可在下方的Sheet頁中查看到相應的Excel文件,在需要切換文檔時只需要直接選擇即可,如下所示:

多個excel文件合并成一個excel表的方法

7、當用戶需要保存時,只需要點擊文件,然后選擇“另存為”即可完成。

多個excel文件合并成一個excel表的方法

上述的方法就是多個Excel文件合并為同一文檔,且保留所有原數據的方法,其實就是通過建立多個Sheet頁來實現保存為同一文檔,同時達到互不干擾。

標簽: excel
主站蜘蛛池模板: 热镀锌槽钢|角钢|工字钢|圆钢|H型钢|扁钢|花纹板-天津千百顺钢铁贸易有限公司 | Trimos测长机_测高仪_TESA_mahr,WYLER水平仪,PWB对刀仪-德瑞华测量技术(苏州)有限公司 | 艺术漆十大品牌_艺术涂料加盟代理_蒙太奇艺术涂料厂家品牌|艺术漆|微水泥|硅藻泥|乳胶漆 | 对照品_中药对照品_标准品_对照药材_「格利普」高纯中药标准品厂家-成都格利普生物科技有限公司 澳门精准正版免费大全,2025新澳门全年免费,新澳天天开奖免费资料大全最新,新澳2025今晚开奖资料,新澳马今天最快最新图库 | 数年网路-免费在线工具您的在线工具箱-shuyear.com | 喷码机,激光喷码打码机,鸡蛋打码机,手持打码机,自动喷码机,一物一码防伪溯源-恒欣瑞达有限公司 | 单机除尘器 骨架-脉冲除尘器设备生产厂家-润天环保设备 | 彩信群发_群发彩信软件_视频短信营销平台-达信通 | 台式恒温摇床价格_大容量恒温摇床厂家-上海量壹科学仪器有限公司 | 雨燕360体育免费直播_雨燕360免费NBA直播_NBA篮球高清直播无插件-雨燕360体育直播 | 密集架|电动密集架|移动密集架|黑龙江档案密集架-大量现货厂家销售 | 篷房|仓储篷房|铝合金篷房|体育篷房|篷房厂家-华烨建筑科技官网 知名电动蝶阀,电动球阀,气动蝶阀,气动球阀生产厂家|价格透明-【固菲阀门官网】 | 北京征地律师,征地拆迁律师,专业拆迁律师,北京拆迁律师,征地纠纷律师,征地诉讼律师,征地拆迁补偿,拆迁律师 - 北京凯诺律师事务所 | 超声波_清洗机_超声波清洗机专业生产厂家-深圳市好顺超声设备有限公司 | 除湿机|工业除湿机|抽湿器|大型地下室车间仓库吊顶防爆除湿机|抽湿烘干房|新风除湿机|调温/降温除湿机|恒温恒湿机|加湿机-杭州川田电器有限公司 | 北京开业庆典策划-年会活动策划公司-舞龙舞狮团大鼓表演-北京盛乾龙狮鼓乐礼仪庆典策划公司 | 全钢实验台,实验室工作台厂家-无锡市辰之航装饰材料有限公司 | 企业VI设计_LOGO设计公司_品牌商标设计_【北京美研】 | 钢格板_钢格栅_格栅板_钢格栅板 - 安平县鑫拓钢格栅板厂家 | 欧盟ce检测认证_reach检测报告_第三方检测中心-深圳市威腾检验技术有限公司 | 微妙网,专业的动画师、特效师、CG模型设计师网站! - wmiao.com 超声波电磁流量计-液位计-孔板流量计-料位计-江苏信仪自动化仪表有限公司 | 低浓度恒温恒湿称量系统,强光光照培养箱-上海三腾仪器有限公司 | 济南拼接屏_山东液晶拼接屏_济南LED显示屏—维康国际官网 | TPU薄膜_TPU薄膜生产厂家_TPU热熔胶膜厂家定制_鑫亘环保科技(深圳)有限公司 | 阿尔法-MDR2000无转子硫化仪-STM566 SATRA拉力试验机-青岛阿尔法仪器有限公司 | 减速机电机一体机_带电机减速器一套_德国BOSERL电动机与减速箱生产厂家 | 科威信洗净科技,碳氢清洗机,超声波清洗机,真空碳氢清洗机 | 模具钢_高速钢_不锈钢-万利钢金属材料| 磁力抛光机_磁力研磨机_磁力去毛刺机-冠古设备厂家|维修|租赁【官网】 | 昆明网络公司|云南网络公司|昆明网站建设公司|昆明网页设计|云南网站制作|新媒体运营公司|APP开发|小程序研发|尽在昆明奥远科技有限公司 | 实验室pH计|电导率仪|溶解氧测定仪|离子浓度计|多参数水质分析仪|pH电极-上海般特仪器有限公司 | 儿童语言障碍训练-武汉优佳加感统文化发展有限公司 | 驾驶人在线_专业学车门户网站 | 耐酸碱胶管_耐腐蚀软管总成_化学品输送软管_漯河利通液压科技耐油耐磨喷砂软管|耐腐蚀化学软管 | TMT观察网_独特视角观察TMT行业 派财经_聚焦数字经济内容服务平台 | 海外整合营销-独立站营销-社交媒体运营_广州甲壳虫跨境网络服务 焊管生产线_焊管机组_轧辊模具_焊管设备_焊管设备厂家_石家庄翔昱机械 | 网站建设_网站制作_SEO优化推广_百度推广开户_朋友圈网络科技 | 铝镁锰板厂家_进口钛锌板_铝镁锰波浪板_铝镁锰墙面板_铝镁锰屋面-杭州军晟金属建筑材料 | 数字展示在线_数字展示行业门户网站 | ◆大型吹塑加工|吹塑加工|吹塑代加工|吹塑加工厂|吹塑设备|滚塑加工|滚塑代加工-莱力奇塑业有限公司 | 沈阳液压泵_沈阳液压阀_沈阳液压站-沈阳海德太科液压设备有限公司 |