标签：style blog c ext http color
相信很多经常使用excel的同学为了格式美观经常需要把连续相同的单元格（如班级、类型）进行合并。
如果数据量较小，手工点击合并即可。但如果是大量的数据，如几千行。那可真是麻烦！
所以，作者在一次遇到较多单元格的时候变写了一段vba来实现。
初次写是为了合并连续相同的行，后来了解到有些同事也需要，而且有时候是针对列来合并，所以又编辑了一下，可以自动识别行或列。
一个小例子：
先选中第一列有文字部分，然后点击：【我是做成了一个加载项，比较方便】
再选中第一行有文字部分，然后点击该宏。得到如下结果：
代码比较简单。想用的同学可以参考：
Public Sub
合并连续相同单元格【自动识别按行或按列】()
Dim i As
Integer
Application.ScreenUpdating =
False
Application.DisplayAlerts =
False
c =
Selection.Column
l =
Selection.Row
F =
Selection.Item(Selection.Count).Row
K
= Selection.Item(Selection.Count).Column
If
F > K Then
For i = F To l + 1
Step -1
If Cells(i, c).Value =
Cells(i - 1, c).Value Then
Range(Cells(i, c), Cells(i - 1,
c)).Merge
End If
Next
Else
For i = K To c + 1 Step -1
If
Cells(l, i).Value = Cells(l, i - 1).Value Then
Range(Cells(l,
i), Cells(l, i - 1)).Merge
End
If
Next
End
If
Application.DisplayAlerts =
True
Application.ScreenUpdating =
True
End Sub
ps：我也没学过vb之类，只不过我是个懒人，是懒惰驱使我去学习一些小伎俩，好去偷闲！
excel合并连续相同的单元格,布布扣,bubuko.com
标签：style blog c ext http color
原文地址：http://www.cnblogs.com/safnight/p/3732375.html
