Come inserire automaticamente una riga in base al valore della cella 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:
I 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 oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione 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 della stessa finestra, invece che in nuove finestre.
- Aumenta la tua produttività del50% e riduce centinaia di clic del mouse ogni giorno!