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

Πώς να αντιγράψετε και να εισαγάγετε τη σειρά πολλές φορές ή να αντιγράψετε τη σειρά x φορές στο Excel;

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


Αντιγράψτε και εισαγάγετε μια συγκεκριμένη σειρά πολλές φορές με τον κώδικα 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 και δωρεάν δοκιμή τώρα!


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (32)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Awesome Macro - Μου έσωσε τόσο πολύ χρόνο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πολύ ωραίο macro φίλε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να δημιουργήσω διπλές σειρές τυχαία,

για πχ. δημιουργούν τυχαίες διπλές σειρές μεταξύ 20 και 80.


τι θα ενημερωθεί κώδικας για τα ακόλουθα


Sub insertrows()
'Ενημέρωση Extendoffice 2016616
Dim I As Long
Dim xCount ως ακέραιος
Αριθμός Lable:
xCount = Application.InputBox("Αριθμός σειρών", "Kutools για Excel", , , , , , 1)
Αν xCount < 1 Τότε
MsgBox "ο αριθμός των γραμμών που εισήχθησαν είναι σφάλμα, παρακαλώ εισάγετε ξανά", vbInformation, "Kutools for Excel"
Μετάβαση στο LableNumber
End If
Για I = Εύρος ("A" & Rows.CountLarge).End(xlUp).Σειρά έως 1 Βήμα -1
Γραμμές(I).Αντιγραφή
Γραμμές(I).Αλλαγή μεγέθους(xCount).Εισαγωγή
Επόμενο
Application.CutCopyMode = Λάθος
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να αντιγράψω σειρές με βάση μια παράμετρο. Για παράδειγμα, έχω μια στήλη με το όνομα χρόνος διάρκειας συνάντησης. Εάν αυτή η στήλη είναι μεγαλύτερη από 1, θέλω να αντιγράψω σειρές αναγνωριστικού σύσκεψης με βάση αυτόν τον αριθμό. Εάν η διάρκεια της σύσκεψης είναι 2 ώρες, τότε αντιγράψτε το ID της συνάντησης δύο φορές. Εάν η συνάντηση είναι 3 ώρες, τότε επαναλάβετε τρεις φορές.
Οι αυξήσεις μισής ώρας μπορούν να στρογγυλοποιηθούν στην ώρα.

MeetingID Ώρα έναρξης Ώρα λήξης Διάρκεια συνάντησης
43117 9:00 π.μ. 11:00 π.μ. 02:00
43580 9:30 π.μ. 11:00 π.μ. 01:30
42699 10:00 π.μ. 11:30 π.μ. 01:30
12345 01:00 2:00 01:00
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εχω το ίδιο πρόβλημα. Έχετε βρει λύση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας παιδιά,
Ίσως ο ακόλουθος κώδικας VBA μπορεί να σας κάνει τη χάρη, εφαρμόστε τον:
Sub insertrows()
Dim I As Long
Dim xRg ως εύρος
Dim xHour, xMin As Long
On Error Συνέχιση Επόμενη
Application.ScreenUpdating = False
Για I = Εύρος ("D" & Rows.CountLarge).End(xlUp).Σειρά έως 1 Βήμα -1
xώρα = 0
Ορισμός xRg = Εύρος ("D" & I)
xHour = Hour(xRg.Value) + 1
xMin = Minute(xRg.Value)
Αν xMin < 30 Τότε xHour = xHour - 1
Γραμμές(I).Αντιγραφή
Γραμμές(I).Αλλαγή μεγέθους(xHour).Εισαγωγή
Επόμενο
Application.ScreenUpdating = True
Application.CutCopyMode = Λάθος
Sub End

Παρακαλώ δοκιμάστε το. Ελπίζω ότι μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα αυτές τις μακροεντολές στο παρελθόν και λειτούργησε πάντα μέχρι πρόσφατα. Γνωρίζετε γιατί θα αντιγράψει μόνο την επάνω σειρά ακόμα και όταν χρησιμοποιούνται οι μακροεντολές πολλαπλών σειρών; Έχω αφαιρέσει όλα τα φίλτρα/παγωμένα τζάμια.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, πώς μπορώ να αλλάξω τον κώδικα ώστε να περιλαμβάνει τα ακόλουθα

1. αντίγραφο με βάση τον αριθμό των ημερών
2. αλλαγή της στήλης EOM από το τέλος του μήνα σε ημερήσια ημερομηνία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πραγματικά για την υποστήριξή σας!!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λατρεύω τον κώδικα! πώς μπορώ να ρυθμίσω το εύρος έναρξης ώστε να παραλείπεται η πρώτη σειρά (Κεφαλίδες στηλών) και να ξεκινά από τη σειρά 2;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Devin,
Για να παραλείψετε την πρώτη σειρά κεφαλίδας, εφαρμόστε τον ακόλουθο κώδικα VBA:

Sub insertrows()
Dim I As Long
Dim xCount ως ακέραιος
Αριθμός Lable:
xCount = Application.InputBox("Αριθμός σειρών", "Kutools για Excel", , , , , , 1)
Αν xCount < 1 Τότε
MsgBox "ο αριθμός των γραμμών που εισήχθησαν είναι σφάλμα, παρακαλώ εισάγετε ξανά", vbInformation, "Kutools for Excel"
Μετάβαση στο LableNumber
End If
Για I = Εύρος ("A" & Rows.CountLarge).End(xlUp).Σειρά έως 2 Βήμα -1
Γραμμές(I).Αντιγραφή
Γραμμές(I).Αλλαγή μεγέθους(xCount).Εισαγωγή
Επόμενο
Application.CutCopyMode = Λάθος
Sub End

Δοκιμάστε το, ελπίζω να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, χρειάζομαι βοήθεια, έτσι φαίνεται ο πίνακας μου, για παράδειγμα, όταν προσθέτω 2 σειρές στο τέλος του 1ου πίνακα, θέλω το vba να με βοηθήσει να κάνω το ίδιο πράγμα για τον παρακάτω πίνακα (προσθέστε 2 σειρές στο τέλος του τραπεζιού). Έτσι, η δουλειά μου θα είναι, χρειάζεται μόνο να προσθέσω σειρές στον 1ο πίνακα, ο πίνακας που ακολουθεί όλα θα δημιουργούν σειρές αυτόματα με βάση τους αριθμούς των σειρών στον 1ο πίνακα. είναι η κωδικοποίηση που χρησιμοποίησα τώρα για να προσθέσω σειρά για τον 1ο πίνακα. Ελπίζω ότι κάποιος μπορεί να λύσει αυτό το ζήτημα για μένα, thx.Sub InsertNumRows()

ActiveCell.EntireRow.Copy

Dim Rng όσο καιρό

Application.DisplayAlerts = False
On Error Συνέχιση Επόμενη
Rng = InputBox ("Εισαγάγετε τον αριθμό των σειρών που απαιτείται.")
Στο σφάλμα GoTo 0
Application.DisplayAlerts = True

Αν Rng = 0 Τότε
MsgBox "Δεν προσδιορίσατε εύρος!"
Έξοδος Sub

Αλλού
Εύρος (ActiveCell.Offset(1, 0), ActiveCell.Offset(Rng, 0)).Επιλέξτε
Selection.EntireRow.Insert Shift:=xlDown
End If

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το λατρεύω! Λειτουργεί κάθε φορά! Σας ευχαριστώ πάρα πολύ για αυτό :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς μπορώ να το κάνω αυτό για στήλες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς μπορώ να το κάνω αυτό για στήλες;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να εκτελέσετε την ίδια ενέργεια με επιλεγμένα κελιά χρησιμοποιώντας VB,


Πρέπει να επαναλάβω μερικά επιλεγμένα κελιά (γραμμές και στήλες) x όχι φορές στο ίδιο φύλλο και με την ίδια σειρά όπως:

line1
line2
line3

line1
line2
line3
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια, αυτό λειτούργησε τέλεια, μόνο που χρειάζομαι δύο σειρές να αντιγραφούν N πολλές φορές. Μπορείτε, παρακαλώ, να προσαρμόσετε τον κωδικό ώστε όταν επιλέγω δύο σειρές, να αντιγράφει αυτές τις δύο σειρές N φορές προς τα κάτω; ευχαριστώ για τη βοήθειά σου
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Sal,
Εάν χρειάζεται να αντιγράψετε μόνο δύο σειρές προς τα κάτω κατά πολλές φορές, πρέπει απλώς να χρησιμοποιήσετε τον κωδικό VBA 1 σε αυτό το άρθρο, η εφαρμογή του κώδικα δύο φορές θα λύσει το πρόβλημά σας. Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντιγράψτε και εισαγάγετε κάθε σειρά πολλές φορές με κώδικα VBA

Στον κώδικα VBA πώς μπορώ να επιλέξω την αρχική σειρά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χωρίς λειτουργία με τα Windows 2019, χρησιμοποιήστε τη λειτουργία και την απλή χρήση χωρίς να έχετε απόλυτη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια σε όλους.. Σας ευχαριστώ εκ των προτέρων για τη βοήθεια!!

Ο κώδικας VBA για την αντιγραφή μιας συγκεκριμένης σειράς πολλές φορές λειτουργεί τέλεια μέχρι να χρησιμοποιήσετε ένα φίλτρο. Αναρωτιέμαι αν μπορεί κάποιος να με βοηθήσει να λύσω αυτό το πρόβλημα. Χρειάζομαι έναν κωδικό που να λειτουργεί ακόμα κι αν έχετε φιλτράρει κάποιες τιμές. Χρησιμοποιώ μεγάλο όγκο δεδομένων που ταξινομούνται κατά τοποθεσίες. Ο κώδικας λειτουργεί εν μέρει, επικολλά τον αριθμό της επιθυμίας σειρών, αλλά χωρίς δεδομένα ή μορφή όταν έχω εφαρμόσει ένα φίλτρο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, είναι δυνατόν να χρησιμοποιηθούν διαφορετικά μεγέθη(τιμές) για κάθε σειρά; Προσπαθώ να χρησιμοποιήσω το vector, αλλά δεν λειτουργεί.
Για παράδειγμα :
Γραμμές(I).Αλλαγή μεγέθους(xCount(y) ).Εισαγωγή

Όπου οι τιμές που είναι αποθηκευμένες στο xCount(y) διαβάζονται από έναν πίνακα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Γκας,
Ίσως το παρακάτω άρθρο μπορεί να σας βοηθήσει, ελέγξτε το:
https://www.extendoffice.com/documents/excel/4054-excel-duplicate-rows-based-on-cell-value.html
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Για τον δεύτερο κωδικό VBA (κωδικός VBA: Αντιγραφή κάθε σειράς πολλές φορές) Συνεχίζω να λαμβάνω ως σφάλμα χρόνου εκτέλεσης: 1004
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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