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

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

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

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

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να εισαγάγετε έναν συγκεκριμένο αριθμό σειρών μετά από κάθε ένατη σειρά στα υπάρχοντα δεδομένα. Κάντε τα εξής:

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

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

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

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount 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)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

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

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

5. Κάντε κλικ OK κουμπί, στο ακόλουθο αναδυόμενο πλαίσιο προτροπής, εισαγάγετε τον αριθμό των κενών σειρών που θέλετε να εισαγάγετε, δείτε το στιγμιότυπο οθόνης:

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

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

Μερικές φορές, ίσως χρειαστεί να εισαγάγετε τις κενές σειρές βάσει μιας λίστας τιμών κελιών, σε αυτήν την περίπτωση, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει, κάντε το εξής:

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

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

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

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

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

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

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

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

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

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

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

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

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

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

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

Για την αντιμετώπιση αυτής της εργασίας, θα σας παρουσιάσω έναν χρήσιμο κωδικό, ακολουθήστε τα παρακάτω βήματα:

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

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

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

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

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

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

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

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

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

1. Κλίκ Kutools > Κύριο θέμα > Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού, δείτε το στιγμιότυπο οθόνης:

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

4. Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, θα λάβετε το ακόλουθο αποτέλεσμα όπως χρειάζεστε:

Κατεβάστε και δωρεάν δοκιμή Kutools για Excel τώρα!

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

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

🤖	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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!

Διαβάστε περισσότερα ... ΔΩΡΕΑΝ Λήψη...