Regola l'altezza della riga delle celle unite utilizzando VBA in Microsoft Excel

Domanda:
Le celle unite non hanno l'altezza corretta dopo un'interruzione di riga. Come posso correggere questo?

Risposta:
Inserire il seguente codice nel modulo standard.

 Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single If ActiveCell.MergeCells Then With ActiveCell.MergeArea If = .Rows.CountText = 1 And Then Application False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth per ogni CurrCell nella selezione MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Avanti .MergeCells = False .Cells(1). ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub