Hogyan lehet megismételni a cellák értékét x alkalommal az Excelben?

---

Ismételje meg a sejtértékeket X-szer a képlettel és a segítő oszloppal

A cellaértékek X-szeres megismételéséhez beszúrhat néhány segédoszlopot, majd alkalmazhat néhány egyszerű képletet, kérjük, tegye a következőket:

1. Helyezzen be egy oszlopot az A oszlop bal oldalán, és írja be az 1 cellát az A2 cellába, lásd a képernyőképet:

2. Akkor tegye ezt a képletet = A2 + C2 az A3-ba, és húzza a kitöltő fogantyút az A6 cellába, lásd a képernyőképet:

3. Ezután írjon be 1-et a D2 cellába, és töltse ki a számot úgy, hogy az automatikus kitöltést 12-re húzza, amely a C oszlopban szereplő számok száma, lásd a képernyőképet:

4. Ezután írja be ezt a képletet = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) az E2 cellába és másolja le, a következő eredményt kapja:

---

---

Ismételje meg a cellaértékeket X-szer VBA kóddal

Ha úgy gondolja, hogy az első módszer nehezen érthető, itt bemutathatom Önnek a VBA-kódot is annak megoldására.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Ismételje meg a cellaértékeket X-szer

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az értékeket és az ismételt időket tartalmazó tartományt, lásd a képernyőképet:

4. és kattintson OK, megjelenik egy újabb prompt doboz, amely lehetővé teszi, hogy kiválasszon egy cellát az eredmény feladásához, lásd a képernyőképet:

5. Ezután kattintson OK, és megkapja azt az eredményt, hogy a kiválasztott értékeket szükség szerint megismételtük meghatározott időkben.

---

Másolja és helyezze be a cellák értékét X-szer egy fantasztikus funkcióval

Előfordulhat, hogy x-szer kell másolnia és beillesztenie a cellaértékeket a megadott szám alapján, Kutools az Excel számára's Sorok / oszlopok duplikálása a cellaérték alapján segíthet a sorok gyors másolásában és beszúrásában a megadott szám alapján.

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools > betétlap > Sorok / oszlopok duplikálása a cellaérték alapján, lásd a képernyőképet:

2. Az Sorok és oszlopok másolása és beszúrása párbeszédpanelen válassza ki Sorok másolása és beszúrása lehetőség a típus szakaszban, majd válassza ki a másolni kívánt adattartományt, majd adja meg az ismétlési időt a sorok másolásához és beszúrásához, lásd a képernyőképet:

4. Ezután kattints a gombra Ok or alkalmaz gombra kattintva a következő eredményt kapja:

Kattintson a Kutools for Excel és az ingyenes próbaverzió letöltéséhez!