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

Jak opakovat řádky zadaný početkrát na základě jiného sloupce v aplikaci Excel?

Zkusili jste někdy opakovat řádek na základě jiné hodnoty sloupce, jak je ukázáno níže? V tomto článku představím metodu řešení této úlohy v Excelu.
doc opakujte řádky založené na sloupci 1

Opakujte řádky na základě jiné hodnoty sloupce s VBA

Opakujte řádky na základě jiné hodnoty sloupce pomocí Kutools pro Excel

Opakujte řádky s pevným časem od Kutools pro Excel


Opakujte řádky na základě jiné hodnoty sloupce s VBA

Tady mám kód, který může rychle opakovat řádky na základě hodnot posledního sloupce.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modul, poté zkopírujte níže uvedený kód a vložte jej do nového Modul skripty.

VBA: Opakujte řádky na základě jiné hodnoty sloupce

Sub CopyRow()
'UpdatebyExtendoffice20181011
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the number value", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
    MsgBox "Please select single column!"
    GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
    xRN = CInt(xCRg.Value)
    With Rows(xCRg.Row)
    .Copy
    .Resize(xRN).Insert
    End With
Next
Application.ScreenUpdating = True
End Sub

doc opakujte řádky založené na sloupci 2

3. lis F5 klávesa, objeví se dialogové okno, vyberte číselný seznam, podle kterého se budou řádky opakovat.
doc opakujte řádky založené na sloupci 3

4. Klepněte na OK, řádky se opakovaly na základě vybrané hodnoty sloupce.
doc opakujte řádky založené na sloupci 1


Opakujte řádky na základě jiné hodnoty sloupce pomocí Kutools pro Excel

Pokud nejste dobří v používání VBA, můžete to zkusit Kutools pro ExcelJe Duplikovat řádky/sloupce na základě hodnoty buňky funkce, která vyžaduje pouze dva kroky.

Kutools pro Excel, s více než
300
užitečné funkce, které vám usnadní práci. 

1. cvaknutí Kutools > Vložit > Duplikovat řádky/sloupce na základě hodnoty buňky.
doc opakovat řádky pevný čas 1

2. V rozbalovacím dialogovém okně zvolte Zkopírujte a vložte řádky možnost v typ části a poté vyberte rozsah, ve kterém chcete opakovat Vložit Range textového pole a vyberte sloupec, který určuje časy opakování Opakujte časy Textové pole. Klepněte na Ok.
doc opakovat řádky pevný čas 1

Poté se budou řádky opakovat podle vybraného sloupce.
doc opakovat řádky pevný čas 1


Opakujte řádky s pevným časem od Kutools pro Excel

Pokud chcete opakovat řádky s pevným časem, aniž byste vkládali řádky jeden po druhém, můžete zkusit použít Vložte prázdné řádky a sloupce a Vyplňte prázdné buňky nástroje Kutools pro Excel rychle zvládnout tuto práci.
doc opakovat řádky pevný čas 1

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte rozsah dat, který chcete opakovat, klikněte na Kutools > Vložit > Vložte prázdné řádky a sloupce. Pak v Vložte prázdné řádky a sloupce dialog, zkontrolujte Prázdné řádky vyberte možnost a zadejte 1 do Interval of textové pole a zadejte číslo, ve kterém chcete opakovat řádky Řádky Textové pole.
doc opakovat řádky pevný čas 2

2. cvaknutí Ok, byly pod každý řádek vloženy prázdné řádky.
doc opakovat řádky pevný čas 3

3. Ponechte vybraný rozsah a klepněte na Kutools > Vložit > Vyplňte prázdné buňky. V Vyplňte prázdné buňky dialog, zkontrolujte Na základě hodnot a Dolů možnosti.
doc opakovat řádky pevný čas 4

4. cvaknutí Ok. Nyní byly prázdné buňky vyplněny výše uvedenou hodnotou.
doc opakovat řádky pevný čas 5


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 (2)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, jak přesunout opakovaný výstup na stranu původních dat?
Tento komentář byl moderátorem webu minimalizován
Ahoj, yiyun zhu, můžete vytvořit kopii původních dat, poté použít výše uvedenou metodu ke zpracování kopie a zachovat původní data.
Zatím zde nejsou žádné komentáře
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