질문 :

병합 된 셀의 행 나누기 후 올바른 높이가 없습니다. 이 문제를 어떻게 해결할 수 있습니까?

답변 :

표준 모듈에 다음 코드를 삽입하십시오.

Sub AutoFitMergedCellRowHeight()

Dim CurrentRowHeight As Single, MergedCellRgWidth As Single

Dim CurrCell As Range

Dim ActiveCellWidth As Single, PossNewRowHeight As Single

If ActiveCell.MergeCells Then

With ActiveCell.MergeArea

If .Rows.Count = 1 And .WrapText = True Then

Application.ScreenUpdating = False

CurrentRowHeight = .RowHeight

ActiveCellWidth = ActiveCell.ColumnWidth

For Each CurrCell In Selection

MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth

Next

.MergeCells = False

.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