V VBA v Microsoft Excelu prilagodite višino vrstice združenih celic

Vprašanje:
Združene celice po prelomu vrstice nimajo pravilne višine. Kako lahko to popravim?

Odgovor:
V standardni modul vstavite naslednjo kodo.

 Sub AutoFitMergedCellRowHeight () Zatemni CurrentRowHeight kot enojno, MergedCellRgWidth kot enojno Dim CurrCell kot obseg Dim ActiveCellWidth kot enojno, PossNewRowHeight kot enojno, če je ActiveCell.MergeCells Potem z ActiveCell.MergeCreap. drži CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth Za vsako CurrCell v izboru MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Naslednja .MergeCells = false .Cells (1) .ColumnWidth = MergedCellRgWidth .EntireRow.AutoFit PossNewRowHeight = .RowHeight .Cells (1). ColumnWidth = Aktivna celica