Come inserire una riga utilizzando vba in excel?

In questo tutorial vedremo come inserire una riga o una colonna utilizzando il codice VBA in Excel. Esploreremo anche quali sono i diversi modi per scrivere una macro per questo.

Inserisci una singola riga utilizzando VBA

Per inserire una riga utilizzando il codice VBA è necessario utilizzare la proprietà “Riga intera” con il metodo “Inserisci”. Con la proprietà riga intera, puoi fare riferimento all’intera riga utilizzando una cella e quindi inserire una nuova riga lì. Per impostazione predefinita, inserirà una singola riga prima della cella che hai menzionato.

1. Innanzitutto, specifica una cella utilizzando l’oggetto intervallo.
2. Ora inserisci un punto (.) per ottenere l’elenco di proprietà e metodi.
3. Successivamente, seleziona la proprietà “Riga intera” o inseriscila.
4. Alla fine, inserisci nuovamente un punto (.) e seleziona il metodo “Inserisci” o digitalo.

 Range("A1").EntireRow.Insert

Il tuo codice è pronto qui per inserire una riga. Ora quando esegui questo codice, inserisce immediatamente una nuova riga prima della cella A1.

Inserisci più righe

Esistono due modi per inserire più righe in un foglio di calcolo che ho trovato. Il primo è lo stesso metodo di inserimento utilizzato nell’esempio precedente.

Con questo, devi specificare un intervallo il cui numero è equivalente al numero di righe che desideri inserire. Supponiamo ora di voler inserire 5 righe dopo, in questo caso puoi utilizzare un codice come questo.

Ad essere onesti, non ho trovato questo metodo molto utile perché devi cambiare l’intervallo se vuoi cambiare il numero di righe.

Quindi ecco il secondo metodo.

 Dim iRow As Long Dim iCount As Long Dim i As Long iCount = InputBox(Prompt:="How many rows you want to add?") iRow = InputBox _ (Prompt:="After which row you want to add new rows? (Enter the row number") For i = 1 To iCount Rows(iRow).EntireRow.Insert Next i

Quando esegui questo codice, ti viene chiesto di inserire il numero di righe che desideri aggiungere e quindi il numero di riga in cui desideri aggiungere tutte queste righe. Utilizza un ciclo FOR (For Next) per ripetere questo numero di volte e inserire le righe una per una.

Inserisci righe in base ai valori della cella

Se desideri inserire righe in base al valore di una cella , puoi utilizzare il seguente codice.

 Dim iRow As Long Dim iCount As Long Dim i As Long iCount = Range("A1").Value iRow = Range("B1").Value For i = 1 To iCount Rows(iRow).EntireRow.Insert Next i

Quando esegui questa macro, viene preso il numero di righe dalla cella A1 e la riga in cui desideri aggiungere righe dalla cella B1.

Inserisci una riga senza formattazione

Quando inserisci una riga in cui la riga sopra ha una formattazione specifica, in questo caso anche la riga avrà automaticamente quella formattazione. E il modo più semplice per gestire questa situazione è utilizzare formati chiari . Considera il seguente codice.

 Rows(7).EntireRow.Insert Rows(7).ClearFormats

Quando esegui il codice precedente, inserisce una nuova riga prima della ^settima riga. Ora cosa succede, quando inserisci una riga prima della ^settima riga, quella nuova riga diventa la ^settima riga, quindi la seconda riga di codice cancella i formati di quella riga.

Inserisci una riga copiata

Puoi anche utilizzare lo stesso metodo per copiare una riga e quindi inserirla altrove. Vedere il codice seguente.

 Application.CutCopyMode = False With Worksheets("Data") .Rows(5).Copy .Rows(9).Insert Shift:=xlShiftDown End With Application.CutCopyMode = True