Come inserire una riga vuota sopra un testo specifico in Excel?
 |  |  |
Quando si lavora su un foglio di lavoro, vi è mai capitato di dover inserire una riga vuota sopra un testo specifico in una colonna? Ad esempio, nella colonna A compaiono alcuni nomi e ora desiderate inserire righe vuote sopra le celle contenenti il nome «Mike», come illustrato nello screenshot a sinistra. Probabilmente Excel non offre un metodo diretto per eseguire questa operazione, ma in questo articolo vi svelerò alcuni trucchi efficaci per gestirla con facilità.
Inserire Riga vuota sopra un testo specifico con codice VBA
Inserire Riga vuota sopra un testo specifico con Kutools per Excel
Inserire Riga vuota sopra un testo specifico con codice VBA
Inserire manualmente una riga vuota sopra un testo specifico, riga per riga, richiederebbe molto tempo. Per questo motivo, ho creato un codice VBA che permette di inserire contemporaneamente una riga vuota sopra un valore di cella specifico.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare la seguente macro nella finestra del Modulo.
Codice VBA: Inserire rapidamente 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. Premere quindi il tasto F5 per eseguire il codice. Verrà visualizzata una finestra di dialogo che chiederà di selezionare i dati della colonna contenente il testo specifico sopra il quale si desidera inserire una riga; vedere lo screenshot:
4. Fare quindi clic sul pulsante OK; le righe vuote saranno state inserite sopra il testo specifico «Mike».
Nota: Nel codice riportato sopra, puoi sostituire il valore di testo «Mike» con qualsiasi altro valore desideri nello script If InStr(1, xRng.Cells(i, 1).Value, «Mike») > 0Then.
Inserire Riga vuota sopra un testo specifico con Kutools per Excel
Se hai Kutools per Excel, grazie alla sua funzionalità Seleziona celle specifiche, puoi innanzitutto selezionare i valori di cella desiderati e poi utilizzare lo strumento «Inserisci righe di foglio» di Excel per aggiungere contemporaneamente le righe vuote.
Dopo aver installato Kutools per Excel, procedere come segue:
1. Selezionare l’intervallo di dati da utilizzare.
2. Fare quindi clic su Kutools > Seleziona > Seleziona celle specifiche; vedere lo screenshot:
3. Nella finestra di dialogo Seleziona celle specifiche, selezionare Cella in corrispondenza di Seleziona tipo, quindi specificare i criteri necessari nella sezione Specifica tipo. In questo caso, verrà scelto Uguale a dal menu a discesa Specifica tipo e verrà inserito il nome da selezionare; vedere lo screenshot:
4. Fare quindi clic sul pulsante Ok: tutte le celle il cui valore è «Mike» verranno selezionate contemporaneamente. Vedere lo screenshot:
5.Dopo aver selezionato le celle contenenti il testo specifico, fare clic su Home>Inserisci>Inserisci righe di foglio; le Righe vuote verranno inserite sopra il testo selezionato; vedere gli screenshot:
 | | |
Scarica e prova gratis Kutools per Excel ora!
Demo: Inserire Riga vuota sopra un testo specifico con Kutools per Excel
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi