Questo tutorial dimostrerà come utilizzare VBA per inserire righe e colonne in Excel.
Per inserire righe o colonne utilizzeremo il Metodo di inserimento.
Inserisci una singola riga o colonna
Inserisci nuova riga
Per inserire una singola riga, puoi utilizzare l'oggetto Righe:
| 1 | Righe(4).Inserisci |
Oppure puoi usare l'oggetto Range insieme a EntireRow:
| 1 | Intervallo ("b4"). Intera riga. Inserisci |
Inserisci nuova colonna
Simile all'inserimento di righe, possiamo utilizzare l'oggetto Columns per inserire una colonna:
| 1 | Colonne(4).Inserisci |
O l'oggetto intervallo, insieme a EntireColumn:
| 1 | Intervallo("b4").InteraColonna.Inserisci |
Inserisci più righe o colonne
Inserisci più righe
Quando si inseriscono più righe con l'oggetto Righe, è necessario inserire le righe tra virgolette:
| 1 | Righe("4:6").Inserisci |
L'inserimento di più righe con l'oggetto intervallo funziona come con una singola riga:
| 1 | Intervallo("b4:b6").EntireRow.Insert |
Inserisci più colonne
Quando si inseriscono più colonne con l'oggetto Colonne, inserire la colonna lettere tra virgolette:
| 1 | Colonne ("B: D"). Inserisci |
L'inserimento di più colonne con l'oggetto intervallo funziona come con una singola colonna:
| 1 | Intervallo("b4:d4").Colonna intera.Inserisci |
Inserisci - Maiusc e Copia Origine
Il Metodo di inserimento ha due argomenti opzionali:
- Spostare - In quale direzione spostare le celle
- CopiaOrigine - Quale formattazione della cella copiare (sopra, sotto, sinistra o destra)
L'argomento Shift è irrilevante quando si inseriscono intere righe o colonne. Ti consente solo di indicare di spostare verso il basso o verso destra:
- xlShiftDown - Sposta le celle verso il basso
- xlShiftToRight - Sposta le celle a destra
Come puoi vedere, non puoi spostarti verso l'alto o verso destra.
Il CopiaOrigine argomento ha due potenziali input:
- xlFormatFromLeftorAbove - (0) Le celle appena inserite prendono la formattazione dalle celle sopra o a sinistra
- xlFormatoda destrao sotto (1) Le celle appena inserite prendono la formattazione dalle celle in basso oa destra.
Diamo un'occhiata ad alcuni esempi di CopiaOrigine discussione. Ecco i nostri dati iniziali:
Questo esempio inserirà una riga, prendendo la formattazione dalla riga sopra.
| 1 | Righe(5).Insert , xlFormatFromLeftOrAbove |
Questo esempio inserirà una riga, prendendo la formattazione dalla riga sottostante.
| 1 | Righe(5).Insert , xlFormatFromRightOrBelow |
Altri esempi di inserimento
Inserisci righe o colonne copiate
Se desideri inserire una riga copiata, utilizzerai un codice come questo:
| 12 | Intervallo ("1:1"). CopiaIntervallo ("5:5"). Inserisci |
Qui copiamo la riga 1 e la inseriamo nella riga 5.
Inserisci righe in base al valore della cella
Questo eseguirà un ciclo attraverso un intervallo, inserendo righe in base ai valori delle celle:
| 1234567891011 | Sub InsertRowswithSpecificValue()Cella debole come intervalloPer ogni cella nell'intervallo ("b2: b20")If cell.Value = "insert" Thencell.EntireRow.InsertFinisci seCella successivaFine sottotitolo |
Elimina righe o colonne
Per eliminare righe o colonne, usa semplicemente il Elimina metodo.
| 1234567 | Righe(1).EliminaIntervallo ("a1"). Intera riga. EliminaColonne(1).EliminaIntervallo("a1").Colonna Intera.Elimina |
