Tabla de contenido
Pregunta:
Las celdas combinadas no tienen la altura correcta después de un salto de fila. ¿Cómo puedo corregir esto?
Respuesta:
Inserte el siguiente código en el módulo estándar.
Sub AutoFitMergedCellRowHeight () Atenuar CurrentRowHeight como único, MergedCellRgWidth como único Dim CurrCell como rango Atenuar ActiveCellWidth como único, PossNewRowHeight como único Si ActiveCell.MergeCells Luego con ActiveCell.MergeArea Si .Rows.Count = 1 Y. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth para cada CurrCell en la selección MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Siguiente .MergeCells = False .Cells (1) .ColumnWidth = MergedCellRitireRowWight. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub
