Juster radhøyden til de sammenslåtte cellene ved hjelp av VBA i Microsoft Excel

Spørsmål:
Fusjonerte celler har ikke riktig høyde etter radbrudd. Hvordan kan jeg rette opp dette?

Svar:
Sett inn følgende kode i standardmodulen.

 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 =. Falsk CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth for hver CurrCell i utvalg MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Neste .MergeCells = False .CellReg .Cell .Reg .R. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End with End If Application.ScreenUpdating = True End Sub