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

Jak vložit stejný text do každého druhého řádku v aplikaci Excel?

V tomto článku vám ukážeme, jak vložit stejný text do každého druhého řádku v aplikaci Excel. Prohlédněte si další podrobnosti.

Do každého řádku vložte stejný text s kódem VBA
Vložte stejný text do každého druhého řádku pomocí Kutools pro Excel


Do každého řádku vložte stejný text s kódem VBA

Předpokládejme, že chcete do každého řádku v určitém rozsahu vložit texty „Název“, „Data“ a „Skóre“, jak je uvedeno níže. Vyzkoušejte následující kód VBA.

1. V listu stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikaci okno.

2. cvaknutí Vložit > Modul. Viz snímek obrazovky:

3. Zkopírujte a vložte pod kód VBA do editoru kódu.

Kód VBA: vložte stejný text do každého řádku v aplikaci Excel

Sub inserttexteveryonerow()
	Dim Last As Integer
	Dim emptyRow As Integer
	Last = Range("A" & Rows.Count).End(xlUp).Row
	For emptyRow = Last To 2 Step - 1
		If Not Cells(emptyRow, 1).Value = "" Then
			Rows(emptyRow).Resize(1).Insert
			Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
		End If
	Next emptyRow
End Sub

Poznámky: Ve výše uvedeném kódu:

1. Vaše data by se měla spouštět od prvního řádku v listu.
2. Změňte texty „Název“, „Data“ a „Skóre“ na texty, které potřebujete.
3. Písmena A a C označují oblast buněk, do které chcete vložit konkrétní text.
4. zmáčkni F5 klíč ke spuštění kódu. A můžete vidět, že zadané texty jsou přidávány do každého řádku v listu.

Vložte stejný text do každého druhého řádku pomocí Kutools pro Excel

S výše uvedeným kódem stačí vložit text do každého řádku. Co kdybyste vložili text do každého řádku n v aplikaci Excel? V této části vám ukážeme Vložte řádky nadpisů užitečnost Kutools pro Excel. S tímto nástrojem již nebude problém vložit text do každého n řádku.

Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.

1. cvaknutí Kutools > Vložit > Vložte řádky nadpisů povolit tento nástroj.

2. V Vložte řádky nadpisů dialogové okno, musíte:

1). Vyberte rozsah textů, které chcete vložit do každého n řádku v Rozsah názvu krabice;
2). Vyberte rozsah, do kterého chcete vložit texty, do Vložit rozsah krabice;
3). V poli zadejte číslo řádku intervalu Intervalové řádky krabice. Pokud chcete vložit text do každého jednoho řádku, zadejte do pole 1 a pro každý řádek n zadejte do pole n;
4). Klikněte na ikonu OK .

Nyní je zadaný text vložen do každého n řádku ve vybraném rozsahu.

  Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní 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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (4)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Děkuji, kód byl přesně to, co jsem potřeboval. Jedna otázka, mám data, která chci opakovat každý druhý řádek, ale pouze na konkrétní řádky, pak začne nový řetězec textu, který chci opakovat. Jak změním kód, aby odrážel zastavení opakování na konkrétním řádku?
Tento komentář byl moderátorem webu minimalizován
POSTUPUJTE PODLE MÝCH POKYNŮ NA GOOGLE.COM
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát za tento kód VBA a další. Vyřešili mnoho mých problémů a pracovali s obrovským souborem dat!!
Tento komentář byl moderátorem webu minimalizován
Díky ti moc.
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í