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

 找回密码
 
查看: 34885|回复: 100

[VBA/VBS教程] 取消合并单元格并自动填入值

  [复制链接]

154

主题

28

听众

5098

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11087
帖子
2620
精华
0

技术分享团 解答支持团 测试体验团 优秀会员奖 活跃会员奖 乐于助人奖 技巧教程分享达人

发表于 2014-12-10 22:37 |显示全部楼层
分享到: 新浪微博 腾讯微博
有时需要将一个合并的单元格取消合并后填入一样的值
8 C! V$ P. X( I. T5 H  o( f( j- L4 i比如 @WPS_詹穗昌 的这个情况:
4 d9 p0 E) w" u- l" N0 }( \" d. w' F9 \+ `
[周五见]5秒走捷径汇总合并单元格的子项分类的数据(强)~【已回应】) o. {% H8 r2 P  U, K  V" T
http://bbs.wps.cn/thread-22451756-1-1.html7 A) N" x3 p, s) a6 d8 o4 [2 i
) @% m2 b3 v$ _0 m
这时想,如果不是合并单元格,直接用分类汇总就ok啦。; Y" ]! ~8 z2 Q2 e2 W8 V1 p5 ~

+ f  v( f, n  S) S( i. v3 X于是写了一个通用程序,使用方法:选中要取消合并的区域(可以全选、整列),然后双击程序运行就可以取消合并。. N7 O( V) Y4 c% q( W9 l4 G
核心代码如下:
  1. Dim Rng,v,i,j
  2. Set Selection = ExcelApp.Selection
  3. Dim MergedKeysDic
  4. Set MergedKeysDic = CreateObject("scripting.dictionary")
  5. For i = Selection.Row To Min(Selection.Row+Selection.Rows.Count-1,MaxRow)
  6.         For j = Selection.Column To Min(Selection.Column+Selection.Columns.Count-1,MaxCol)
  7.                 Set Range = ActiveSheet.Cells(i,j)
  8.                 If Range.Address <> Range.MergeArea.Address Then
  9.                         MergedKeysDic.Item(Range.MergeArea.Address) = ""
  10.                 End If                
  11.         Next
  12. Next
  13. For Each Key In MergedKeysDic.Keys
  14.         Set Rng = ActiveSheet.Range(Key)
  15.         v = Rng.Value
  16.         Rng.UnMerge
  17.         For i = Rng.Row To Min(Rng.Row+Rng.Rows.Count-1,MaxRow)
  18.                 For j = Rng.Column To Min(Rng.Column+Rng.Columns.Count-1,MaxCol)
  19.                         ActiveSheet.Cells(i,j).Value = v
  20.                 Next
  21.         Next
  22. Next
复制代码
程序全文附件) s3 u3 P2 x" P4 b) Z# s$ C. P

  d5 K. G. K7 w( Q" m' W3 x! c1 _8 g, l% N. D6 c' x
然后么,拉出 @WPS_詹穗昌 的这个文件祭刀:! s$ X+ n7 M: Q9 p( f: ^" P8 ]
: u2 N: E! f* y, K  w  b4 Q8 Q
选中A列:
7 f% N& j1 O* I1 a
0 R9 o- d- h4 Q
" Q9 S+ Y5 m9 F3 f双击程序运行:( k3 m) A! ], T$ _

) H1 S2 l$ V6 I5 ~9 O( X7 S+ a( S2 f# ~: T+ e& \* F$ N/ Y9 ~
然后成了:' J- Z8 \/ N' q
) K4 j& D( L9 N+ O4 {
& ?$ R2 v, K7 ]7 c& o
再分类汇总:1 B7 I% N6 V- K: q: z- C7 D
0 N3 S9 h) ?+ r- V
# M7 h4 e7 b1 I# a( v- X9 h
最后结果:% y% n4 L: T% N7 ~- X. i' _

本帖子中包含更多资源

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

已有 3 人评分威望 金币 收起 理由
翘尾的k + 10 神贴啊,加分加定了~
WPS_严慧Nacl + 10 + 2 别看我,哥只是挤到前排看看~~~.
轩少 + 12 我们家的汪星人也喜欢你的帖子!.

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

154

主题

28

听众

5098

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11087
帖子
2620
精华
0

技术分享团 解答支持团 测试体验团 优秀会员奖 活跃会员奖 乐于助人奖 技巧教程分享达人

发表于 2014-12-10 22:46 |显示全部楼层
另,再提供一个反向操作:
: u6 G- G7 [  E2 a1 a- K7 U
1 G& S% C9 }6 ~, I0 v& \0 M同一列相同数据的批量合并_最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛7 K- l7 E* e2 I- t4 c. B
http://bbs.wps.cn/forum.php?mod= ... age=2#pid6181310713
回复

使用道具 举报

0

主题

0

听众

6

积分

LV.1

Rank: 1

该用户从未签到

金币
4
威望
6
帖子
8
精华
0
发表于 2014-12-13 13:10 |显示全部楼层
谢谢楼主的分享,,辛苦了,,,,,,,,,,,,,,
回复

使用道具 举报

3

主题

11

听众

9990

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1245 天

[LV.10]以坛为家III

金币
2003
威望
27360
帖子
2852
精华
0

优秀会员奖

发表于 2014-12-14 11:37 |显示全部楼层

' J( i' N% d8 O" e3 W来学习教程!支持!
回复

使用道具 举报

1

主题

1

听众

30

积分

LV.1

Rank: 1

该用户从未签到

金币
6
威望
64
帖子
18
精华
0
发表于 2014-12-15 07:49 |显示全部楼层
看教程无论长短 只要有特色总能学到些有用的东西
回复

使用道具 举报

53

主题

60

听众

6715

积分

版主

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

签到天数: 126 天

[LV.7]常住居民III

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

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

发表于 2014-12-15 10:05 |显示全部楼层
强大的大脑!!支持一个

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

使用道具 举报

1

主题

1

听众

23

积分

LV.1

Rank: 1

签到天数: 3 天

[LV.2]偶尔看看I

金币
8
威望
46
帖子
15
精华
0
发表于 2014-12-18 11:43 |显示全部楼层
谢谢楼主的分享,,辛苦了
回复

使用道具 举报

7

主题

0

听众

59

积分

LV.2

Rank: 2

该用户从未签到

金币
8
威望
142
帖子
27
精华
0
发表于 2014-12-23 22:00 |显示全部楼层
0 |; R3 h* o$ k: h7 Q8 ~
+ e1 p8 b$ v1 v来学习教程!支持!
回复

使用道具 举报

0

主题

1

听众

23

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

金币
0
威望
19
帖子
22
精华
0
发表于 2014-12-30 14:20 |显示全部楼层
回复

使用道具 举报

15

主题

4

听众

9951

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1205 天

[LV.10]以坛为家III

金币
2030
威望
27589
帖子
2606
精华
0
发表于 2015-1-4 00:07 |显示全部楼层
这个工具挺有用                       
回复

使用道具 举报

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

快速回帖:

fastpost

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

GMT+8, 2018-1-19 17:49

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部