2021年如何合并excel文件的教程

1、资料来源：来自本人网络整理！祝您工作顺利！2021年如何合并excel文件的教程 在excel中录入好数据以后常常需要用到合并文件的功能，假如还不懂如何合并文件功能的伴侣，不妨学习一下将来必有用途。下面是由我共享的如何合并excel文件的教程，供大家阅读、学习。 如何合并excel文件的教程： 合并文件步骤1：在电脑的h盘(其它盘也行)建立库存数据(文件夹名称随便),文件夹的途径为:h:库存数据 合并文件步骤2：将大量需要整合的excel文件放于h:库存数据,全部文件的构造必需完全全都。 合并文件步骤3：在h盘根名目下建立.xlsm类型的excel文件,这里命名为库存整合3，翻开文件，将其次步

2、中的文件字段名构造复制到sheet1工作簿中。 合并文件步骤4：在sheet2添加activex控件-指令按钮，如下列图，选中指令按钮后，在工作表中左击并拖动鼠标，把指令按钮添加到sheet1区域中。 合并文件步骤5：鼠标放在commandbutton1右击，点击属性选项，并设置其属性，如下两图： 合并文件步骤6：双击整合数据按钮，翻开microsoft visual basic编辑器，留意：我这里是用一个已经做好的案例示范，下列图中其次个红框的对象是commandbutton2,各位的应当是commandbutton1!然后在第四个红框和end sub之间插入如下代码： applicatio

3、n.screenupdating = false application.displayalerts = false dim s, lj as string dim fso, fldpath, fld dim wjs, i, j, k, l, y, t, r, e, w, b, n, m as integer m = 2 for j = 2 to 300000 导入数据前测试原有数据非空单元格 if thisworkbook.worksheets(sheet1).cells(j, 1) = then goto u end if next u: if j = 2 then goto yy end

4、 if userform1.show 0 for k = 2 to j 去除旧数据 doevents userform1.label4.caption = 去除旧数据 : userform1.label3.width = (k / (j - 2) * 400 if thisworkbook.worksheets(sheet1).cells(k, 1) = then goto y end if thisworkbook.worksheets(sheet1).rows(k).delete next y: yy: on error resume next fldpath = h:库存数据 set f

5、so = createobject(scripting.filesystemobject) set fld = fso.getfolder(fldpath) wjs = fld.files.count lj = h:库存数据 s = dir(h:库存数据*.xls) workbooks.open filename:=lj s for i = 1 to 30000 测试第一个导入数据的非空单元格 if activeworkbook.worksheets(1).cells(i, 1) = then goto x end if next x: for l = 2 to i 开头导入第一个数据 for

6、 y = 1 to 11 thisworkbook.worksheets(sheet1).cells(l, y) = activeworkbook.worksheets(1).cells(l, y) next next activeworkbook.close userform1.show 0 for t = 1 to wjs - 1 s = dir doevents userform1.label4.caption = s userform1.label1.width = (t / (wjs - 1) * 200 for r = 2 to 300000 测试导入位置的非空单元格 if thi

7、sworkbook.worksheets(sheet1).cells(r, 1) = then goto w end if next w: m = r workbooks.open filename:=lj s for e = 1 to 30000 测试每一个导入数据的非空单元格 if activeworkbook.worksheets(1).cells(e, 1) = then goto e end if next e: for b = r to r + e - 3 正式导入数据 doevents userform1.label3.width = (b - r) / e) * 200 for

8、 n = 1 to 11 thisworkbook.worksheets(sheet1).cells(b, n) = activeworkbook.worksheets(1).cells(b - m + 2, n) next next activeworkbook.close next userform1.label4.caption = 胜利了! application.ontime now() + timevalue(00:00:02), cl 合并文件步骤7：程序还设计到显示工作进度的窗体-进度窗体，如下列图： 合并文件步骤8：进度窗体的添加方法如下，请各位务必看清每一个详情，否那么程序

9、运行出错! 合并文件步骤9：上图中的进度窗体为已经设计好的，以下教大家如何制作上图的青色和紫色的窗体，如下列图，在窗体中添加4个label空间，并按挨次排序。 合并文件步骤10：label2属性设置： 合并文件步骤11：label4属性设置将caption属性设为 ，其它属性和label4同。 合并文件步骤12：label4属性设置如下列图： 合并文件步骤13：label3属性设置如下列图： 合并文件步骤14：至此显示窗体效果如下列图： 合并文件步骤15：添加textbok1,并按下列图设置属性 合并文件步骤16：并将textbox1挪动到绿色条的位置，完全重合，效果如下： 合并文件步骤17：

10、然后添加textbox2，其属性设置和textbox1完全一样，并挪动至label3下面，完全重合。 合并文件步骤18：至此进度条效果如下： 合并文件步骤19：插入模块，如下列图： 合并文件步骤20：将程序模块命名为cl,代码入校如下： sub cl() unload userform2 end sub 合并文件步骤21：大功告成!点击保存按钮! 合并文件步骤22：返回sheet1工作区，如下列图： 合并文件步骤23：点击整合数据按钮，运行数据整合程序：程序首先检查是否存在旧数据，假如存在旧数据那么去除完旧数据后启动数据导入功能，如下列图： 合并文件步骤24：完美胜利! 看了如何合并excel文件的教程还看了： 1.在exc