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

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

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

  [复制链接]

154

主题

27

听众

5095

积分

解答支持团员

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

签到天数: 1 天

[LV.1]初来乍到

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

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

发表于 2014-12-10 22:37 |显示全部楼层
分享到: 新浪微博 腾讯微博
有时需要将一个合并的单元格取消合并后填入一样的值$ I2 n- M' R0 D5 E4 i0 v
比如 @WPS_詹穗昌 的这个情况:
1 L4 l8 g- A0 j3 j
! G3 Z# @9 N* ]/ D[周五见]5秒走捷径汇总合并单元格的子项分类的数据(强)~【已回应】( c$ f9 A" @* m, M7 _: C+ u
http://bbs.wps.cn/thread-22451756-1-1.html  f  G) c) R8 K
1 l0 X1 Y+ r  {4 Z
这时想,如果不是合并单元格,直接用分类汇总就ok啦。
5 p9 k, _, j5 X" w6 F% a. {' b8 E# ?; X0 S! o3 h! w9 O
于是写了一个通用程序,使用方法:选中要取消合并的区域(可以全选、整列),然后双击程序运行就可以取消合并。
9 o1 L: D9 C: i6 w! \核心代码如下:
  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
复制代码
程序全文附件
* N7 E) @5 d: D! M+ E) J, U+ \' q2 L8 x
" U* O2 V9 P) t& \3 y- z$ D; M# \9 Y
然后么,拉出 @WPS_詹穗昌 的这个文件祭刀:. {0 z3 ^5 J7 S+ s7 ?6 T3 X

# S8 o' {, Q0 ]$ P0 E选中A列:) q5 z' K( Q! E4 |/ _
$ U; B0 m5 z* S8 b1 I3 {  C) `$ K
: a; S) [9 f( R* I
双击程序运行:
- l" [9 i# C5 K6 E0 G+ I! T* N
/ c7 ?: d: r1 f/ z3 u
然后成了:% D5 K7 q  w' L
1 O; i' I6 C2 K; ~8 Y

& w4 {& k( N4 O9 x再分类汇总:3 D7 M# O; h* v6 B( C
; k, r! I0 P) W" F, M

2 T; ^0 u$ @: T8 A- S最后结果:
9 ]  J( w6 v9 y, E

本帖子中包含更多资源

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

已有 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 |显示全部楼层
另,再提供一个反向操作:1 A% y- v$ L- y( ~, ]: a" ~
1 ?9 E0 z# o( P9 z7 A
同一列相同数据的批量合并_最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛7 l" Z: _) _0 A7 t' d' w0 C# G( X
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

主题

10

听众

9431

积分

LV.15

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

签到天数: 1134 天

[LV.10]以坛为家III

金币
1892
威望
25789
帖子
2741
精华
0

优秀会员奖

发表于 2014-12-14 11:37 |显示全部楼层
4 o. ^6 V9 P% I, U/ G7 u* J
来学习教程!支持!
回复

使用道具 举报

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 ~
, c& G+ s% A4 S& U! ~. `来学习教程!支持!
回复

使用道具 举报

0

主题

1

听众

23

积分

LV.1

Rank: 1

签到天数: 1 天

[LV.1]初来乍到

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

使用道具 举报

15

主题

2

听众

9450

积分

LV.15

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

签到天数: 1107 天

[LV.10]以坛为家III

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

使用道具 举报

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

快速回帖:

fastpost

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

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

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部