Jak vložit nebo odstranit částečný řádek v aplikaci Excel?
Je snadné vložit nebo odstranit celý řádek z listu v aplikaci Excel. Jak ale vložit nebo odstranit pouze částečný řádek z listu? Tento článek vám pomůže.
Vložte nebo odstraňte částečný řádek pomocí funkce Vložit / Odstranit buňky
Vložte nebo odstraňte částečný řádek s kódem VBA
Vložte nebo odstraňte částečný řádek pomocí funkce Vložit / Odstranit buňky
Chcete například vložit nebo odstranit částečný řádek v řádku 5 se třemi buňkami, postupujte následovně.
Vložte částečný řádek
1. Vyberte tři buňky v řádku 5 (vybrané buňky by se měly rovnat vloženým buňkám) a poté klikněte Vložit > Vložte buňky pod Domů záložka. Viz snímek obrazovky:
2. V Vložit dialogové okno vyberte Posuňte buňky doprava or Posuňte buňky dolů a klepněte na tlačítko OK .
Poté se vloží částečný řádek se třemi buňkami, jak je uvedeno níže.
Smazat částečný řádek
1. Po výběru částečného řádku, který chcete odstranit, klikněte na Odstranit> Smazat buňky pod Domů Karta.
2. V Vymazat dialogové okno vyberte Posuňte buňky doleva or Posuňte buňky nahoru podle potřeby a poté klikněte na ikonu OK knoflík. Viz screenshot:
Poté je vybraný dílčí řádek odstraněn.
Vložte nebo odstraňte částečný řádek s kódem VBA
Můžete také použít následující kódy VBA k vložení nebo odstranění částečného řádku v aplikaci Excel.
1. Vyberte libovolnou buňku v určitém řádku, do které chcete vložit částečné řádky, a stiskněte Další + F11 k otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. A pak zkopírujte a vložte níže uvedený kód VBA do Kód okno.
Kód VBA: Vložte částečný řádek do aplikace Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
Poznámka: V kódu VBA znamená číslo 1, že částečný řádek bude vložen z prvního sloupce, a číslo 3 znamená, že mezi sloupce vloží tři buňky. Můžete je změnit podle svých potřeb.
3. zmáčkni F5 klíč ke spuštění kódu, pak a Kutools pro Excel Zobrazí se dialogové okno, zadejte počet požadovaných řádků, které potřebujete, a poté klikněte na OK .
Pokud do pole zadáte 3, po kliknutí na OK Tlačítko, tři dílčí řádky se třemi sloupci budou vloženy na určenou pozici vašeho listu.
Pro odstranění částečného řádku můžete spustit níže uvedený kód VBA.
Kód VBA: Odstraňte částečný řádek v aplikaci Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Po spuštění kódu je také Kutools pro Excel Zobrazí se dialogové okno, které vám připomene, kolik dílčích řádků chcete smazat, zadejte číslo a klikněte na OK knoflík. Poté budou zadané dílčí řádky okamžitě odstraněny.
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!