Πώς να προσαρμόσετε αυτόματα το ύψος γραμμής των συγχωνευμένων κελιών στο Excel;
Στο Excel, μπορούμε να προσαρμόσουμε γρήγορα το ύψος της σειράς ώστε να ταιριάζει στα περιεχόμενα του κελιού χρησιμοποιώντας το Αυτόματη Προσαρμογή ύψους γραμμής χαρακτηριστικό, αλλά αυτή η λειτουργία αγνοεί εντελώς τα συγχωνευμένα κελιά. Δηλαδή, δεν μπορείτε να εφαρμόσετε το Αυτόματη Προσαρμογή ύψους γραμμής χαρακτηριστικό για να αλλάξετε το μέγεθος του ύψους των συγχωνευμένων κελιών, πρέπει να προσαρμόσετε χειροκίνητα το ύψος γραμμής για τα συγχωνευμένα κελιά ένα προς ένα. Σε αυτό το άρθρο, μπορώ να εισαγάγω μερικές γρήγορες μεθόδους για την επίλυση αυτού του προβλήματος.
Αυτόματη προσαρμογή ύψους γραμμής συγχωνευμένων κελιών με κωδικό VBA
Αυτόματη προσαρμογή ύψους γραμμής συγχωνευμένων κελιών με κωδικό VBA
Ας υποθέσουμε ότι έχω ένα φύλλο εργασίας με μερικά συγχωνευμένα κελιά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και τώρα πρέπει να αλλάξω το μέγεθος του ύψους της γραμμής κελιού για να εμφανίσω ολόκληρο το περιεχόμενο, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να προσαρμόσετε αυτόματα το ύψος σειράς πολλών συγχωνευμένων κελιών, παρακαλώ ως εξής:
1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αυτόματη προσαρμογή ύψους σειράς πολλαπλών συγχωνευμένων κελιώνOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
:
(1.) Στον παραπάνω κώδικα, μπορείτε να προσθέσετε νέα εύρη απλώς αντιγραφή Κλήση AutoFitMergedCells (εύρος ("a1: b2")) σενάριο πολλές φορές όπως θέλετε και αλλάξτε τις συγχωνευμένες περιοχές κυψελών στις ανάγκες σας.
(2.) Και θα πρέπει να αλλάξετε το τρέχον όνομα του φύλλου εργασίας Sheet4 στο όνομα του χρησιμοποιημένου φύλλου σας.
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και τώρα, μπορείτε να δείτε ότι όλα τα συγχωνευμένα κελιά έχουν προσαρμοστεί αυτόματα στο περιεχόμενο των κυττάρων τους, δείτε το στιγμιότυπο οθόνης:
Σχετικό άρθρο:
Πώς να προσαρμόσετε αυτόματα το πλάτος της στήλης στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!