Bom dia!!

Me desculpa mas, se quer um conselho, esqueça células mescladas!!!

Att

é que na veradde é um relatórioi que foi montado em Excel, e na formação da linha, acba mesclada para questões de leiate.

Eu não entendi muito bem o que vc quer, mas...

Uma alternativa para acabar com esse células mescladas é vc inserir uma caixa de texto transparente (e sem bordas) onde está o cabeçalho. Assim poderá acabar com essas células mescladas.

O pessoal falou, evite céluals mescladas, só te darão dor de cabeça,... MAS, eu fiquei curioso, o que exatamente vc quer dizer com auto ajuste?

Se possível, poste um modelo compactado, e damos uma olhada.

FF

Segue o arquivo anexo para enteder o que acontece.

Boa tarde!!

Quando você fala

mas o ajuste automático não funciona.

, você refere se a ajustar automaticamente a coluna (autofit)ou Quebra de Texto?

Depois que você coloca as informações na célula mesclada e o texto acaba tendo que ir para a próxima linha até vai, mas fica cortado pela metade. neste caso o que não esta funcionando é o ajuste da altura da linha.

Valdecirrk,

Anteriormente postei algo parecido e obtive como resposta a macro abaixo.
O problema é que com ela eu tenho que clicar em cada linha onde há células mescladas.
Se algúem puder modifica-la para inseri-la em um módulo e poder executá-la por meio de um botão, ajustando todas as linhas que contém células mescladas, resolveria.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim NewRwHt As Single
Dim cWdth As Single, MrgeWdth As Single
Dim c As Range, cc As Range
Dim ma As Range

With Target
If .MergeCells And .WrapText Then
Set c = Target.Cells(1, 1)
cWdth = c.ColumnWidth
Set ma = c.MergeArea
For Each cc In ma.Cells
MrgeWdth = MrgeWdth + cc.ColumnWidth

Next
Application.ScreenUpdating = False
On Error Resume Next
ma.MergeCells = False
c.ColumnWidth = MrgeWdth
c.EntireRow.AutoFit
NewRwHt = c.RowHeight
c.ColumnWidth = cWdth
ma.MergeCells = True
ma.RowHeight = NewRwHt
cWdth = 0: MrgeWdth = 0
On Error GoTo 0
Application.ScreenUpdating = True
End If
End With
End Sub

Obrigado a todos.

Silvio Felinto