Problema em tirar mescla do Excel e manter as informações

Question

Pessoal ,

Tenho uma planilha com mais de 200 mil linhas, sendo que algumas colunas tenho informa&ccedil;&otilde;es em c&eacute;lulas mescladas com diferentes quantidades de linhas em cada mescla.

Preciso tirar a mescla e fazer com que a informa&ccedil;&atilde;o (escrita) dessa mescla fique em todas as c&eacute;lulas que estavam mescladas (exemplo, se na mescla de 10 linhas est&aacute; escrito futebol, na hora que tirar a mescla preciso que a escrita futebol fique nas 10 linhas), mas n&atilde;o descobri nenhuma forma de fazer isso que n&atilde;o seja manualmente, s&oacute; que estou falando de 6 colunas com mais de 200 mil linhas cada, fazer isso manualmente, tirando as mesclas e copiando as informa&ccedil;&otilde;es para as c&eacute;lulas que ficam em branco &eacute; desumano, uma vez que as informa&ccedil;&otilde;es s&atilde;o diferentes de cada mescla.

Se puderem me ajudar agrade&ccedil;o.

Answer

[USER=1044022]@Maspolifi[/USER] sem ver o end das celulas de dados fica dificil tentar te ajudar.
Se puder, poste um exemplo com alguns dados ficticios

Answer

[ATTACH=full]51182[/ATTACH]

No exemplo na coluna F, est&aacute; mesclado da linha 3 a 20, preciso tirar a mescla e manter a palavra default nas linhas de 3 a 20, mas isso ocorre em 4 colunas diferentes, com tamanhos de mesclas diferentes e termos diferentes, preciso tirar todas as mesclas e manter a escrita da mescla em todas as linhas. N&atilde;o descobri uma forma de fazer que n&atilde;o seja manual, mais est&aacute; demorando demais, por serem mais de 200 mil linhas em 4 colunas.

Answer

[QUOTE=Basole, post: 7437892, member: 908394][USER=1044022]@Maspolifi[/USER] sem ver o end das celulas de dados fica dificil tentar te ajudar.
Se puder, poste um exemplo com alguns dados ficticios[/QUOTE]
respondi no exemplo

Answer

Segue abaixo um exemplo:

[code=VB]
Sub DesMesclar_celulas()
Dim rng As Range, c As Range

With ActiveSheet
Set rng = .Range(F2:F20)
   For Each c In rng
   If c.MergeCells Then
   c.UnMerge
   rng.Resize = c
   Exit For
   End If
  Next
End With

End Sub
[/code]

Ferramentas

Mover Tópico