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

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

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

 

Επαναλάβετε τις τιμές κελιών X φορές με τη φόρμουλα και τη βοηθητική στήλη

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

1. Εισαγάγετε μια στήλη στα αριστερά της στήλης A και πληκτρολογήστε 1 στο κελί A2, δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, βάλτε αυτόν τον τύπο = A2 + C2 στο A3 και σύρετε τη λαβή πλήρωσης στο κελί A6, δείτε το στιγμιότυπο οθόνης:

3. Και, στη συνέχεια, εισαγάγετε 1 στο κελί D2 και συμπληρώστε τον αριθμό σύροντας την Αυτόματη Συμπλήρωση στο 12 που είναι ο συνολικός αριθμός των φορών στη στήλη Γ

4. Στη συνέχεια, εισαγάγετε αυτόν τον τύπο = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) στο κελί E2 και αντιγράψτε προς τα κάτω, θα λάβετε το ακόλουθο αποτέλεσμα:

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

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

Κανονικά, δεν υπάρχει καλή μέθοδος αντιγραφής και εισαγωγής σειρών πολλές φορές, εκτός από την αντιμετώπιση χειροκίνητης αντιγραφής και εισαγωγής. Αλλά με Kutools για Excel's Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού δυνατότητα, μπορείτε να λύσετε αυτό το πρόβλημα με ευκολία. Κάντε κλικ για λήψη του Kutools για Excel!

Kutools για Excel: με περισσότερα από 300 εύχρηστα πρόσθετα του Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 60 ημέρες. Λήψη και δωρεάν δοκιμή τώρα!


Επαναλάβετε τις τιμές κελιών X φορές με τον κωδικό VBA

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

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

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

Κωδικός VBA: Επαναλάβετε τις τιμές κελιών X φορές

Sub CopyData()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
For Each Rng In InputRng.Rows
    xValue = Rng.Range("A1").Value
    xNum = Rng.Range("B1").Value
    OutRng.Resize(xNum, 1).Value = xValue
    Set OutRng = OutRng.Offset(xNum, 0)
Next
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής που θα σας υπενθυμίζει να επιλέξετε το εύρος που περιέχει τις τιμές και τις επαναλαμβανόμενες φορές, δείτε το στιγμιότυπο οθόνης:

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

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


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

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

Συμβουλές:Για να το εφαρμόσετε Διπλότυπες σειρές / στήλες με βάση την τιμή κελιού χαρακτηριστικό, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

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

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

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

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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (45)
Βαθμολογήθηκε το 5 από το 5 · αξιολογήσεις 1
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ για αυτό, πολύ εύκολο να το κάνετε και να το κατανοήσετε. Κάποτε το έκανα χειροκίνητα με 2600 κελιά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να θυμάται η μακροεντολή τον προορισμό εισόδου και εξόδου, ώστε την επόμενη φορά που θα εκτελεστεί η μακροεντολή να μην χρειάζεται να την επιλέξετε ξανά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός VBA σπάει όταν υπάρχει μια τιμή 0 στη στήλη "αριθμός φορών". Προσαρμόστε τον βρόχο For Every ως εξής: Για κάθε Rng InputRng. Γραμμές xValue = Rng.Range("A1").Τιμή xNum = Rng.Range("B1").Τιμή εάν xNum > 0 Στη συνέχεια OutRng.Αλλαγή μεγέθους(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ φίλε!! Εξοικονομήθηκε πολύς χρόνος. :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποίησα την πρώτη προσέγγιση, λειτούργησε άψογα, Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ φίλε ..!! Αυτό λειτουργεί και εξοικονόμησε τον άφθονο χρόνο μου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ!! Μου έσωσε τόνους χρόνου. Έξυπνη χρήση του vlookup!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όπως και ο #John Said, υπάρχει τρόπος να έχετε ένα καθορισμένο εύρος ώστε να μην χρειάζεται να το επιλέξετε. Προσπαθώ επίσης να επικολλήσω κάθε μεμονωμένη τιμή στη δική της στήλη. Έχω αλλάξει τη γραμμή Set OutRng=OutRng.offset(xNum,0) σε Set OutRng=OutRng.offset(xNum,1) σε μια προσπάθεια να τη μετατρέψω σε στήλες Φαίνεται ότι λαμβάνω ένα σφάλμα στη γραμμή OutRng.Resize(xNum ,1).value=xValue ακόμα κι αν αντιγράψω και επικολλήσω τον κώδικα από αυτόν τον ιστότοπο. Οποιαδήποτε βοήθεια θα εκτιμηθεί ιδιαίτερα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ!!!! Το VB Macro λειτούργησε για μένα και έσωσε τον χρόνο μου 1 εβδομάδας.... Ευχαριστώ και πάλι..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Ο προτεινόμενος κώδικας VBA στο άρθρο θα λειτουργήσει εάν τα κελιά με τον αριθμό των φορών δεν είναι δίπλα στα κελιά με την τιμή; Εάν όχι, υπάρχει τρόπος να τροποποιήσετε το VBA ώστε να λειτουργήσει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σε ευχαριστώ πάρα πολύ. :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, έχω ένα ερώτημα: Βασικά δεδομένα: Χώρα Πελάτη Συνολική έξοδος: Πελάτης1 Πελάτης2 Πελάτης3 (εάν υπάρχει) Χώρα1 Χώρα2 κ.ο.κ...(εάν υπάρχει) Συνολικά1 Συνολικά2 κ.ο.κ...(εάν υπάρχει) Παρακαλούμε οποιοσδήποτε μπορεί λύστε αυτό ενώ χρησιμοποιείτε τον τύπο στο excel ASAP
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φοβερός! Πολλά ευχαριστώ!!!!!!!!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξοικονομούνται ακόμη έργα το 2017! Ευχαριστώ πολύ για αυτό! :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ πολύ φίλε, έκανες εξαιρετική δουλειά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να αλλάξετε τον κωδικό, ώστε να υπάρχουν 2 στήλες με δεδομένα και 1 στήλη με τον αριθμό των επαναλήψεων. π.χ. A1 = x B2 = y C3 = 2 η μακροεντολή θα επαναλάμβανε στη συνέχεια το A1 δύο φορές και το b2 δύο φορές στα κελιά προς τα δεξιά Οποιαδήποτε βοήθεια εκτιμάται. Ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν πολύ χρήσιμο, ήταν χρήσιμο για τη δημιουργία ενός υπολογιστικού φύλλου για την εργασία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा था
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το VBA ή ο τύπος. Κανένας από τους δύο δεν λειτουργεί για μένα. Δίνει "σφάλμα ορισμού εφαρμογής ή ορισμού αντικειμένου" Σφάλμα 1004. Μπορεί κάποιος να βοηθήσει;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός VBA δεν λειτουργεί εάν δεν έχετε Kutools. Μου βγάζει το σφάλμα "η μεταβλητή δεν έχει οριστεί"
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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