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

Jak vložit prázdný řádek nad konkrétní text v aplikaci Excel?

doc vložte řádek nad konkrétní text 1 2 doc vložte řádek nad konkrétní text 2

Když pracujete na listu, pokusili jste se někdy vložit prázdný řádek nad konkrétní text ve sloupci? Například ve sloupci A jsou některá jména, nyní chci vložit prázdné řádky nad buňky, které obsahují název „Mike“, jak je zobrazen levý snímek obrazovky, možná neexistuje přímý způsob, jak tento úkol vyřešit v aplikaci Excel . V tomto článku budu hovořit o některých dobrých tricích pro řešení této úlohy v aplikaci Excel.

Vložte prázdný řádek nad konkrétní text s kódem VBA

Vložte prázdný řádek nad konkrétní text pomocí Kutools pro Excel


Vložte prázdný řádek nad konkrétní text s kódem VBA

Chcete-li ručně vložit prázdný řádek nad konkrétní text, jeden po druhém, ztratíte spoustu času, zde vytvořím kód VBA, abyste mohli vložit prázdný řádek nad konkrétní hodnotu buňky najednou.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula poté vložte následující makro do souboru Modul Okno.

Kód VBA: Rychle vložte prázdný řádek nad konkrétní text

Sub test1()
'updateby Extendoffice
    Dim i As Long
    Dim xLast As Long
    Dim xRng As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    If (xRng.Columns.Count > 1) Then
        MsgBox "the selected range must be one column", , "Kutools for Excel"
        Exit Sub
    End If
    xLast = xRng.Rows.Count
    For i = xLast To 1 Step -1
      If InStr(1, xRng.Cells(i, 1).Value, "Mike") > 0 Then
        Rows(xRng.Cells(i, 1).Row).Insert shift:=xlDown
      End If
    Next
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí dialogové okno, které vám připomene výběr dat sloupce, který obsahuje konkrétní text, který chcete vložit výše, viz screenshot:

doc vložte řádek nad konkrétní text 3

4. A pak klikněte na tlačítko OK tlačítko, prázdné řádky byly vloženy nad konkrétní text „Mike“.

Poznámka: Ve výše uvedeném kódu můžete změnit textovou hodnotu “mikrofon„Na jakékoli další hodnoty, které jste od skriptu požadovali Pokud InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Pak.


Vložte prázdný řádek nad konkrétní text pomocí Kutools pro Excel

Pokud máte Kutools pro Excel, S jeho Vyberte konkrétní buňky funkce, můžete nejprve vybrat zadané hodnoty buněk a poté použít nástroj Vložit řádky listu aplikace Excel a vložit prázdné řádky najednou.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah dat, který chcete použít.

2. Pak klikněte na tlačítko Kutools > vybrat > Vyberte konkrétní buňky, viz screenshot:

3. V Vyberte konkrétní buňky dialogové okno vyberte Buňka pod Typ výběrua poté zadejte kritéria, která potřebujete v rámci Specifický typ sekce, v tomto případě si vyberu rovná z Specifický typa zadejte název, který chci vybrat, viz screenshot:

doc vložte řádek nad konkrétní text 5

4. Pak klikněte na tlačítko Ok tlačítko, všechny buňky, jejichž hodnota je Mike, jsou vybrány najednou, viz screenshot:

doc vložte řádek nad konkrétní text 6

5. Po výběru konkrétních textových buněk klikněte Home > Vložit > Vložte řádky listůa nad vybraný text se vloží prázdné řádky, viz screenshoty:

doc vložte řádek nad konkrétní text 7 2 doc vložte řádek nad konkrétní text 2

 Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Ukázka: Vložte prázdný řádek nad konkrétní text pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

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 (7)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Ahoj, mám podobný problém jako výše. Co když chci vybrat buňku pod zadanými kritérii? Můžete například použít příklad shora. Chci vybrat buňku pod "Mike". je nějaká snadná cesta ven?
Tento komentář byl moderátorem webu minimalizován
@SSJ našli jste někdy řešení?
Tento komentář byl moderátorem webu minimalizován
Ahoj hoši,

Chcete-li vložit prázdné řádky pod určitou hodnotu buňky, můžete použít následující kód:

Dílčí prázdný řádek()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Kutoolsfor Excel"
Nastavte WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Nastavit WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
Pro xRowIndex = xLastRow do 1 kroku -1
Nastavit Rng = WorkRng.Range("A" & xRowIndex)
Pokud Rng.Value = "Mike" Pak
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
další
Application.ScreenUpdating = True
End Sub

Změňte prosím kritéria "Mike" na hodnotu své vlastní buňky.

Doufám, že vám to pomůže, děkuji!
Tento komentář byl moderátorem webu minimalizován
Děkuji! funguje to.
Tento komentář byl moderátorem webu minimalizován
To bylo úžasné pro data, která mám. Napadlo mě, jestli bys mi mohl pomoci ještě o krok dál. Na základě toho jsem dokázal rozdělit svá data, ale pak musím své skupiny dat barevně označit. Když rozdělím svá data, mám proměnný počet řádků od 1 do 50 a mám 36 sloupců dat včetně 32 sloupců, které potřebuji porovnat hodnoty v rámci horního řádku. Momentálně ručně vybírám každou skupinu (oddělenou prázdným řádkem) a poté pomocí ctrl+shift+| pro zvýraznění rozdílů ve sloupcích a formátování těchto buněk pro zvýraznění rozdílů.


Existuje někdo, kdo by mohl napsat kód pro výběr a formátování těchto rozdílů ve sloupcích v rámci seskupení pomocí prázdného řádku jako oddělovače?
Tento komentář byl moderátorem webu minimalizován
Existuje způsob, jak neobjevit dialogové okno s vyskakovacím oknem, které mi připomene vybrat data sloupce obsahující konkrétní text, který chci vložit řádek výše, Pokud je zadaná buňka naplněna daty, proces se spustí automaticky, bez výzev a vloží řádek nahoře?
Tento komentář byl moderátorem webu minimalizován
Snažím se to udělat tak, že za každou neprázdnou buňku dám prázdný řádek, ale Excel říká. "Tento příkaz nelze použít pro více výběrů"
Proč mi to nefunguje???
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í