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:
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:
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
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...
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!