Přejít k hlavnímu obsahu

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ší 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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks you so much.
This comment was minimized by the moderator on the site
Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
This comment was minimized by the moderator on the site
Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
This comment was minimized by the moderator on the site
FOLLOW MY INSTRUCTION ON GOOGLE.COM
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations