Ajuste a altura da linha de células mescladas usando VBA no Microsoft Excel

Pergunta:
As células mescladas não têm a altura correta após uma quebra de linha. Como posso corrigir isso?

Responder:
Insira o seguinte código no módulo padrão.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight como único, MergedCellRgWidth como único Dim CurrCell como intervalo Dim ActiveCellWidth como único, PossNewRowHeight como único If ActiveCell.MergeCells Then With ActiveCell.MergeArea If .Rows.Count = 1 And True. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth para cada CurrCell na seleção MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Próximo .MergeCells = False .Cells (1) .ColumnWidth = MergedCellRgWidth. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub