Salt la conținutul principal

Cum se introduce rândul gol deasupra textului specific în Excel?

doc inserați rândul deasupra textului specific 1 2 doc inserați rândul deasupra textului specific 2

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.

Introduceți rândul gol deasupra textului specific cu codul VBA

Introduceți rândul gol deasupra textului specific cu Kutools pentru Excel


Introduceți rândul gol deasupra textului specific cu codul VBA

Pentru a insera manual rândul gol deasupra textului specific, unul câte unul, va pierde mult timp, aici, voi crea un cod VBA pentru a insera rândul gol deasupra valorii specifice a celulei simultan.

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

2. Clic Insera > Module, apoi lipiți următoarea macro în fișierul Module Fereastră.

Cod VBA: introduceți rapid rândul gol deasupra textului specific

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. Apoi apăsați F5 pentru a rula acest cod și va apărea o casetă de dialog pentru a vă reaminti că selectați datele coloanei care conține text specific pe care doriți să îl inserați rândul de mai sus, consultați captura de ecran:

doc inserați rândul deasupra textului specific 3

4. Apoi faceți clic pe OK butonul, rândurile goale au fost inserate deasupra textului specific „Mike”.

notițe: În codul de mai sus, puteți schimba valoarea textului „Mike”La orice alte valori pe care le-ați dorit din scenariu Dacă InStr (1, xRng.Cells (i, 1) .Value, „Mike”)> 0 "Atunci .


Introduceți rândul gol deasupra textului specific cu Kutools pentru Excel

Dacă aveţi Kutools pentru Excel, Cu său Selectați celule specifice caracteristică, puteți selecta mai întâi valorile de celulă specificate și apoi aplicați utilitarul Inserare rânduri de foi din Excel pentru a insera rândurile goale simultan.

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile

După instalare Kutools pentru Excel, vă rugăm să faceți următoarele:

1. Selectați intervalul de date pe care doriți să îl utilizați.

2. Apoi apasa Kutools > Selectați > Selectați celule specifice, vezi captura de ecran:

3. În Selectați celule specifice fereastră de dialog, selectați Celulă în temeiul Tipul de selecție, apoi specificați criteriile de care aveți nevoie în Tipul specific secțiunea, în acest caz, voi alege este egală cu de la Tipul specificși introduceți numele pe care vreau să îl selectez, vedeți captura de ecran:

doc inserați rândul deasupra textului specific 5

4. Apoi apasa Ok buton, toate celulele cu valoare Mike sunt selectate simultan, vezi captura de ecran:

doc inserați rândul deasupra textului specific 6

5. După selectarea anumitor celule de text, faceți clic pe Inițial > Insera > Introduceți rândurile de foi, iar rândurile goale vor fi inserate deasupra textului selectat, consultați capturi de ecran:

doc inserați rândul deasupra textului specific 7 2 doc inserați rândul deasupra textului specific 2

 Descărcați și proba gratuită Kutools pentru Excel acum!


Demo: introduceți rândul gol deasupra textului specific cu Kutools pentru Excel

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • 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!
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