如何在取消合并单元格时在原合并区域内所有单元格中保留内容

309565063 · 发表于 2012-5-2 11:10

学习二下

pp71@qq.com · 发表于 2012-5-2 11:30

本帖最后由 pp71@qq.com 于 2012-5-2 11:35 编辑

Sub 取消合并并还原数据()
Dim a As Range, b As Range
For Each a In ActiveSheet.UsedRange
      If a.MergeCells Then
         Set b = a.MergeArea
         b.UnMerge
         b.Value = a.Value
      End If
Next
End Sub

已完美解决。。

我为卿狂7219 · 发表于 2012-5-2 11:34

如果只在某列能用这些吗

低值易耗品 · 发表于 2012-5-2 14:30

ipnuggh

xiabin7607 · 发表于 2012-5-9 11:09

看一下。。。。。

checkluo · 发表于 2012-5-9 16:37

这个我也很想知道

chenl1234 · 发表于 2012-5-16 17:47

学习一下！！！！

silent7 · 发表于 2012-5-18 16:01

好想看看歇息诶楼主

rmsc_kr · 发表于 2012-5-18 22:06

学习了。。。。。。。

178490420 · 发表于 2012-5-19 14:14

看下面

		自动登录	找回密码
密码			注册