Pas de rijhoogte van samengevoegde cellen aan met VBA in Microsoft Excel

Vraag:
Samengevoegde cellen hebben niet de juiste hoogte na een rij-einde. Hoe kan ik dit corrigeren?

Antwoord geven:
Voer de volgende code in de standaardmodule in.

 Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight als enkel, MergedCellRgWidth als enkel Dim CurrCell als bereik Dim ActiveCellWidth als enkel, PossNewRowHeight als enkel Als ActiveCell.MergeCells Dan met ActiveCell.MergeArea If .RowsUp And .Count = 1 False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth voor elke CurrCell in selectie MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells(1).CellsFilm. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub