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

zldccmx

原帖由 nawong 于 2010-3-20 10:39 发表
VBA+公式往往有奇效

有道理。因为里面的公式也就是　MS　已经优化了的代码所完成的
我们经常是站在别人的肩膀上

zldccmx

原帖由 alzeng 于 2010-3-20 10:42 发表
玩笑，玩笑，问好朽大！

哈哈， 我刚才真的觉得我的代码很短了。

所以我就说我“谦虚”了嘛　

novice2008

佩服，佩服，收下。

bluexuemei

学习取消合并单元格的方法，收藏！

superdesolator

bluexuemei 发表于 2013-4-16 23:48
学习取消合并单元格的方法，收藏！

附上两段代码,第一个是合并B列相同内容的单元格,第二个是第一个的相反过程以供大家共同学习!
第一个:
Sub a()
Dim i As Integer
Dim introw As Integer
Application.DisplayAlerts = False
With Sheet1
introw = .Range("b65336").End(xlUp).Row
For i = introw To 2 Step -1
If .Cells(i, 2).Value = .Cells(i - 1, 2).Value Then
.Range(Cells(i, 2), Cells(i - 1, 2)).Merge
End If
Next
End With
Application.DisplayAlerts = True
End Sub
第二个
Sub b()
Dim i As Integer
Dim introw As Integer
Dim intcot As Integer
Dim str As String
Application.DisplayAlerts = False
introw = Sheet1.Range("b65336").End(xlUp).Row
With Sheet1
For i = 2 To introw
str = .Cells(i, 2).Value
intcot = .Cells(i, 2).MergeArea.Count
.Cells(i, 2).UnMerge
.Range(Cells(i, 2), Cells(i + intcot - 1, 2)).Value = str
i = i + intcot - 1
Next
Application.DisplayAlerts = True
End With
End Sub

这里顺便指出一些事情,以待大家思考:
1.intcot = .Cells(i, 2).MergeArea.Count中这个mergearea.count,EXCEL是怎么数出来的呢？
2.如果我的B列形式如下;
财务
会计
会计
财务
我怎么能使财务的都合到一起呢？？

gjj136138139

不错不错，还是用定位方便。

451856787

zldccmx 发表于 2010-3-20 09:46
'撰写:老朽
      '网址:http://Club.ExcelHome.net
      '日期:2010-3-20 上午 09:46:43

大神，想问个问题，这个程序再次运行就会提示未找到单元格，该怎样设立容错机制呢？谢谢！！！

451856787

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

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

大神，这个代码重复使用就会报错，想知道该怎么解决呢？

liaoliangbang

这些代码，如果合并单元格之间有其他自然单元格则会出错。

liaoliangbang

Sub UnMerge()
Dim StrMer As String
Dim IntCot As Integer
Dim i As Integer
cnt = Selection.Columns.Count
cl = Selection.Rows(1).Cells(1).Column

For ii = cl To cl + cnt - 1

  For i = 2 To [B65536].End(3).Row
   StrMer = Cells(i, ii).Value
   IntCot = Cells(i, ii).MergeArea.Count
    Cells(i, ii).UnMerge
    Range(Cells(i, ii), Cells(i + IntCot - 1, ii)).Value = StrMer
    i = i + IntCot - 1
   Next
   
   Next
End Sub
'求大师指导简化代码。