-
Posts
2 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por 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
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Porque o código vba abaixo desmescla, mas não repete rótulos na MergeArea?
em Microsoft Office e similares
Postado
@Edson Luiz BrancoExcelente. Muito Obrigado!