Sureguliuokite sujungtų langelių eilių aukštį naudodami „Microsoft Excel“ VBA

Klausimas:
Sujungtos ląstelės po eilučių pertraukos neturi tinkamo aukščio. Kaip tai ištaisyti?

Atsakymas:
Į standartinį modulį įterpkite šį kodą.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Diapazonas Dim ActiveCellWidth as Single, PossNewRowHeight As Single Jei ActiveCell.MergeCells Tada su ActiveCell.MergeArea If .Rows.CountTe = 1Ut. False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth kiekvienam pasirinktam CurrCell. Stulpelio plotis = aktyvus ląstelių plotis.