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

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

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

  [复制链接]

154

主题

27

听众

5095

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11083
帖子
2618
精华
0

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

发表于 2014-12-10 22:37 |显示全部楼层
分享到: 新浪微博 腾讯微博
有时需要将一个合并的单元格取消合并后填入一样的值0 \! t! {! A4 h" _& |* Z) L1 D
比如 @WPS_詹穗昌 的这个情况:
0 A6 g# Q/ K( s& Q) E! `. V) X2 p2 g+ Y$ d. Q! G  L+ F, z& x6 t
[周五见]5秒走捷径汇总合并单元格的子项分类的数据(强)~【已回应】
; d# @9 E2 n- ~0 A+ e% M, zhttp://bbs.wps.cn/thread-22451756-1-1.html
3 X& X5 ^  K& S% M1 v' M% q) \5 o6 o$ ~  ~. _  D% y
这时想,如果不是合并单元格,直接用分类汇总就ok啦。9 L6 h5 E" L+ {8 t1 N  L/ g6 Y

0 f, ~" ^9 j( c于是写了一个通用程序,使用方法:选中要取消合并的区域(可以全选、整列),然后双击程序运行就可以取消合并。
2 L( ^; U  R9 ~8 p+ a' m- }* D4 b核心代码如下:
  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
复制代码
程序全文附件
* Z, P" a: _5 ~4 E. G( B- R* r
+ C2 ~3 s4 `* X: u6 f7 Y0 ^! w4 V# Y* a0 S( [! g
然后么,拉出 @WPS_詹穗昌 的这个文件祭刀:# @$ V  u! H: G( C  ~3 M

7 @# g: z& {( b2 [选中A列:. d# T2 ?# S4 w- |9 ~: t" l

0 W* d! y: N8 W+ G! A' k
% h9 f  @2 G  ]/ l双击程序运行:& j. g. D: s) d9 W
9 S7 l) r4 k$ J2 X5 q: ?  {: W
+ q8 {3 K5 Z0 ?2 D: p7 k  c
然后成了:
& K  _, T# H, @+ G1 }
# {& |+ e, J! h$ X/ \2 F( P+ k1 n3 X( s: a
再分类汇总:: k0 u4 G! ?' f. _1 k& j

6 B: H; ]$ R( b0 A5 X, b  D
5 H" A* J  X4 H最后结果:
3 m: @# h4 C5 `6 w; J! e  F

本帖子中包含更多资源

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

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

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

154

主题

27

听众

5095

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

金币
2784
威望
11083
帖子
2618
精华
0

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

发表于 2014-12-10 22:46 |显示全部楼层
另,再提供一个反向操作:
' H9 k; H' C- Q: [
( n8 t' u" u& r& r/ q8 d1 ?同一列相同数据的批量合并_最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛
1 p. h  M# |* J( M8 d$ Rhttp://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

主题

10

听众

9683

积分

LV.15

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

签到天数: 1183 天

[LV.10]以坛为家III

金币
1941
威望
26500
帖子
2790
精华
0

优秀会员奖

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

; c. I. d. Y4 \/ s2 A来学习教程!支持!
回复

使用道具 举报

1

主题

1

听众

30

积分

LV.1

Rank: 1

该用户从未签到

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

使用道具 举报

53

主题

59

听众

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 ~' W8 B' Y7 A' h0 E
来学习教程!支持!
回复

使用道具 举报

0

主题

1

听众

23

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

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

使用道具 举报

15

主题

2

听众

9666

积分

LV.15

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

签到天数: 1147 天

[LV.10]以坛为家III

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

使用道具 举报

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

快速回帖:

fastpost

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

GMT+8, 2017-11-18 14:42

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部