最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 87252|回复: 498
打印 上一主题 下一主题

[综合教程] 手把手教你如何合并同一个文件夹下的多个表格!!!

    [复制链接]

7

主题

3

听众

94

积分

LV.2

Rank: 2

签到天数: 2 天

[LV.1]初来乍到

金币
23
威望
227
帖子
37
精华
0
跳转到指定楼层
楼主
发表于 2014-12-31 14:50 |只看该作者 |倒序浏览
分享到: 新浪微博 腾讯微博
                           很多童鞋是不是会遇到这个问题?9 p3 z( l) @  S# G% k( c' |
一个文件夹中有很多相同类型但是数值不同的表格,如何能够快速的把这些表格合并成一张表格呢?
2 }- A8 F% P* b  J; o& n 最近同事教我了一个方法,今天闲来无事就拿来分享给朋友们了!
2 U* [( g' y4 w* Z! c' `
# q# a; l; D8 g; x8 Y1 Y第一步:把想合并的这些表格在同一个文件夹中(不想合并的表格就别放在这个文件夹里面了)9 M" x8 M5 J) g$ o0 D* b: \
第二步:按住快捷键“ALT+FN+F11”会出现如下界面

3 D/ t0 m) Q% p; l9 M% J/ ]9 D
) M$ ^2 y( i. v1 {% f8 v6 w# q/ D第三步:点击最左边的“查看代码”这个选项
: ?0 L! r! ^4 t1 K! e; O, a, ^+ R* B+ D) @8 R! z6 g& Y1 P
第四步:把合并代码复制到文档里面
  1. Sub 合并当前目录下所有工作簿的全部工作表()
  2. Dim MyPath, MyName, AWbName
  3. Dim Wb As Workbook, WbN As String
  4. Dim G As Long
  5. Dim Num As Long
  6. Dim BOX As String
  7. Application.ScreenUpdating = False
  8. MyPath = ActiveWorkbook.Path
  9. MyName = Dir(MyPath & "\" & "*.xls")
  10. AWbName = ActiveWorkbook.Name
  11. Num = 0
  12. Do While MyName <> ""
  13. If MyName <> AWbName Then
  14. Set Wb = Workbooks.Open(MyPath & "\" & MyName)
  15. Num = Num + 1
  16. With Workbooks(1).ActiveSheet
  17. .Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
  18. For G = 1 To Sheets.Count
  19. Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
  20. Next
  21. WbN = WbN & Chr(13) & Wb.Name
  22. Wb.Close False
  23. End With
  24. End If
  25. MyName = Dir
  26. Loop
  27. Range("B1").Select
  28. Application.ScreenUpdating = True
  29. MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
  30. End Sub
复制代码
这样就可以完成一个文件夹下所有同样类型的表格合并了,是不是非常的简单方便!5 s1 M( Q7 o. l

5 e# v- Y. A4 S$ B- R2 @第一次分享,朋友们感觉有用的就赞个吧
% `8 `% r* d1 \( N( N7 a0 I( @2 D! S2 [4 Z) [8 h- Z
* s# p* J% ?5 I- v: r1 x

本帖子中包含更多资源

您需要 登录 才可以下载或查看,

已有 3 人评分威望 金币 收起 理由
翘尾的k + 12 WPS有你更精彩!
WPS_严慧Nacl + 10 + 2 WPS有你更精彩!
轩少 + 12 这么好的教程贴,我和我的小伙伴们都惊呆了.

总评分: 威望 + 34  金币 + 2   查看全部评分

7

主题

3

听众

94

积分

LV.2

Rank: 2

签到天数: 2 天

[LV.1]初来乍到

金币
23
威望
227
帖子
37
精华
0
沙发
发表于 2014-12-31 14:56 |只看该作者
今天是14年的最后一天,朋友们都哪里去了。自己先顶下吧
回复

使用道具 举报

53

主题

59

听众

6715

积分

版主

Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20

签到天数: 126 天

[LV.7]常住居民III

金币
634
威望
13773
帖子
3973
精华
2

WPS粉丝团 技术分享团 乐于助人奖 技巧教程分享达人 优秀会员奖 活跃会员奖 测试体验团 版主勋章 勤奋版主奖 最佳教程奖 测试体验官 优秀模板奖

板凳
发表于 2014-12-31 20:39 |只看该作者
辛苦楼主了,新年快乐

点击了解最新动态:【轩少】__实用教程索引(2015-9-6更新)
http://bbs.wps.cn/forum.php?mod= ... amp;fromuid=2404273
回复

使用道具 举报

0

主题

1

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
1
帖子
8
精华
0
地板
发表于 2015-1-2 00:15 |只看该作者
学习了,感谢楼主!
回复

使用道具 举报

0

主题

1

听众

7

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
4
威望
20
帖子
2
精华
0
5
发表于 2015-1-2 03:23 |只看该作者
学习了,谢谢,新年快乐!!!!
回复

使用道具 举报

1

主题

1

听众

42

积分

LV.1

Rank: 1

签到天数: 2 天

[LV.1]初来乍到

金币
10
威望
72
帖子
37
精华
0
6
发表于 2015-1-2 16:42 |只看该作者
学习了 非常好 谢谢分享
回复

使用道具 举报

7

主题

3

听众

94

积分

LV.2

Rank: 2

签到天数: 2 天

[LV.1]初来乍到

金币
23
威望
227
帖子
37
精华
0
7
发表于 2015-1-9 16:11 |只看该作者
新年新气象
回复

使用道具 举报

5

主题

0

听众

513

积分

LV.5

Rank: 5Rank: 5

签到天数: 8 天

[LV.3]偶尔看看II

金币
133
威望
1433
帖子
131
精华
0
8
发表于 2015-1-17 20:52 |只看该作者
学习了,支持楼主
回复

使用道具 举报

0

主题

1

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
3
威望
0
帖子
3
精华
0
9
发表于 2015-1-17 21:21 |只看该作者
哥们,你真厉害啊,这么大段的代码啊。
回复

使用道具 举报

1

主题

2

听众

17

积分

LV.1

Rank: 1

签到天数: 4 天

[LV.2]偶尔看看I

金币
11
威望
16
帖子
21
精华
0
10
发表于 2015-1-18 12:38 |只看该作者
学习了,谢谢楼主
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-9-22 01:12

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部