Come si fa a eliminare tutte le righe vuote o soltanto la prima riga all’interno di una cella di Excel?
Potrebbe capitarti di ricevere una cartella di lavoro con celle contenenti più righe di testo alternate a righe vuote. Come puoi eliminarle? E se volessi rimuovere solo la prima riga? Questo articolo ti guiderà passo dopo passo nel processo.
Elimina tutte le righe vuote nelle celle con codice VBA
Elimina solo la prima riga nelle celle con codice VBA
Elimina tutte le righe vuote nelle celle con codice VBA
Come illustrato nello screenshot seguente, puoi eliminare tutte le righe vuote nelle celle eseguendo il seguente codice VBA.
1. Premi i tasti Alt+F11 sulla tastiera: si aprirà così una finestra di Microsoft Visual Basic for Applications.
2. Nella finestra di Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra del Modulo.
Codice VBA: Elimina tutte le righe vuote nelle celle
Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
Next
Next
End Sub3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel, seleziona quindi le celle contenenti le righe vuote da eliminare e infine fai clic sul pulsante OK.
Vedrai che tutte le righe vuote sono state eliminate dalle celle specificate, come illustrato nello screenshot seguente. I testi restano comunque su righe separate.
Elimina solo la prima riga nelle celle con codice VBA
Come illustrato nello screenshot seguente, per rimuovere la prima riga nelle celle A2 e A3, puoi utilizzare il codice VBA seguente.
1. Premi i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. In Microsoft Visual Basic for Applications, fai clic su Inserisci > Modulo. Quindi copia e incolla il seguente codice VBA nella finestra del Modulo.
Codice VBA: Elimina solo la prima riga nelle celle
Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
Dim xCell As Range
For Each xCell In Target.Cells
xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
Next
End Sub
Sub StartRemove()
Dim xRng As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
RemoveFirstLine xRng
End Sub3. Premi il tasto F5 per eseguire il codice. Nella finestra di dialogo Kutools per Excel visualizzata, seleziona le celle da cui desideri eliminare solo la prima riga, quindi fai clic sul pulsante OK.
Noterai che le prime righe sono state rimosse dalle celle indicate, come illustrato nello screenshot seguente.
Articolo correlato:
- Come si fa ad applicare il grassetto solo alla prima riga o alla prima parola in una cella di 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