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

Cum se introduce un rând gol după un anumit text în Excel?

Dacă doriți să inserați rânduri goale după un anumit text, după cum se arată în următoarea captură de ecran, cum să faceți acest lucru rapid și ușor fără a le insera manual unul câte unul?

Introduceți rânduri goale după text specific cu cod VBA


Introduceți rânduri goale după text specific cu cod VBA

Puteți aplica codul VBA de mai jos pentru a insera rânduri goale după textul specific de care aveți nevoie, procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: introduceți rânduri goale după textul specific

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

notițe: În codul de mai sus, puteți schimba valoarea textului „În progres”La orice alte valori pe care le-ați dorit din scenariu Dacă InStr (1, xRng.Cells (i, 1). Valoare, „În curs de desfășurare”)> 0 Apoi.

3. Apoi, apăsați F5 tasta pentru a rula acest cod, în caseta de dialog pop-out, selectați datele coloanei conține textul specific pe care doriți să îl utilizați, consultați captura de ecran:

4. Apoi, faceți clic OK , iar rândurile goale au fost inserate după textul specificat de dvs., consultați captura de ecran:


Mai multe articole de inserare de rânduri relative:

  • Copiați și inserați rândul de mai multe ori sau copiați rândul X Times
  • În munca dvs. zilnică, ați încercat vreodată să copiați un rând sau fiecare rând și apoi să inserați de mai multe ori sub rândul de date curent într-o foaie de lucru? De exemplu, am o gamă de celule, acum vreau să copiez fiecare rând și să le lipesc de 3 ori pe rândul următor, după cum se arată în următoarea captură de ecran. Cum ați putea face față acestui job în Excel?
  • Introduceți rânduri goale atunci când valoarea se schimbă în Excel
  • Presupunând că aveți o gamă de date și acum doriți să inserați rânduri goale între date atunci când valoarea se schimbă, astfel încât să puteți separa aceleași valori secvențiale într-o singură coloană, după cum se arată în următoarele capturi de ecran. În acest articol, voi vorbi despre câteva trucuri pentru a rezolva această problemă.
  • Introduceți rândul gol deasupra textului specific în Excel
  • Când lucrați la o foaie de lucru, ați încercat vreodată să inserați un rând gol deasupra unui anumit text într-o coloană? De exemplu, există câteva nume în coloana A, acum, vreau să inserez rânduri goale deasupra celulelor care conțin numele „Mike” ca ecranul din stânga arătat, poate, nu există o modalitate directă de a rezolva această sarcină în Excel . În acest articol, voi vorbi despre câteva trucuri bune pentru a face față acestui job în Excel.

  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane și păstrarea datelor; Conținut de celule divizate; Combinați rânduri duplicate și sumă / medie... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Formule favorite și inserare rapidă, Gama, Diagrame și Imagini; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Gruparea tabelului pivot după numărul săptămânii, ziua săptămânii și multe altele ... Afișați celulele deblocate, blocate prin diferite culori; Evidențiați celulele care au formulă / nume...
fila kte 201905
  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (2)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru este atât de util! Dar cum adaug rânduri noi după mai multe texte diferite. De exemplu, vreau să adaug un rând după SB2 și BB2, este posibil acest lucru? sau trebuie doar să-l rulez de două ori cu două texte diferite?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți folosi funcția textjoin adăugând același cuvânt la sfârșitul fiecărei linii și apoi ștergeți acel cuvânt cu ctrl+f
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL