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

Hogyan illeszthet be egy üres sort egy adott szöveg után az Excel programba?

Ha üres sorokat szeretne beilleszteni egy adott szöveg után, az alábbi képernyőképen, hogyan kezelje azt gyorsan és egyszerűen anélkül, hogy kézzel egyesével illesztené be őket?

Helyezzen be üres sorokat a VBA kóddal ellátott szöveg után


Helyezzen be üres sorokat a VBA kóddal ellátott szöveg után

Az alábbi VBA kódot alkalmazhatja üres sorok beszúrására a kívánt szöveg után, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA kód: Helyezzen be üres sorokat a konkrét szöveg után

Sub Insertrowbelow()
'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, "In progressing") > 0 Then
        Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
      End If
    Next
End Sub

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

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki az oszlopadatokat, amelyek tartalmazzák a használni kívánt szöveget, lásd a képernyőképet:

4. Ezután kattintson OK gombra, és az üres sorokat beszúrta a megadott szöveg után, lásd a képernyőképet:


Relatívabb sorok beszúrása cikkek:

  • Másolja és illessze be a sort többször, vagy másolja le az X sort
  • A mindennapi munkája során megpróbált már másolni egy sort vagy minden sort, majd többször beilleszteni az aktuális adatsor alá egy munkalapba? Például van egy cellatartományom, most szeretnék minden sort másolni, és háromszor beilleszteni a következő sorba, az alábbi képernyőkép szerint. Hogyan tudta kezelni ezt a munkát az Excelben?
  • Üres sorok beszúrása, ha az érték megváltozik az Excelben
  • Tegyük fel, hogy van egy adattartománya, és most üres sorokat szeretne beilleszteni az adatok közé, amikor az érték megváltozik, hogy a szekvenciális ugyanazokat az értékeket egy oszlopban különíthesse el, a következő képernyőképek szerint. Ebben a cikkben néhány trükkről fogok beszélni, amelyek segítségével megoldhatja ezt a problémát.
  • Helyezzen egy üres sort az adott szöveg fölé az Excelben
  • 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.

  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (2)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyon hasznos! De hogyan tudok új sorokat hozzáadni több különböző szöveg után? Például szeretnék hozzáadni egy sort az SB2 és BB2 után, lehetséges ez? vagy csak kétszer kell lefuttatnom két különböző szöveggel?
A weboldal moderátora ezt a megjegyzést minimalizálta
Használhatja a textjoin függvényt úgy, hogy minden sor végére hozzáadja ugyanazt a szót, majd törölje a szót a ctrl+f billentyűkombinációval.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi