Μετάβαση στο κύριο περιεχόμενο

 Πώς να αλλάξετε το ύψος σειράς / πλάτος στήλης που εναλλάσσεται στο Excel;

Ας υποθέσουμε ότι έχετε ένα μεγάλο φύλλο εργασίας που έχει πολλές στήλες ή σειρές πρέπει να προσαρμόζονται εναλλακτικά το πλάτος ή το ύψος τους, μπορείτε να αλλάξετε το ύψος της σειράς ή το πλάτος της στήλης ένα προς ένα χειροκίνητα εάν υπάρχουν λίγες στήλες ή σειρές. Αλλά, πώς θα μπορούσατε να αλλάξετε ταυτόχρονα το ύψος πολλαπλών γραμμών ή το πλάτος της στήλης στο Excel;

Αλλάξτε κάθε άλλο ύψος σειράς με τη λειτουργία φίλτρου

Αλλάξτε κάθε άλλο ύψος σειράς / πλάτος στήλης με τον κωδικό VBA

Αλλάξτε κάθε άλλο ύψος σειράς / πλάτος στήλης με το Kutools για Excel


βέλος μπλε δεξιά φούσκα Αλλάξτε κάθε άλλο ύψος σειράς με τη λειτουργία φίλτρου

Χρησιμοποιώντας το Φίλτρα Λειτουργία, πρέπει πρώτα να δημιουργήσετε μια βοηθητική στήλη και, στη συνέχεια, να εφαρμόσετε τη λειτουργία Φίλτρο για να φιλτράρετε τις γραμμές που χρειάζεστε και να προσαρμόσετε ταυτόχρονα όλο το φιλτραρισμένο ύψος σειράς Κάντε το ως εξής:

1. Εκτός από τα δεδομένα σας, σε ένα κενό κελί, εισαγάγετε τον αριθμό 0 και 1 ξεχωριστά στην πρώτη και τη δεύτερη σειρά και, στη συνέχεια, επιλέξτε τα και σύρετε τη λαβή πλήρωσης στα κελιά εύρους που θέλετε να προσαρμόσετε το ύψος της γραμμής και ελέγξτε Αντιγραφή κελιών σχηματίστε τη λαβή πλήρωσης και θα λάβετε το αποτέλεσμα ως εξής στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

2. Στη συνέχεια, επιλέξτε τη στήλη βοηθού και κάντε κλικ στο ημερομηνία > Φίλτρα, στη συνέχεια κάντε κλικ στο κουμπί doc-filter-button-1κουμπί και επιλέξτε 0 ή 1 από την αναπτυσσόμενη λίστα, αυτό το παράδειγμα, θα επιλέξω 0, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

3. Κλίκ OK, όλες οι σειρές που περιέχουν τον αριθμό 0 έχουν φιλτραριστεί. Στη συνέχεια, επιλέξτε αυτές τις φιλτραρισμένες σειρές και κάντε κλικ στο Home > Μορφή > Ύψος σειράς, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

4. Στην Ύψος σειράς διαλόγου, εισαγάγετε το ύψος της γραμμής που θέλετε, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

5. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε αυτό το παράθυρο διαλόγου και το επιλεγμένο φιλτραρισμένο ύψος σειράς έχει ρυθμιστεί. Τέλος, κάντε κλικ ημερομηνία > Φίλτρα για να ακυρώσετε τη λειτουργία φίλτρου και το ύψος της σειράς σας έχει αλλάξει εναλλακτικά. Δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

:

1. Μπορείτε να αλλάξετε το ύψος της σειράς ξεκινώντας εναλλάξ στην πρώτη σειρά.

2. Αυτή η μέθοδος δεν εφαρμόζεται για την αλλαγή του πλάτους της στήλης.

3. Αφού ολοκληρώσετε τη διαδικασία, μπορείτε να διαγράψετε τη βοηθητική στήλη όπως χρειάζεστε.


βέλος μπλε δεξιά φούσκα Αλλάξτε κάθε άλλο ύψος σειράς / πλάτος στήλης με τον κωδικό VBA

Εάν πρέπει να αλλάξετε τόσο το ύψος της σειράς όσο και το πλάτος της στήλης, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει.

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Αλλάξτε κάθε άλλο ύψος γραμμής σε ένα φύλλο εργασίας

Sub RowHeight()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Row height", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Rows.Count Step 2
    WorkRng.Rows(i).RowHeight = xInput
Next
End Sub

3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε το εύρος που θέλετε να προσαρμόσετε το ύψος της γραμμής, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, θα εμφανιστεί ένα άλλο πλαίσιο προτροπής για να σας επιτρέψει να εισάγετε το ύψος της γραμμής που χρειάζεστε, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

5. Και στη συνέχεια κάντε κλικ στο κουμπί OK, το ύψος σειράς που επιλέξατε άλλαξε εναλλακτικά από την πρώτη σειρά. Δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

:

1. Εάν θέλετε να προσαρμόσετε κάθε άλλο πλάτος στήλης, εφαρμόστε τον ακόλουθο κώδικα VBA:

Κωδικός VBA: Αλλάξτε κάθε άλλο πλάτος στήλης σε ένα φύλλο εργασίας

Sub CloumnWidth()
'Update 20140625
Dim Rng As Range
Dim WorkRng As Range
Dim xInput As Long
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xInput = Application.InputBox("Cloumn width", xTitleId, "", Type:=2)
For i = 1 To WorkRng.Columns.Count Step 2
    WorkRng.Columns(i).ColumnWidth = xInput
Next
End Sub

2. Εάν θέλετε να αλλάξετε το ύψος της σειράς ή το πλάτος της στήλης ξεκινά από τη δεύτερη σειρά / στήλη, απλώς πρέπει να επιλέξετε το εύρος δεδομένων από τη δεύτερη σειρά / στήλη.


βέλος μπλε δεξιά φούσκα Αλλάξτε κάθε άλλο ύψος σειράς / πλάτος στήλης με το Kutools για Excel

Εάν έχετε εγκαταστήσει Kutools για Excel, της Επιλέξτε Διαστήματα γραμμών και στηλών Το βοηθητικό πρόγραμμα μπορεί επίσης να σας βοηθήσει να επιλέξετε κάθε άλλη σειρά ή στήλη πρώτα και, στη συνέχεια, να αλλάξετε ταυτόχρονα το ύψος και το πλάτος της στήλης.

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες.Αποκτήστε το τώρα.

1. Επιλέξτε το εύρος δεδομένων που θέλετε να χρησιμοποιήσετε.

2. Πηγαίνετε στο κλικ Kutools > Επιλέξτε Εργαλεία > Επιλέξτε Διαστήματα γραμμών και στηλών, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

3. Στην Επιλέξτε Διαστήματα γραμμών και στηλών πλαίσιο διαλόγου, επιλέξτε Γραμμές or Στήλες από το Αγορά ενότητα όπως θέλετε και, στη συνέχεια, από την ενότητα Επιλογές, εισαγάγετε το Διάστημα και Στήλες or Γραμμές αριθμός σε αυτά, σε αυτό το παράδειγμα, θα επιλέξω στήλες, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

4. Στη συνέχεια κάντε κλικ στο κουμπί OK, κάθε άλλη στήλη έχει επιλεγεί στην ενότητα, δείτε το στιγμιότυπο οθόνης:

doc-αλλαγή-σειρά-ύψος-1

5. Και στη συνέχεια κάντε κλικ στο κουμπί Home > Μορφή > Πλάτος στήληςκαι εισαγάγετε τον αριθμό πλάτους στηλών που θέλετε στο Πλάτος στήλης πλαίσιο διαλόγου, δείτε στιγμιότυπα οθόνης:

doc-αλλαγή-σειρά-ύψος-11 -2 doc-αλλαγή-σειρά-ύψος-12

6. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι το πλάτος της στήλης άλλαξε εναλλάξ από την πρώτη στήλη.

doc-αλλαγή-σειρά-ύψος-1

:

1. Για να επιλέξετε κάθε άλλη σειρά, ελέγξτε Γραμμές in Επιλέξτε Διαστήματα γραμμών και στηλών διάλογος στο βήμα 3.

2. Εάν θέλετε να αλλάξετε το ύψος της σειράς ή το πλάτος της στήλης ξεκινά από τη δεύτερη σειρά / στήλη, απλώς πρέπει να επιλέξετε το εύρος δεδομένων από τη δεύτερη σειρά / στήλη.


Σχετικά άρθρα:

Πώς να σκιάσετε κάθε άλλη ή εναλλακτικές σειρές στο Excel;

Πώς να διαγράψετε γρήγορα κάθε άλλη σειρά στο Excel;

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations