Prilagodite visinu retka spojenih ćelija pomoću VBA u programu Microsoft Excel

Pitanje:
Spojene ćelije nemaju ispravnu visinu nakon pauze retka. Kako to mogu ispraviti?

Odgovor:
Umetnite sljedeći kôd u standardni modul.

 Pod AutoFitMergedCellRowHeight () Priguši CurrentRowHeight kao pojedinačno, MergedCellRgWidth kao pojedinačno Dim Dim CurrCell kao raspon Dim ActiveCellWidth kao pojedinačno, PossNewRowHeight kao pojedinačno Ako je ActiveCell.MergeCells Zatim s ActiveCell.MergeCreac. lažno CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth Za svaku CurrCell u odabiru MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Sljedeća .MergeCells = false .Cells (1) .ColumnWidth = MergedCellRgWidth .EntireRow.AutoFit PossNewRowHeight = .RowHeight .Cells (1). ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub