EXCEL多个工作簿合并为一个工作簿里的多个工作表方法_第1页
EXCEL多个工作簿合并为一个工作簿里的多个工作表方法_第2页
EXCEL多个工作簿合并为一个工作簿里的多个工作表方法_第3页
EXCEL多个工作簿合并为一个工作簿里的多个工作表方法_第4页
EXCEL多个工作簿合并为一个工作簿里的多个工作表方法_第5页
已阅读5页,还剩3页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、EXCEL多个工作簿合并为一个工作簿里的多个工作表方法戸 k* ¥3 Imi 町啊pWvtFbl MF面说下EXCEL多个工作簿合并为一个工作簿里的多个工作表方法。1.新建一个文件夹,把要合并的excel工作簿全部放到这个文件夹里,同时在文件夹里新建一个数据合并的工作簿;1213安哥曲Is安提瓜和巴布达滾k淒椁U亚xh巴巴多斯xls巴布亚新几内亚対5巴哈马小22222222打开文件夹里的数据合并工作簿,之后右键工作表选择查看代码选项打开;345713琨册陈Q301桜逍真剖(MV.2S3兰看代码世JE1保护工fr谟旧45工*坯邑.6取沽堂葱QPJ-TF$het3复制以下代码到以下窗口中

2、;Sub工作薄间工作表合并()Dim FileOpe nDim X As In tegerApplicati on. Scree nU pdati ng = FalseFileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel 文件(*.xls),*.xls",MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBou nd(FileOpe n)Workbooks.Ope n File name:=FileOpe n(X)S

3、heets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt)X = X + 1WendExitHa ndler:Applicati on. Scree nU pdat ing = TrueExit Suberrhadler:MsgBox Err.Descripti onEnd SubR 4 Mhrl 出M 威阿 pi帰呻4.点击运行按钮或者按 f5键运行vba代码;上| MiuiDiijft. ViujjI HdvM. Ibr Applcdtaon'k - 3JT SUE?f=® r - j . a m

4、 | 叵亍協 e 行気 $ii5.代码运行后会弹出要进行数据合并的文件夹,选择之前要进行数据合并创建的文件夹,按 ctrl+a键全选所有的工作簿,之后点击打开;捋丈T21犷看焼农:)> Uers > Adminiuritor > Sf互 * 1213v Q徂忍Uf建文柱宵輕1« Orie DriveA确帽改鬥朗学怦“贰'辞匣品阿加R利亚刮52020/5/ae 17:14I毬阿恨匠.烏2020<5/26 17:14rr弦扭陛阿垃怕聽包肖鮭口南2020/5;2fi 17:14i视锁如ZR/5/站 1?:14t.持帘帥 prsE.xfe?020/5/28 1

5、7; 14r匸SMriSa:磁砧2020/5/?8 17:14f-辭1 t5LSML>.*lb2O2O/S/20 17:14te=|L下轅別震尔兰沙3020/5/25 17:1412020/5/2fi 17:14t1音杀Wl冋安哥检胡丘2020/5/2 171141V面恳各堤.U初巴总込-轴占2020/5/26 17:141213r4!£iar1f4 n l 1 .n j jV彳丈件sew):磁“Manaut府養尔兰,腳尼亚呢*TSU T6代码运行完毕后,即可快速把多个工作簿里的内容移动到一个工作簿里的多个工作表里。dm -v«fij/f jT*IS- fiiffiH

6、TMiO即青 i真;b ir y *4 戈申 轩m年自;m胡平 % *百-wws;w iOJi w=* 4M ff,.元Hit朮*Kn*rnc«.ttv-mt4tt « M-i ; . d-br- .1.;! I m .! I Lr-ED fi- Q- L o D- n- o V L Q。一 Q巾 U(L0(10-0 u 乩 D軋 o o u & D.帀牺口出垃岳誹鴨門28裁71阳7?耳5|:!8出5:阵咼械应加.4蚩巧丹口cpgn3孔IJ!:!cMffilcylx场諮*1nrlxrlnffi虫丹 lMnnBMoQ 和3? 口 o 0 d 口口口 cin 口自 fi

7、 t D * Q o -ODn u _.n 8 ta 7 1 F -K -J 4 6 5 He 1 3 T- J fl ? 1 .JI -u- .1 Hu- g趙!噩踽隘韻隘踽腊需鳩牖幣器OHT- Jc 1 fl 3- fi o- 7 4 T 1 Av r? Th - R- iU 1» n- r 了 ? 44377 6 I $J|:02H919-SdOJijL&6 |TO Riflltisiooocwnno50Q1611-3124 口挂乜J;总jftit 214fl.OX.CO<UHn申跟制嗣3 .机裁越OCJT IGl4b心潮晒|町碍"詩lW?沁呻別?】氐m

8、Q歸中!:!»S M 事曇It暑生沁HUM001)iM1 iz3mn.GWjooQC-7u0.01liii? «a?s:U£c如咖阳-0051I?临億:呀tUH朋阿事胡闔|dQ&liH0J®Ji5番1口和口韦达T9T甜打知0C4HC01riffft鼻遂*(JME 如 IHJDfllDJ150013ah.mWKKKk40fllJ60J31 IS民产萝甌3ng=3170QJ52M £*nf*ASJ.Si21.MLiKUM】RL储E吾§荀丹両期喩190023131»1 F.BiS豹.釦股199药勺即”沖已£生5.4.193 月葬flCl0G1917.5« R4*HEjSttJMV0灾Q血nxsa产車耳USDTawraa。轴訂T.观如.gCM-Gto0册科OCT盘?W白憎弓常討却殆艸om2500M46 JE4 盘;t",亜C07J药MH1130 JfclKM4呵盘初K。期27ClQ<IKtt 口中4网甜汕越004

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论