Πώς να επαναλάβετε την τιμή κελιού x φορές στο 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 και αντιγράψτε προς τα κάτω, θα λάβετε το ακόλουθο αποτέλεσμα:

---

---

Επαναλάβετε τις τιμές κελιών 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, κάντε το ως εξής:

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

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

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

Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!