Προσαρμόστε το ύψος γραμμής των συγχωνευμένων κελιών χρησιμοποιώντας VBA στο Microsoft Excel

Ερώτηση:
Τα συγχωνευμένα κελιά δεν έχουν το σωστό ύψος μετά από ένα διάλειμμα σειράς. Πώς μπορώ να το διορθώσω αυτό;

Απάντηση:
Εισαγάγετε τον ακόλουθο κώδικα στην τυπική μονάδα.

 Sub AutoFitMergedCellRowHeight () Dim CurrentRowHeight As Single, MergedCellRgWidth As Single Dim CurrCell As Range Dim ActiveCellWidth As Single, PossNewRowHeight As Single If ActiveCell.MergeCells Στη συνέχεια Με ActiveCell.MergeArtege False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth For Every CurrCell In Selection MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next .MergeCells = False .Cells (1) .WowRightWightth ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf (CurrentRowHeight> PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) Τέλος Αν τελειώσει με τέλος Εάν η εφαρμογή. ScreenUpdating = True End Sub