求VBA代码：取消合并单元格，填充单元格

nikonmonarch · 发表于 2015-9-27 18:12

Sub ReWrt()
With [A:A]
      .UnMerge
      .SpecialCells(4) = "=R[-1]C"
      .Value = .Value
End With
End Sub
代码简单高效，太棒了。

ydlpc · 发表于 2016-1-4 15:58

漂亮，学习了。

舒云天 · 发表于 2016-1-19 10:16

佩服大师们了，向横行填充时如何修改代码呢？谢谢

wangzezhige · 发表于 2016-1-21 10:30

是不是不适用于不规则的合并？

这货是菜鸟 · 发表于 2016-2-21 16:35

mark 正好需要~

summerrain828 · 发表于 2016-5-16 11:26

这段代码有个问题不能解决. 如果A1至A2合并. 有内容. 而A3至A4没内容. 合并了是空. 这段代码的结果是A1至A4都是A1的内容. 怎么实现A1至A2有内容. 而原本是空的合并单元格合并取消后仍然是空?

zorsite · 发表于 2016-11-25 16:50

alzeng 发表于 2010-3-20 10:19
还不够简短…… ^_^

[ 本帖最后由 alzeng 于 2010-3-20 10:20 编辑 ]

请问第六行的代码:
.Value = .Value

有什么用处?我删掉这一行代码似乎并不影响运行.

sbansar · 发表于 2018-9-26 16:58

summerrain828 发表于 2016-5-16 11:26
这段代码有个问题不能解决. 如果A1至A2合并. 有内容. 而A3至A4没内容. 合并了是空. 这段代码的结果 ...

我也遇到这个问题了。

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

[求助] 求VBA代码：取消合并单元格，填充单元格