Come inserire una riga vuota in base al valore della cella sopra in Excel?
In Excel, l'inserimento di righe vuote è una delle funzioni più utilizzate nel nostro lavoro quotidiano. Tuttavia, esiste un modo per inserire rapidamente righe vuote in base al valore della cella sopra come mostrato nell'immagine sottostante? Ora, questo articolo, parla del metodo per inserire rapidamente una riga vuota in base ai valori della cella sopra in Excel.
 |
 |
 |
Inserisci riga in base al valore sopra
Inserisci riga in base al valore sopra
Se vuoi inserire una riga vuota in base al numero sopra, puoi usare un codice macro.
1. Abilitare il foglio che si utilizza e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nello script.
VBA: inserisci un codice vuoto basato sulla cella sopra
Sub Insert () 'UpdatebyExtendoffice20170926
Dim xRg come intervallo
Dim xAddress come stringa
Dim I, xNum, xUltimaRiga, xPstRiga, xCol, xConta Quanto Lungo
In caso di errore Riprendi successivo
xAddress = ActiveWindow.RangeSelection.Address
Imposta xRg = Application.InputBox("Seleziona un intervallo da utilizzare (colonna singola):", "KuTools For Excel", xAddress, , , , , 8)
Se xRg non è nulla, esci da Sub
Application.ScreenUpdating = Falso
xUltimaRiga = xRg(1).Fine(xlGiù).Riga
xFstRiga = xRg.Riga
xCol = xRg.Colonna
xConteggio = xRg.Conteggio
Imposta xRg = xRg(1)
Per I = xUltimaRiga A xFstRiga Passaggio -1
xNum = Celle (I, xCol)
Se è numerico(xNum) e xNum > 0 Allora
Righe(I + 1).Ridimensiona(xNum).Inserisci
xConteggio = xConteggio + xNum
Finisci se
Prossimo
xRg.Ridimensiona(xCount, 1).Seleziona
Application.ScreenUpdating = Vero
Fine sott
3. Stampa F5 per eseguire il codice e viene visualizzata una finestra di dialogo per ricordarti di selezionare un elenco su cui lavorare. Vedi screenshot:
4. Clic OK, sono state inserite le righe vuote.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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!
