Macro para Mesclar Células iguais na mesma linha

[Guilherme Amaro]

Bom dia!

Estou precisando de um macro que mescle as células iguais em uma determinada linha, ex:

linha 1 | nulo | nulo | nulo | nulo

linha 2 |PT-01 | PT-01 | PT-02 | PT-02

Ficar assim:

linha 1 | nulo | nulo | nulo | nulo |

linha 2 | PT-01 | PT-02 |

Muito obrigado!

[zinhovba]

Bom dia!!!

Tente assim...

Option Explicit
Sub MesclarCelulas()
Dim r As Long, lr As Long, lc As Long, c As Long
lr = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False).Row
lc = Cells(1, Columns.Count).End(xlToLeft).Column
For r = 2 To lr Step 1
  For c = 1 To lc - 1
    If Cells(r, c) = Cells(r, c + 1) Then
      Cells(r, c + 1).ClearContents
      With Cells(r, c).Resize(, 2)
        .MergeCells = True
        .HorizontalAlignment = xlLeft
      End With
    End If
  Next c
Next r
End Sub