Πώς να αντιγράψετε σειρές με βάση την τιμή κελιού σε μια στήλη;
Για παράδειγμα, έχω ένα εύρος δεδομένων που περιέχει μια λίστα αριθμών στη στήλη Δ και τώρα θέλω να επαναλάβω πολλές φορές ολόκληρες τις σειρές με βάση τις αριθμητικές τιμές στη στήλη Δ για να λάβω το ακόλουθο αποτέλεσμα. Πώς μπορώ να αντιγράψω τις σειρές πολλές φορές με βάση τις τιμές των κελιών στο Excel;
Διπλότυπες σειρές πολλές φορές με βάση τις τιμές κελιού με τον κώδικα VBA
Διπλότυπες σειρές πολλές φορές με βάση τις τιμές κελιού με τον κώδικα VBA
Για να αντιγράψετε και να αντιγράψετε ολόκληρες τις σειρές πολλές φορές με βάση τις τιμές των κελιών, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει, κάντε το εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διπλότυπες σειρές πολλές φορές με βάση την τιμή κελιού:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα, ολόκληρες οι σειρές έχουν αναπαραχθεί πολλές φορές με βάση την τιμή κελιού στη στήλη Δ όπως χρειάζεστε.
Αντιγράψτε και εισαγάγετε σειρές με βάση έναν καθορισμένο αριθμό φορών με ένα εύχρηστο εργαλείο - Kutools για Excel
Εάν δεν είστε εξοικειωμένοι με τον κώδικα VBA και δεν μπορείτε να αλλάξετε σωστά τις παραμέτρους στον κώδικα μόνοι σας. Σε αυτή την περίπτωση, το Kutools για Excel's Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού Το χαρακτηριστικό μπορεί να σας βοηθήσει να αντιγράψετε και να εισαγάγετε σειρές πολλές φορές με βάση τις τιμές των κελιών με τρία μόνο κλικ.
- Πατήστε Kutools > Κύριο θέμα > Διπλότυπες σειρές/στήλες με βάση την τιμή κελιού για να ενεργοποιήσετε αυτήν τη δυνατότητα.
- Στη συνέχεια, επιλέξτε Αντιγραφή και εισαγωγή γραμμών επιλογή και καθορίστε τα κελιά του Εισαγωγή εύρους και Επαναλάβετε τους χρόνους ξεχωριστά στο παράθυρο διαλόγου.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!