Come inserire o eliminare una riga parziale in Excel?
È facile inserire o eliminare un'intera riga dal foglio di lavoro in Excel. Ma come inserire o eliminare solo una riga parziale dal foglio di lavoro? Questo articolo ti aiuterà.
Inserisci o elimina una riga parziale con la funzione Inserisci / Elimina celle
Inserisci o elimina riga parziale con codice VBA
Inserisci o elimina una riga parziale con la funzione Inserisci / Elimina celle
Ad esempio, si desidera inserire o eliminare una riga parziale nella riga 5 con tre celle, eseguire le operazioni seguenti.
Inserisci riga parziale
1. Selezionare tre celle nella riga 5 (le celle selezionate devono essere uguali alle celle inserite), quindi fare clic su inserire > Inserisci celle per Casa tab. Vedi screenshot:
2. Nel inserire finestra di dialogo, selezionare Sposta le celle a destra or Sposta le celle verso il basso opzione e quindi fare clic su OK pulsante.
Quindi la riga parziale con tre celle viene inserita come mostrato nell'immagine sottostante.
Elimina riga parziale
1. Dopo aver selezionato la riga parziale che si desidera eliminare, fare clic su Elimina> Elimina celle per Casa scheda.
2. Nel Elimina finestra di dialogo, selezionare Sposta celle a sinistra or Sposta le celle in alto di cui hai bisogno, quindi fai clic su OK pulsante. Vedi screenshot:
Quindi la riga parziale selezionata viene eliminata.
Inserisci o elimina riga parziale con codice VBA
È inoltre possibile applicare i seguenti codici VBA per inserire o eliminare una riga parziale in Excel.
1. Selezionare qualsiasi cella in una determinata riga in cui si desidera inserire righe parziali, quindi premere altro + F11 per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nel file Code finestra.
Codice VBA: inserisci una riga parziale in Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
Note:: Nel codice VBA, il numero 1 significa che la riga parziale verrà inserita dalla prima colonna e il numero 3 significa che inserirà tre celle tra le colonne. Puoi modificarli in base alle tue esigenze.
3. premi il F5 chiave per eseguire il codice, quindi un Kutools for Excel viene visualizzata la finestra di dialogo, immettere il numero di righe richieste necessarie, quindi fare clic su OK pulsante.
Se si immette 3 nella casella, quindi fare clic su OK pulsante, tre righe parziali con tre colonne verranno inserite nella posizione specificata del foglio di lavoro.
Per eliminare una riga parziale, puoi eseguire il codice VBA sottostante.
Codice VBA: elimina la riga parziale in Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Dopo aver eseguito il codice, c'è anche un file Kutools for Excel viene visualizzata la finestra di dialogo per ricordare quante righe parziali si desidera eliminare, immettere il numero e fare clic su OK pulsante. Quindi le righe parziali specificate vengono eliminate immediatamente.
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!