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

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 typ 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 aplikovat 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno
Komentáře (45)
Hodnocení 5 z 5 · 1 hodnocení:
Tento komentář byl moderátorem webu minimalizován
Děkuji za to, je to velmi snadné a pochopitelné. Kdysi jsem to dělal ručně s 2600 buňkami.
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak si makro zapamatovat vstupní a výstupní cíl, takže při příštím spuštění makra nemusíte znovu vybírat?
Tento komentář byl moderátorem webu minimalizován
Kód VBA se přeruší, když je ve sloupci "počet opakování" hodnota 0. Upravte smyčku For Each následovně: For Every Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value If xNum > 0 Then OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) End If Next
Tento komentář byl moderátorem webu minimalizován
Díky chlape!! Ušetřil spoustu času. :-)
Tento komentář byl moderátorem webu minimalizován
Použil jsem první přístup, fungovalo to bezchybně, děkuji.
Tento komentář byl moderátorem webu minimalizován
Díky chlape ..!! Funguje to a ušetřilo mi to spoustu času.
Tento komentář byl moderátorem webu minimalizován
Dík!! Ušetřil mi spoustu času. Chytré použití vlookupu!
Tento komentář byl moderátorem webu minimalizován
Stejně jako #John Said, existuje způsob, jak nastavit rozsah, abyste nemuseli vybírat. Snažím se také vložit každou jednotlivou hodnotu do vlastního sloupce. Změnil jsem řádek Set OutRng=OutRng.offset(xNum,0) na Set OutRng=OutRng.offset(xNum,1) ve snaze udělat jej do sloupců Zdá se, že dostávám chybu na řádku OutRng.Resize(xNum ,1).value=xValue, i když zkopíruji a vložím kód z tohoto webu. Jakákoli pomoc by byla velmi oceněna.
Tento komentář byl moderátorem webu minimalizován
Díky moc!!!! VB Macro fungovalo pro mě a ušetřilo můj 1 týdenní čas.... Ještě jednou díky..
Tento komentář byl moderátorem webu minimalizován
Ahoj, bude navrhovaný kód VBA v článku fungovat, pokud buňky s počtem opakování nebudou vedle buněk s hodnotou? Pokud ne, existuje způsob, jak upravit VBA, aby fungoval?
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát. :)
Tento komentář byl moderátorem webu minimalizován
Ahoj, mám dotaz: Základní údaje: Země klienta Celkový výstup: Klient1 Klient2 Klient3 (pokud existuje) Země1 Země2 a tak dále...(pokud existuje) Celkově1 Celkově2 a tak dále...(pokud existuje) Laskavě může kdokoli vyřešte to pomocí vzorce v Excelu ASAP
Tento komentář byl moderátorem webu minimalizován
Úžasný! Mnohokrát děkuji!!!!!!!!
Tento komentář byl moderátorem webu minimalizován
Stále šetříte projekty v roce 2017! Díky moc za to! :-)
Tento komentář byl moderátorem webu minimalizován
Díky moc kámo, udělal jsi skvělou práci.
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak změnit kód tak, aby byly 2 sloupce s daty a 1 sloupec s množstvím opakování. tj. A1 = x B2 = y C3 = 2 makro by pak opakovalo A1 dvakrát a b2 dvakrát v buňkách napravo. Dík.
Tento komentář byl moderátorem webu minimalizován
To bylo velmi užitečné, přišlo vhod pro vytvoření tabulky pro práci
Tento komentář byl moderátorem webu minimalizován
मैं बहुत दिनों से यह ऑप्शन ढूढ रहा তव ा धा ௦था ்
Tento komentář byl moderátorem webu minimalizován
VBA nebo vzorec. Ani jeden z nich pro mě nefunguje. Hlásí chybu „definovaná aplikace nebo chyba definovaná objektem“ Chyba 1004. Může někdo pomoci?
Tento komentář byl moderátorem webu minimalizován
Kód VBA nefunguje, pokud nemáte Kutools. Hlásí mi to chybu „proměnná není definována“
Zatím zde nejsou žádné komentáře
Načíst další
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL