Přejít k hlavnímu obsahu

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

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations