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ă.
- Inserați mai multe rânduri sau coloane rapid în Foi de calcul Google
- În acest articol, voi introduce o modalitate ușoară de a insera mai multe rânduri sau coloane goale într-o foaie Google.
- 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.
Cele mai bune instrumente de productivitate Office
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
- 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...
- 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!
