Upravte výšku riadkov zlúčených buniek pomocou jazyka VBA v programe Microsoft Excel

Anonim

Otázka:
Zlúčené bunky nemajú po prestávke riadkov správnu výšku. Ako to môžem opraviť?

Odpoveď:
Do štandardného modulu vložte nasledujúci kód.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight ako jeden, MergedCellRgWidth ako jeden dim CurrCell ako rozsah Dim ActiveCellWidth ako jeden, PossNewRowHeight ako jeden, ak ActiveCell.MergeCells Potom s ActiveCell.MergeArea If. Falošný CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth pre každý výber CurrCell MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells (1) .ColumnWidth = Merged ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End if End With End If Application.ScreenUpdating = True End Sub