VBA合并同行单元格

imhuhong

大神，求帮助啊，感激不尽啊。如果是我要将第9行，从3列开始判断，连续相邻的单元格只要是一样的值，那么就全部自动合并成一个单元格。
我的表格里，只有连续相同值的，举个例子44444455555559999992222222222222222222
您能帮忙看看，能用VBA实现么，感激涕零啊

请注意，是只合并第9行，连续相邻的不同列具有相同值的单元格合并

horaceG

Sub 合并()
Dim cr%
cr = Cells(9, 256).End(xlToLeft).Column
Application.DisplayAlerts = False
For Rng = cr To 3 Step -1
    Set rg = Cells(9, Rng)
    If rg = rg.Offset(0, -1) Then rg.Offset(0, -1).Resize(1, 2).Merge
Next
Application.DisplayAlerts = True
End Sub

你试试这个，我自己试了，应该可以做到你说的