Πώς να αντιγράψετε και να εισαγάγετε τη σειρά πολλές φορές ή να αντιγράψετε τη σειρά x φορές στο Excel;
Στην καθημερινή σας εργασία, έχετε προσπαθήσει ποτέ να αντιγράψετε μια σειρά ή κάθε σειρά και, στη συνέχεια, να εισαγάγετε πολλές φορές κάτω από την τρέχουσα σειρά δεδομένων σε ένα φύλλο εργασίας; Για παράδειγμα, έχω μια σειρά κελιών, τώρα, θέλω να αντιγράψω κάθε σειρά και να τα επικολλήσω 3 φορές στην επόμενη σειρά, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;
- Αντιγράψτε και εισαγάγετε μια συγκεκριμένη σειρά πολλές φορές με τον κώδικα VBA
- Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με τον κώδικα VBA
- Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με βάση έναν συγκεκριμένο αριθμό με μια καταπληκτική δυνατότητα
Αντιγράψτε και εισαγάγετε μια συγκεκριμένη σειρά πολλές φορές με τον κώδικα VBA
Εάν θέλετε να αντιγράψετε μόνο μία συγκεκριμένη σειρά x φορές, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει, κάντε το εξής:
1. Καθορίστε μια σειρά που θέλετε να αντιγράψετε και να εισαγάγετε πολλές φορές και, στη συνέχεια, κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Αντιγράψτε μια συγκεκριμένη σειρά πολλές φορές:
Sub test()
'Updateby Extendoffice
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
ActiveCell.EntireRow.Copy
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub
3. Αφού επικολλήσετε τον κωδικό, πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει να εισαγάγετε τον αριθμό των φορών που θέλετε να αντιγράψετε, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και τρεις νέες αντιγραμμένες σειρές έχουν εισαχθεί κάτω από την επιλεγμένη σειρά, δείτε το στιγμιότυπο οθόνης:
Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με βάση έναν συγκεκριμένο αριθμό εύκολα
Κανονικά, δεν υπάρχει καλή μέθοδος αντιγραφής και εισαγωγής σειρών πολλές φορές, εκτός από την αντιμετώπιση χειροκίνητης αντιγραφής και εισαγωγής. Αλλά με Kutools για Excel's Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού δυνατότητα, μπορείτε να λύσετε αυτό το πρόβλημα με ευκολία. Κάντε κλικ για λήψη του Kutools για Excel!
Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!
Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με τον κώδικα VBA
Για να αντιγράψετε κάθε σειρά πολλές φορές σε ένα εύρος, μπορείτε να εφαρμόσετε τον ακόλουθο κώδικα VBA, κάντε τα παρακάτω:
1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Αντιγράψτε κάθε σειρά πολλές φορές:
Sub insertrows()
'Updateby Extendoffice
Dim I As Long
Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
MsgBox "the entered number of rows is error ,please enter again", vbInformation, "Kutools for Excel"
GoTo LableNumber
End If
For I = Range("A" & Rows.CountLarge).End(xlUp).Row To 2 Step -1
Rows(I).Copy
Rows(I).Resize(xCount).Insert
Next
Application.CutCopyMode = False
End Sub
3. Και στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει να εισαγάγετε τον αριθμό των φορών που θέλετε να αντιγράψετε για κάθε εγγραφή, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί OKκαι κάθε σειρά έχει αντιγραφεί και εισαχθεί 3 φορές κάτω από τις ενεργές, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω κώδικα, το A δηλώνει ότι το εύρος δεδομένων ξεκινά στη στήλη Α, εάν τα δεδομένα σας ξεκινούν από τη στήλη K, Παρακαλώ αλλάξτε A προς την K ως ανάγκη σας.
Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με βάση έναν συγκεκριμένο αριθμό με μια καταπληκτική δυνατότητα
Ίσως, δεν είστε εξοικειωμένοι με τον κώδικα VBA, ή ανησυχείτε ότι ο κώδικας θα καταστρέψει τα δεδομένα σας. Εδώ, θα παρουσιάσω ένα χρήσιμο χαρακτηριστικό, Kutools για Excel's Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού, με αυτό το βοηθητικό πρόγραμμα, μπορείτε να αντιγράψετε και να εισαγάγετε γρήγορα τις σειρές με βάση τον αριθμό που καθορίσατε.
Συμβουλές:Για να το εφαρμόσετε Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.
Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:
1. Εισαγάγετε τους αριθμούς επανάληψης που θέλετε να αντιγράψετε σειρές σε μια λίστα κελιών δίπλα στα δεδομένα σας, δείτε το στιγμιότυπο οθόνης:
2. Κλίκ Kutools > Κύριο θέμα > Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού, δείτε το στιγμιότυπο οθόνης:
3. Στην Αντιγράψτε και εισαγάγετε σειρές και στήλες , επιλέξτε Αντιγραφή και εισαγωγή γραμμών επιλογή του Χαρακτηριστικά ενότητα και, στη συνέχεια, επιλέξτε το εύρος δεδομένων που θέλετε να αντιγράψετε και, στη συνέχεια, καθορίστε το χρόνο επανάληψης για να αντιγράψετε τις σειρές, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο κουμπί Ok or Εφαρμογή κουμπί, θα λάβετε το ακόλουθο αποτέλεσμα όπως χρειάζεστε:
Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!