Dostosuj wysokość wiersza scalonych komórek za pomocą VBA w programie Microsoft Excel

Anonim

Pytanie:
Scalone komórki nie mają prawidłowej wysokości po podziale wiersza. Jak mogę to poprawić?

Odpowiedź:
Wstaw następujący kod do standardowego modułu.

 Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight jako Single, MergedCellRgWidth jako Single Dim CurrCell As Range Dim ActiveCellWidth jako Single, PossNewRowHeight jako Single Jeśli ActiveCell.MergeCells Następnie z ActiveCell.MergeArea Jeśli .Rows. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth dla każdej CurrCell w zaznaczeniu MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells(1).EntRowth.ColumnWidth. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If Koniec End If Application.ScreenUpdating = True Koniec Sub