Регулирайте височината на реда на обединените клетки, като използвате VBA в Microsoft Excel

Въпрос:
Обединените клетки нямат правилната височина след прекъсване на ред. Как мога да поправя това?

Отговор:
Вмъкнете следния код в стандартния модул.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight като единична, MergedCellRgWidth като единична Dim CurrCell като обхват Dim ActiveCellWidth като единична, PossNewRowHeight като единична, ако ActiveCell.MergeCells Тогава с ActiveCell.MergeCreact. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth За Всеки CurrCell селекция в MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Следваща .MergeCells = фалшиви .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