Microsoft Excel'de VBA kullanarak birleştirilmiş hücrelerin satır yüksekliğini ayarlayın

Soru:
Birleştirilmiş hücreler, satır sonundan sonra doğru yüksekliğe sahip değil. Bunu nasıl düzeltebilirim?

Cevap:
Aşağıdaki kodu standart modüle ekleyin.

 Sub AutoFitMergedCellRowHeight() Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single If ActiveCell.MergeCells Sonra ActiveCell.MergeArea ile ActiveCell.MergeArea If .TextRows.Count =. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth Seçimdeki Her CurrCell için MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Sonraki .MergeCells = False .Cells(1).FilowRgWidth. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End If ile End If Application.ScreenUpdating = True End Sub