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

 找回密码
 
查看: 29592|回复: 126

[VBA/VBS教程] 天远ET工具箱新功能介绍及源代码解读3——合并工作表

  [复制链接]

84

主题

61

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2013-2-27 16:44 |显示全部楼层
分享到: 新浪微博 腾讯微博
功能:合并当前工作簿的所有工作表的内容到一张新建工作表中2 x" e6 |' w5 Q. E1 ~7 i
0 {/ g8 V3 q/ e( `4 K
功能演示:
" [) _8 R+ W/ \6 j% z' \: B% C% Z( `% {# h' i! c4 Q

+ w& M' B: l- ~2 |) Y' f7 `/ m  u) n" @0 [' `5 t
0 I: U, m8 {- d$ C! ]: s
0 ?  U- U2 W$ E6 i. \
VBA源代码解读(附件中还提供VBS脚本):
: F( X# T; D2 S" ^1 ]01 Public Sub MergerAllWorksheet() '合并所有工作表到一张新建工作表中7 F2 `* N" y3 X
02 On Error Resume Next- c( ^7 b- e  o! D1 U# g& o" S
03 Application.ScreenUpdating = False '关闭屏幕更新,加快速度
4 J6 A9 O$ T; m! ?04 If 1 = Worksheets.Count Then '如果只有一张工作表
8 N3 h/ W- _/ l& T6 H' k05     MsgBox "当前工作簿只有一张工作表!", 0 + 64, "天远ET工具箱"$ k6 h' w* r; W9 g, c& I
06     GoTo myExit; @, k0 ^! }2 j' |4 ~( j
07 End If8 Z; d( ]9 k9 v2 H
08 Dim ShtOldOne, ShtNewOne As Worksheet
% g4 l3 l7 y( I8 |6 |. T, ?/ F7 g09 Set ShtOldOne = Worksheets(1) '取得当前第一个表; h+ b3 Y( y& u3 s
10 Set ShtNewOne = Worksheets.Add(ShtOldOne) '新建一个表
* T; t; {" D4 R& J2 w, d3 k% S11 ShtNewOne.Visible = True
; Q8 x% `( ?: ]12 Dim i As Integer
/ g  S/ X7 _9 z/ F13 Dim r As Long
. m& ?2 A) @- ]14 r = 1
6 q2 v2 \; d: Q) p" m7 D  U( P15 For i = 2 To Worksheets.Count '新建的表是第一个表,遍历后面所有表
8 w" ^7 {5 Y4 g0 ?16     With Worksheets(i)6 S# O* m; z  ?# z; }! ^% \# J0 m: W
17         .UsedRange.Copy '复制已经使用的区域
7 D# D' D, P' \" L& F( X) E18         ShtNewOne.Cells(r, 1).Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).PasteSpecial '粘贴到第一张表的最后$ p6 W, p# V# F) X1 K: i, Q
19         r = r + .UsedRange.Rows.Count
& ^& n4 \9 ]6 C3 w) v20     End With3 |8 Y# S* b5 @2 ~6 |( l6 c: P
21 Next i- `6 K- _' B3 [! \" B0 v! n+ r
22 With ShtNewOne
0 I+ W1 q( V$ @; w23     .Hyperlinks.Add .Cells(r + 1, 1), "http://bbs.wps.cn/thread-22349095-1-1.html", "", "访问天远ET工具箱", "本表由天远ET工具箱自动生成"3 i* X3 i7 O) E" W8 D! Y' }$ O3 g
24 End With  w2 E& b  a1 O; r6 X9 a; |
25 MsgBox "合并工作表成功!", 0 + 64, "天远ET工具箱"% O, U' O0 [0 n4 ]; F2 l5 H& n
26 ShtNewOne.Activate
/ I9 l$ O9 N" T6 Y/ y* [) D27 Set ShtOldOne = Nothing
) P, _6 p# v1 a$ Q  D28 Set ShtNewOne = Nothing
* F8 }% x% j1 a' H29 myExit:
1 N1 J! B9 C, _  u( P30 Application.ScreenUpdating = True
" M% x2 a7 z/ W2 @, q8 d31 End Sub
* H8 G0 }( @+ C1 ~" A& B
, G9 w8 H* n" H& t' x' P& w6 _
7 L& o+ ^3 @1 D! c( e附件:天远合并工作表VBA版和VBS版(使用VBA版需要您的WPS拥有VBA环境,没有VBA环境的请到http://bbs.wps.cn/thread-22347925-1-1.html中下载安装。)

+ }% D; l* X4 N" w: k6 ]4 H7 k
游客,如果您要查看本帖隐藏内容请回复

3 _) i( e9 F( \. ]( }5 R+ S使用天远ET工具箱不需要VBA环境,天远ET工具箱即将加入合并工作表功能,敬请期待。
+ N3 R9 \3 z2 V- z; j
6 m4 Q! N, X7 P- d
& v; L6 p6 I8 Y- Q

( `4 Z$ h% [% t  ?2 P
% F1 ]& p* _& [! l6 ]5 d

本帖子中包含更多资源

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

点评

赞同: 5.0
1149737746  很好,接下来就应该是拆分工作表了,对不对?  发表于 2013-2-28 13:25
翘尾的k  赞同: 5
  发表于 2013-2-27 21:24
已有 5 人评分威望 收起 理由
翘尾的k + 24 WPS有你更精彩!
松风水月 + 20 很给力!
1149737746 + 10 很给力!
zhouyiran1@126.com + 18 很给力!
木偶251900 + 10 赞一个!

总评分: 威望 + 82   查看全部评分

热爱分享和学习。希望WPS论坛越办越好,WPS软件越做越好。也希望能在这里交到更多志同道合的朋友。我的邮箱:ypr@yprnet.com
我在WPS论坛上的教程帖子合集: http://blog.yprnet.com/wps

971

主题

319

听众

27万

积分

管理员

Rank: 24Rank: 24Rank: 24Rank: 24Rank: 24Rank: 24

签到天数: 12 天

[LV.3]偶尔看看II

金币
38808
威望
897927
帖子
7588
精华
1

WPS粉丝团 勤奋版主奖 乐于助人奖 优秀会员奖 活跃会员奖 活动策划团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 超级版主勋章

发表于 2013-2-27 16:55 |显示全部楼层
不错,持续更新的工具,必须支持!!!
你是WPS的粉丝吗?详情请看:http://bbs.wps.cn/thread-22336260-1-1.html
回复

使用道具 举报

9

主题

22

听众

1万

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

签到天数: 1204 天

[LV.10]以坛为家III

金币
2176
威望
26691
帖子
6217
精华
0

优秀会员奖 活跃会员奖 乐于助人奖 测试体验团

发表于 2013-2-27 21:23 |显示全部楼层
呵呵,期待ING……
回复

使用道具 举报

84

主题

61

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2013-2-27 21:42 |显示全部楼层
翘尾的k 发表于 2013-2-27 21:23 / v7 p. E3 S$ h/ j
呵呵,期待ING……

4 H; ]  j2 U# ]2 Q+ ~暂时可以用VBS脚本,也蛮方便的
回复

使用道具 举报

153

主题

110

听众

1万

积分

解答支持团长

老菜鸟

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

签到天数: 240 天

[LV.8]以坛为家I

金币
1254
威望
25965
帖子
10314
精华
1

活跃会员奖 解答支持团 测试体验团 乐于助人奖 优秀会员奖

发表于 2013-2-28 08:35 |显示全部楼层
谢谢分享,学习了!
回复

使用道具 举报

84

主题

61

听众

3088

积分

测试体验团员

系统分析师

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
984
威望
8204
帖子
842
精华
3

WPS粉丝团 技术分享团 解答支持团 测试体验团 重阳节勋章 技巧教程分享达人 最佳教程奖 优秀会员奖

发表于 2013-2-28 15:08 |显示全部楼层
@1149737746 拆分工作表在实现上不是很困难,主要是拆分形式众口难调,可能会出一个按行数拆分的功能
热爱分享和学习。希望WPS论坛越办越好,WPS软件越做越好。也希望能在这里交到更多志同道合的朋友。我的邮箱:ypr@yprnet.com
我在WPS论坛上的教程帖子合集: http://blog.yprnet.com/wps
回复

使用道具 举报

4

主题

0

听众

29

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
48
帖子
22
精华
0
发表于 2013-3-1 14:04 |显示全部楼层
路过,学习饿了
回复

使用道具 举报

0

主题

0

听众

4

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
8
帖子
2
精华
0
发表于 2013-3-4 00:55 |显示全部楼层
学习。。。
回复

使用道具 举报

0

主题

0

听众

12

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
26
帖子
6
精华
0
发表于 2013-3-6 16:30 |显示全部楼层
赞一个  谢谢分享
回复

使用道具 举报

1

主题

0

听众

298

积分

LV.4

Rank: 4

该用户从未签到

金币
5
威望
689
帖子
107
精华
0
发表于 2013-3-8 20:03 |显示全部楼层
很好的东西,我要学习
- K0 J: L, k) x) d7 h5 [% s1 Y
回复

使用道具 举报

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

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛 ( 粤公网安备 44049102496073号 粤ICP备13015957号-1   

GMT+8, 2018-1-19 19:24

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部