Přejít k hlavnímu obsahu

Jak opakovat hodnotu buňky xkrát v aplikaci Excel?

Například máte seznam hodnot ve sloupci A a chcete opakovat konkrétní hodnoty hodnot na základě počtu krát ve sloupci B, jak je zobrazeno na levém snímku obrazovky, jak byste toho mohli dosáhnout v aplikaci Excel?

 

Hodnoty buněk opakujte Xkrát se vzorcem a pomocným sloupcem

Chcete-li hodnoty buněk opakovat Xkrát, můžete vložit několik pomocných sloupců a poté použít nějaký jednoduchý vzorec, proveďte následující kroky:

1. Vložte sloupec nalevo od sloupce A a zadejte 1 do buňky A2, viz screenshot:

2. Pak dejte tento vzorec = A2 + C2 do A3 a přetáhněte úchyt výplně do buňky A6, viz screenshot:

3. A pak zadejte 1 do buňky D2 a vyplňte číslo přetažením automatického vyplňování na 12, což je celkový počet časů ve sloupci C, viz screenshot:

4. Poté zadejte tento vzorec = VLOOKUP (D2, $ A $ 1: $ B $ 6,2) do buňky E2 a zkopírujte dolů, získáte následující výsledek:

  • Poznámky:
  • 1. V tomto vzorci D2 označuje první buňku, která je naplněna číselnou řadou, a A1: B6 znamená rozsah prvního pomocného sloupce a původní hodnoty buněk, které musíte opakovat.
  • 2. Po získání opakovaných hodnot je můžete zkopírovat a vložit jako hodnoty na jakékoli jiné místo.

Snadno kopírujte a vkládejte řádky X na základě konkrétního počtu

Normálně neexistuje dobrá metoda pro vícekrát kopírování a vkládání řádků kromě vyjednávání s ručním kopírováním a vkládáním. Ale s Kutools pro Excel's Duplikujte řádky / sloupce na základě hodnoty buňky můžete tento problém snadno vyřešit. Klikněte a stáhněte si Kutools pro Excel!

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 60 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!


Opakujte hodnoty buněk Xkrát s kódem VBA

Pokud považujete první metodu za obtížně srozumitelnou, můžu vám zde také představit kód VBA, jak ji vyřešit.

1. Podržte ALT + F11 klíče a otevře se Okno Microsoft Visual Basic pro aplikace.

2, klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Opakujte hodnoty buněk Xkrát

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva k připomenutí, abyste vybrali rozsah, který obsahuje hodnoty a opakované časy, viz screenshot:

4, A klikněte na tlačítko OK, vyskočí další okno s výzvou, které vám umožní vybrat buňku pro vložení výsledku, viz screenshot:

5. Pak klikněte na tlačítko OK, a získáte výsledek, že vybrané hodnoty byly opakovány v zadaných časech, jak potřebujete.


Kopírujte a vkládejte hodnoty buněk Xkrát s úžasnou funkcí

Někdy možná budete muset zkopírovat a vložit hodnoty buňky xkrát na základě konkrétního počtu, Kutools pro Excel's Duplikujte řádky / sloupce na základě hodnoty buňky vám pomůže rychle zkopírovat a vložit řádky na základě zadaného počtu.

Tip:Použít toto Duplikujte řádky / sloupce na základě hodnoty buňky funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools > Vložit > Duplikujte řádky / sloupce na základě hodnoty buňky, viz screenshot:

2. V Zkopírujte a vložte řádky a sloupce dialogové okno vyberte Zkopírujte a vložte řádky možnost v Styl sekce, poté vyberte rozsah dat, který chcete duplikovat, a poté určete čas opakování pro kopírování a vložení řádků, viz screenshot:

4. Potom klepněte na tlačítko Ok or Podat žádost tlačítko, získáte podle potřeby následující výsledek:

Klikněte a stáhněte si Kutools pro Excel a bezplatnou zkušební verzi hned teď!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (46)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
It's very helpful.Thanks a ton.
This comment was minimized by the moderator on the site
MERCI !!!!!!!!
This comment was minimized by the moderator on the site
Really fantastic thank you
This comment was minimized by the moderator on the site
Gracias por este consejo. Me funcionó genial para una base de 4061 registros que se convirtieron en 146,196 filas. Saludos.
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bonjour, je suis bloquée en VBA. J'ai besoin de faire la chose suivante : Répéter la ligne 2  qui est dans la feuille de calcul BDD  dans la feuille de calcul BDD 2 A partir de A2Autant de fois que c'est noté dans J2 (non fixé)Ensuite passer à la ligne suivante jusqu'à (ou tant que ???) la cellule en J soit vide
Comment j'écris ça ? 
Merci pour votre aide !
This comment was minimized by the moderator on the site
merhaba anlatım uygulama çok güzel fakat benim sorum,
bu uygulama sadece A sütun için uygulanmış örneğin E sütunda bulunan değer kadar A,B,C,D sütunlarını da aynı anda çoğaltmak istersem nasıl bir yol izlemeliyim. şimdiden teşekkürler
This comment was minimized by the moderator on the site
the vlookup one was a bit wonky but the macro worked like a charm! Thank you!
This comment was minimized by the moderator on the site
Great!Thanks a lot
This comment was minimized by the moderator on the site
We can find duplicates value without kutools....
Through countif formula....=COUNTIF($E$7:$E$23,H7:H17), E7 COLUMN RANGE AND H COLUMN CRITERIA...


0091 9004260229
This comment was minimized by the moderator on the site
thank u! the vlookup function worked!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations