Säädä yhdistettyjen solujen rivikorkeutta VBA: n avulla Microsoft Excelissä

Anonim

Kysymys:
Yhdistetyillä soluilla ei ole oikeaa korkeutta rivinvaihdon jälkeen. Miten voin korjata tämän?

Vastaus:
Lisää seuraava koodi vakiomoduuliin.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight Single, MergedCellRgWidth Single Him False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth jokaiselle CurrCell -valinnalle MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Seuraava .MergeCells = False .Cells (1) .ColumnWidth = MergedCellReHowRightWear. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End Jos päättyy loppuun, jos sovellus.ScreenUpdating = True End Sub