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

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

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

Εισαγάγετε κενές στήλες με κωδικό VBA

Εισαγάγετε γρήγορα κενές στήλες με το Kutools για Excel


βέλος μπλε δεξιά φούσκα Εισαγάγετε κενές στήλες με κωδικό VBA

Δείτε το παρακάτω στιγμιότυπο οθόνης, μετά από κάθε στήλη, θέλω να εισαγάγω μια κενή στήλη για να εγγράψω άλλες πληροφορίες, μπορώ να χρησιμοποιήσω έναν σύντομο κώδικα VBA για να ολοκληρώσω αυτήν την εργασία.

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

2. κλικ Εργολάβος > Visual Basic, Ένα νέο Microsoft Visual Basic για εφαρμογές θα εμφανιστεί το παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι εισαγάγετε τον ακόλουθο κώδικα στην Ενότητα:

Υποπροσθέστε_κατηγορία_εξαγωγή_άλλη ()
Για colx = 2 έως 30 Βήμα 2
Στήλες (colx). Εισαγωγή Shift: = xlToRight
Επόμενο
Sub End

3. Στη συνέχεια κάντε κλικ στο κουμπί  doc-multiply-υπολογισμός-3 κουμπί για να εκτελέσετε τον κωδικό. Και εναλλακτικές κενές στήλες έχουν εισαχθεί στις υπάρχουσες στήλες.

Σημείωση: Αυτό το VBA μπορεί να εισαγάγει μόνο μία κενή στήλη μεταξύ κάθε πρώτης στήλης.

Εάν θέλετε να εισαγάγετε μια κενή στήλη με δύο διαστήματα, ο παραπάνω κώδικας δεν θα λειτουργήσει. Και πώς θα μπορούσατε να εισαγάγετε γρήγορα τις κενές στήλες με καθορισμένα διαστήματα;


βέλος μπλε δεξιά φούσκα Εισαγάγετε γρήγορα κενές στήλες με το Kutools για Excel

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Παρ'το τώρα.

Με τη βοήθεια του Kutools για Excel, μπορείτε να λύσετε εύκολα αυτό το πρόβλημα. Κάντε τα εξής:

1. Επισημάνετε το εύρος που θέλετε να εισαγάγετε κενές στήλες.

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

doc-insert-blank-στήλες2

3. Και ένα Εισαγωγή κενών γραμμών / στηλών θα εμφανιστεί το πλαίσιο διαλόγου. Κάντε κλικ Κενές στήλες επιλογή από Εισαγωγή τύπου. Και εισάγετε 2 in Διάστημα, είσοδος 1 in Στήλη. Δείτε το στιγμιότυπο οθόνης:

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

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

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

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

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

Περιγραφή


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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
how to copy coloumns from sl no 1 to 10 and paste to merged rows at a time from sl no 1 to 10 copy and paste in rows ab merge cd merge
This comment was minimized by the moderator on the site
Sadly this Kutools does not work on sheets where multiple tables are used above each other. It would be great if you could update the tool to enable this annoying limitation of Excel. I want to add a new column in the middle of ALL my tables within the document but it doesn't seem to be possible.
This comment was minimized by the moderator on the site
Is there a way to make the height of the blank row different from the height of the alternate row?
This comment was minimized by the moderator on the site
After running the macro You can also insert another column by putting 3 after Step
This comment was minimized by the moderator on the site
Can you please tell me the codes for multiple insertions and deletion of columns ?
This comment was minimized by the moderator on the site
This is related to the VB code modification in the excel where macro is there. Instead of doing change in code can i do it directly in the excel that is adding additional column details in excel between two columns
This comment was minimized by the moderator on the site
This is awesome! it works. great! thanks Asif
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations