Note: The other languages of the website are Google-translated. Back to English

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

Κατά την καθημερινή σας χρήση του Excel, μπορεί να αντιμετωπίσετε μια κατάσταση που πρέπει προσθέστε περισσότερες στήλες μεταξύ των υπαρχουσών στηλών. Μπορείτε, φυσικά, να εισαγάγετε τις στήλες μία προς μία χρησιμοποιώντας τη συνάρτηση Εισαγωγή. Αλλά όταν αντιμετωπίζετε μεγάλα δεδομένα και χρειάζεται να εισαγάγετε τρεις στήλες μετά από κάθε δεύτερη ή ντη στήλη, η συνάρτηση Εισαγωγή προφανώς δεν είναι αποτελεσματική. Πώς μπορείτε λοιπόν να ολοκληρώσετε γρήγορα την εργασία; Σε αυτό το σεμινάριο, θα μιλήσουμε για δύο εύκολες μεθόδους επίλυσης του προβλήματος.

Εισαγάγετε συγκεκριμένο αριθμό κενών στηλών στην περιοχή δεδομένων σε σταθερά διαστήματα με κωδικό VBA

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


Εισαγάγετε συγκεκριμένο αριθμό κενών στηλών στην περιοχή δεδομένων σε σταθερά διαστήματα με κωδικό VBA

Μπορούμε να χρησιμοποιήσουμε τα παρακάτω Κωδικός VBA για να εισαγάγετε έναν συγκεκριμένο αριθμό κενών στηλών μετά από κάθε ν η στήλη. Παρακαλώ κάντε το εξής.

1. Πάτα το Alt + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

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

Κωδικός VBA: Εισαγάγετε συγκεκριμένο αριθμό στηλών στα δεδομένα σε σταθερά διαστήματα

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση αυτού του κώδικα. Εμφανίζεται ένα παράθυρο προτροπής για να σας υπενθυμίσει να επιλέξετε το φασμα ΔΕΔΟΜΕΝΩΝ στο οποίο θέλετε να εισαγάγετε κενές στήλες.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 1

4. Κάντε κλικ στο κουμπί OK κουμπί. Εμφανίζεται ένα άλλο παράθυρο προτροπής, εισάγετε τον αριθμό των διαστημάτων στηλών στο Εισαγάγετε το διάστημα στηλών κουτί.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 2

5. Συνεχίστε να κάνετε κλικ στο OK κουμπί. Εμφανίζεται το τρίτο πλαίσιο προτροπής, προσδιορίστε τον αριθμό των στηλών που θέλετε να εισαγάγετε σε κάθε διάστημα στο κουτί.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 3

6. Κάντε κλικ στο κουμπί OK για να πάρετε το αποτέλεσμα.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 4


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

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

Πριν από την εφαρμογή Kutools για Excel, κατεβάστε και εγκαταστήστε το πρώτα.

1. Επιλέξτε πρώτα την υπάρχουσα περιοχή δεδομένων. Στη συνέχεια κάντε κλικ Kutools > Κύριο θέμα > Εισαγωγή κενών γραμμών & στηλών.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 5

2. ο Εισαγωγή κενών γραμμών & στηλών εμφανίζεται το παράθυρο διαλόγου. Μπορείτε να δείτε το εύρος δεδομένων που επιλέξατε στο βήμα 1 να εμφανίζεται στο πλαίσιο Εύρος. Επιλέξτε το Κενές στήλες επιλογή του Εισαγωγή τύπου Ενότητα. Και διευκρινίστε τον αριθμό των διαστημάτων στηλών και στήλες που θέλετε να εισάγετε σε κάθε διάστημα. Εδώ εισάγω 1 και 3 ξεχωριστά.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 6

3. Κάντε κλικ στο κουμπί OK κουμπί για να ολοκληρώσετε τη ρύθμιση και να λάβετε το αποτέλεσμα.
Έγγραφο ένθετο-στήλες-κατά διαστήματα 7

Note: Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30 ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετε και, στη συνέχεια, μεταβείτε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Άλλες λειτουργίες (άρθρα)

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

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

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

Πώς να εισαγάγετε μια κενή γραμμή μετά από συγκεκριμένο κείμενο στο Excel;
Εάν θέλετε να εισαγάγετε κενές γραμμές μετά από ένα συγκεκριμένο κείμενο όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης, πώς να το αντιμετωπίσετε γρήγορα και εύκολα χωρίς να τα εισαγάγετε χειροκίνητα ένα προς ένα;


  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών και τήρηση δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές και άθροισμα / μέσος όρος... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Αγαπημένα και γρήγορη εισαγωγή τύπων, Σειρά, Διαγράμματα και Εικόνες; Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Ομαδοποίηση συγκεντρωτικού πίνακα κατά αριθμός εβδομάδας, ημέρα εβδομάδας και πολλά άλλα ... Εμφάνιση ξεκλειδωμένων, κλειδωμένων κελιών με διαφορετικά χρώματα. Επισημάνετε τα κελιά που έχουν τύπο / όνομα...
kte καρτέλα 201905
  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL