Ajustați înălțimea rândului de celule îmbinate utilizând VBA în Microsoft Excel

Întrebare:
Celulele combinate nu au înălțimea corectă după o pauză de rând. Cum pot corecta acest lucru?

Răspuns:
Introduceți următorul cod în modulul 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.Count = 1 AndWrap = 1 And. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth Pentru fiecare CurrCell din selecție MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .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