Jak vložit prázdný řádek nad konkrétní text v aplikaci Excel?
 |
 |
 |
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žit prázdný řádek nad určitý text pomocí Kutools for 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:
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žit prázdný řádek nad určitý text pomocí Kutools for Excel
Pokud máte Kutools for 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 for 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 for 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:
4. Pak klikněte na tlačítko Ok tlačítko, všechny buňky, jejichž hodnota je Mike, jsou vybrány najednou, viz screenshot:
5. Po výběru konkrétních textových buněk klikněte Domů > Vložit > Vložte řádky listůa nad vybraný text se vloží prázdné řádky, viz screenshoty:
 |
|
|
Stáhněte si a vyzkoušejte zdarma Kutools for Excel Nyní !
Demo: Vložit prázdný řádek nad konkrétní text pomocí Kutools for Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své excelentní dovednosti pomocí Kutools for Excela 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áší rozhraní s kartami do Office 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!
