Excel Porque o código vba abaixo desmescla, mas não repete rótulos na MergeArea?

[Fabc]

 

Dim lCel As Range

Dim lRng As Range

Set lRng = Sheets("Plan1").Range("A1:L1000")

For Each lCel In lRng

If lCel.MergeCells Then lCel.MergeArea.UnMerge lCel.MergeArea.Formula = lCel.Formula 'Esta linha não é executada na MergeArea

End If

Next

End Sub

[Edson Luiz Branco]

Isso ocorre porque como o range já foi "desmesclado" na etapa imediatamente anterior (lCel.MergeArea.UnMerge), então a etapa seguinte (lCel.MergeArea.Formula = ...) não conterá mais uma área mesclada em que aplicar a fórmula, mas sim uma célula única.

 

Para evitar isso ou você guarda o bloco mesclado numa variável temporária antes de explodi-lo ou usa um bloco With/End With. Exemplo:

 

Sub ReplicaConteúdoMescladas()
  Dim lCel As Range
  Dim lRng As Range
  Set lRng = Sheets("Plan1").Range("A1:L1000")
  For Each lCel In lRng
    If lCel.MergeCells Then
      With lCel.MergeArea
        .UnMerge
        .Formula = lCel.Formula
      End With
    End If
  Next
End Sub

 

[Fabc]

@Edson Luiz BrancoExcelente. Muito Obrigado!