Vai al contenuto principale

Come inserire una riga vuota sopra un testo specifico in Excel?

doc inserire una riga sopra il testo specifico 1 2 doc inserire una riga sopra il testo specifico 2

Quando lavori su un foglio di lavoro, hai mai provato a inserire una riga vuota sopra un testo specifico in una colonna? Ad esempio, ci sono alcuni nomi nella colonna A, ora, voglio inserire righe vuote sopra le celle che contengono il nome "Mike" come mostrato nell'immagine a sinistra, forse, non esiste un modo diretto per risolvere questo compito in Excel . In questo articolo, parlerò di alcuni buoni trucchi per affrontare questo lavoro in Excel.

Inserisci una riga vuota sopra il testo specifico con il codice VBA

Inserisci una riga vuota sopra il testo specifico con Kutools per Excel


Inserisci una riga vuota sopra il testo specifico con il codice VBA

Per inserire manualmente una riga vuota sopra il testo specifico uno per uno sprecherò un sacco di tempo, qui creerò un codice VBA per poter inserire la riga vuota sopra il valore della cella specifica contemporaneamente.

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie quindi incolla la seguente macro nel file Moduli Finestra.

Codice VBA: inserisci rapidamente una riga vuota sopra un testo specifico

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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di dialogo per ricordarti di selezionare i dati della colonna che contengono il testo specifico che desideri inserire nella riga sopra, vedi screenshot:

doc inserire una riga sopra il testo specifico 3

4. E poi clicca OK pulsante, le righe vuote sono state inserite sopra il testo specifico “Mike”.

Note:: Nel codice sopra, puoi modificare il valore del testo "Mike"A qualsiasi altro valore desiderato dallo script Se InStr (1, xRng.Cells (i, 1) .Value, "Mike")> 0 Poi.


Inserisci una riga vuota sopra il testo specifico con Kutools per Excel

Se si dispone di Kutools for Excel, Con la sua Seleziona celle specifiche funzione, è possibile selezionare prima i valori di cella specificati, quindi applicare l'utilità Inserisci righe del foglio di Excel per inserire le righe vuote contemporaneamente.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Seleziona l'intervallo di dati che desideri utilizzare.

2. Quindi fare clic Kutools > Seleziona > Seleziona celle specifiche, vedi screenshot:

3. Nel Seleziona celle specifiche finestra di dialogo, selezionare Cella sotto il Tipo di selezione, quindi specifica i criteri di cui hai bisogno in Tipo specifico sezione, in questo caso, sceglierò Equivale dal Tipo specificoe inserisci il nome che voglio selezionare, vedi screenshot:

doc inserire una riga sopra il testo specifico 5

4. Quindi fare clic Ok pulsante, tutte le celle il cui valore è Mike vengono selezionate contemporaneamente, vedi screenshot:

doc inserire una riga sopra il testo specifico 6

5. Dopo aver selezionato le celle di testo specifiche, fare clic su Casa > inserire > Inserisci righe del foglioe le righe vuote verranno inserite sopra il testo selezionato, vedi screenshot:

doc inserire una riga sopra il testo specifico 7 2 doc inserire una riga sopra il testo specifico 2

 Scarica e prova gratuitamente Kutools per Excel ora!


Demo: inserisci una riga vuota sopra il testo specifico con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
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