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

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

Se desideri inserire righe vuote dopo un testo specifico come mostrato nella seguente schermata, come gestirle rapidamente e facilmente senza inserirle manualmente una per una?

Inserisci righe vuote dopo un testo specifico con codice VBA


Inserisci righe vuote dopo un testo specifico con codice VBA

Puoi applicare il codice VBA sottostante per inserire righe vuote dopo il testo specifico di cui hai bisogno, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nella finestra del modulo.

Codice VBA: inserisci righe vuote dopo il testo specifico

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

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

3. Quindi, premere F5 tasto per eseguire questo codice, nella finestra di dialogo spuntata, selezionare i dati della colonna che contengono il testo specifico che si desidera utilizzare, vedere screenshot:

4. Quindi fare clic su OK pulsante e le righe vuote sono state inserite dopo il testo specificato, vedi screenshot:


Articoli con righe di inserimento più relativi:

  • Copia e inserisci la riga più volte o duplica la riga X volte
  • Nel tuo lavoro quotidiano, hai mai provato a copiare una riga o ogni riga e quindi inserire più volte sotto la riga di dati corrente in un foglio di lavoro? Ad esempio, ho un intervallo di celle, ora, voglio copiare ogni riga e incollarle 3 volte nella riga successiva come mostrato nella seguente schermata. Come hai potuto affrontare questo lavoro in Excel?
  • Inserisci righe vuote quando il valore cambia in Excel
  • Supponendo di avere un intervallo di dati e ora si desidera inserire righe vuote tra i dati quando il valore cambia, in modo da poter separare gli stessi valori sequenziali in una colonna come mostrato nelle schermate seguenti. In questo articolo, parlerò di alcuni trucchi per risolvere questo problema.
  • Inserisci riga vuota sopra un testo specifico in Excel
  • 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.

  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne e conservazione dei dati; Contenuto delle celle divise; Combina righe duplicate e somma / media... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Formule preferite e di inserimento rapido, Intervalli, grafici e immagini; Crittografa celle con password; Crea mailing list e invia email ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Raggruppamento tabelle pivot per numero della settimana, giorno della settimana e altro ... Mostra celle sbloccate e bloccate da diversi colori; Evidenzia le celle che hanno formula / nome...
scheda kte 201905
  • 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!
fondo officetab
Commenti (2)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Questo è così utile! Ma come aggiungo nuove righe dopo diversi testi diversi. Ad esempio, voglio aggiungere una riga dopo SB2 e BB2, è possibile? o devo solo eseguirlo due volte con due testi diversi?
Questo commento è stato fatto dal moderatore sul sito
Puoi usare la funzione textjoin aggiungendo la stessa parola alla fine di ogni riga e poi cancella quella parola con ctrl+f
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL