1 resposta(s) nesse tópico

[celomassao]

Bom dia pessoal

Tenho um grupo de celulas mescladas e dentro dela tem um valor qualquer, qdo desmembra-la todas as celulas assumirem o mesmo valor

olhem o link para entenderem melhor http://br.dir.groups...r/message/52759

obrigado

Obs: Nesse mesmo fórum que tem a pergunta, tem uma resposta, mas ela não copia em todas as células que foram separadas, ela copia somente quando existe um valor na coluna B

[felipebenza]

Sub DesmesclarEspecial()
Dim rngMerged As Range
Dim rng As Range
Dim sÁrea As String
Dim sFórmula As String

With ActiveSheet
For Each rngMerged In .UsedRange
If rngMerged.MergeCells Then
sÁrea = rngMerged.MergeArea.Address
sFórmula = rngMerged.Formula
rngMerged.UnMerge
For Each rng In .Range(sÁrea)
rng.Formula = sFórmula
Next rng
End If
Next rngMerged
End With
End Sub