Ugrás a tartalomra

Hogyan illeszthet be üres sort az adott szöveg fölé az Excelben?

doc beszúrja a sort az 1. szöveg fölé 2 doc beszúrja a sort az 2. szöveg fölé

Amikor munkalapon dolgozik, megpróbált már beilleszteni egy üres sort egy oszlopba egy adott szöveg fölé? Például van néhány név az A oszlopban, most szeretnék üres sorokat beilleszteni a cellák fölé, amelyek a bal oldali képernyőképen a „Mike” nevet tartalmazzák. Lehetséges, hogy nincs közvetlen módja ennek a feladatnak az Excelben történő megoldására . Ebben a cikkben néhány jó trükkről fogok beszélni, amellyel ezt a feladatot kezelheti az Excel programban.

Helyezzen be egy üres sort a VBA kóddal ellátott szöveg fölé

Szúrjon be egy üres sort az adott szöveg fölé a Kutools for Excel segítségével


Helyezzen be egy üres sort a VBA kóddal ellátott szöveg fölé

Ha az adott szöveg fölé egyenként üres sort akar beilleszteni, sok időt pazarol, itt létrehozok egy VBA-kódot, amellyel egyszerre beillesztheti az üres sort a meghatározott cellaérték fölé.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, majd illessze be a következő makrót a Modulok Ablak.

VBA kód: Helyezzen be egy üres sort gyorsan a szöveg fölé

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy párbeszédpanel, amely emlékezteti Önt az oszlopadatok kiválasztására, amelyek tartalmazzák a fenti sort beilleszteni kívánt szöveget, lásd a képernyőképet:

doc beszúrja a sort az 3. szöveg fölé

4. Kattintson a gombra OK gombra, az üres sorok a „Mike” szöveg fölé kerültek.

Megjegyzések: A fenti kódban megváltoztathatja a „Mikrofon”Bármely más értékre, amelyet a szkriptből kívánt Ha InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Majd.


Szúrjon be egy üres sort az adott szöveg fölé a Kutools for Excel segítségével

Ha van Kutools az Excel számára, Annak Válassza a Specifikus cellák lehetőséget funkcióval előbb kiválaszthatja a megadott cellaértékeket, majd alkalmazhatja az Excel Laplapok beszúrása segédprogramját az üres sorok egyszeri beszúrásához.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki a használni kívánt adattartományt.

2. Ezután kattintson Kutools > választ > Válassza a Specifikus cellák lehetőséget, lásd a képernyőképet:

3. Az Válassza a Specifikus cellák lehetőséget párbeszédpanelen válassza ki Sejt alatt a Kiválasztás típusa, majd adja meg a szükséges kritériumokat a Konkrét típus szakaszban, ebben az esetben én választom Egyenlő tól Konkrét típus, és írja be a kívánt nevet, lásd a képernyőképet:

doc beszúrja a sort az 5. szöveg fölé

4. Ezután kattintson Ok gombra, az összes Mike értékű cellát egyszerre választják ki, lásd a képernyőképet:

doc beszúrja a sort az 6. szöveg fölé

5. Miután kiválasztotta a szöveges cellákat, kattintson a gombra Kezdőlap > betétlap > Lapsorok beszúrása, és az üres sorok beszúródnak a kijelölt szöveg fölé, lásd a képernyőképeket:

doc beszúrja a sort az 7. szöveg fölé 2 doc beszúrja a sort az 2. szöveg fölé

 Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Demo: Szúrjon be egy üres sort egy adott szöveg fölé a Kutools for Excel segítségével

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I try do it to put a blank row after every non-empty cell, but excel says. "That command cannot be used on multiple selections"
Why it dosnt work for me???
This comment was minimized by the moderator on the site
Is there a way not to appears dialog box with pop out to remind me to select the column data which contains specific text I want to insert row above, If a specified cell is filled with data, then process run automatically , without promptings, and insert row above?
This comment was minimized by the moderator on the site
This has been amazing for the data I have. I was wondering if you could help me one step further. I have been able to split my data based on this, but then I need to colour code my groups of data. When I split my data I have a variable number of rows from 1-50, and I have 36 columns of data including 32 columns that I need to compare the values within to the top row. I am currently manually selecting each group (as separated by a blank row) and then using ctrl+shift+| to highlight column differences, and formatting those cells to highlight the differences.


Is there anyone who could write a code to select and format those column differences within the groupings, using the blank row as a separator?
This comment was minimized by the moderator on the site
Hi, i have a similar problem as the one above. What if i want to select the cell below a specified criteria? For example, you can use the example from above. i want to select the cell below "Mike". is there any easy way out?
This comment was minimized by the moderator on the site
@SSJ did you ever find a solution?
This comment was minimized by the moderator on the site
Hello, guys,

To insert blank rows below a specific cell value, you can apply the following code:

Sub BlankLine()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Columns(1)
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
For xRowIndex = xLastRow To 1 Step -1
Set Rng = WorkRng.Range("A" & xRowIndex)
If Rng.Value = "Mike" Then
Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown
End If
Next
Application.ScreenUpdating = True
End Sub

Please change the criteria "Mike" to your own cell value.

Hope it can help you, thank you!
This comment was minimized by the moderator on the site
thank you! its worked.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations