Come inserire automaticamente una riga in base al valore della cella in Excel?

Supponiamo che tu abbia un intervallo di dati e desideri inserire automaticamente righe vuote sopra o sotto un certo valore in Excel, ad esempio, inserire automaticamente righe sotto il valore zero come mostrato nello screenshot sottostante. In Excel, non c'è un modo diretto per risolvere questo compito, ma posso presentarti un codice Macro per inserire automaticamente righe basate su un determinato valore in Excel.
Inserisci riga sotto in base al valore della cella con VBA

Inserisci riga sopra in base al valore della cella con Kutools per Excel

Inserisci riga sotto in base al valore della cella con VBA

Per inserire una riga in base al valore della cella eseguendo VBA, segui i passaggi seguenti:

1. Premi contemporaneamente i tasti Alt + F11 e si aprirà una finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, quindi incolla il seguente codice VBA nella finestra del Modulo che appare.

VBA: Inserisci riga sotto in base al valore della cella.

Sub BlankLine()
	'Updateby20150203
	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 = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3. Clicca F5 o il pulsante Esegui , apparirà una finestra di dialogo, seleziona la colonna contenente lo zero. Vedi screenshot:

4. Clicca OK. Successivamente, verranno inserite righe vuote sotto il valore zero.

Suggerimento:

1. Se desideri inserire righe basate su un altro valore, puoi cambiare 0 in qualsiasi valore desideri nel VBA: If Rng.Value = "0" Then.

2. Se vuoi inserire righe sopra lo zero o un altro valore, puoi utilizzare il seguente codice vba.

VBA: Inserisci riga sopra il valore zero:

Sub BlankLine()
	'Updateby20150203
	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 = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

Inserisci riga sopra in base al valore della cella con Kutools per Excel

Se non sei familiare con VBA, puoi provare l'utilità Seleziona celle specifiche di Kutools per Excel e poi inserire le righe sopra.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Seleziona l'elenco da cui vuoi trovare le celle specifiche e clicca Kutools > Seleziona > Seleziona celle specifiche. Vedi screenshot:

2. Nella finestra di dialogo che appare, seleziona l'opzione Riga intera poi vai a selezionare Uguale a da Specifica tipo lista, e poi inserisci il valore che desideri trovare nella casella di testo a destra. Vedi screenshot:

3. Clicca Ok, e apparirà una finestra di dialogo per ricordarti il numero di righe selezionate, chiudila semplicemente.

4. Posiziona il cursore su una delle righe selezionate, fai clic con il tasto destro e seleziona Inserisci dal menu contestuale. Vedi screenshot:

Ora le righe sono state inserite sopra in base a un valore specifico.

Inserisci righe sopra in base al valore della cella

Articoli correlati:

• Inserisci righe vuote in Excel