Colonna Inserisci VBA di Excel

In Excel, se vogliamo inserire una colonna, ci sono molti modi per farlo. Possiamo fare clic con il tasto destro e selezionare Inserisci colonna dall'elenco del menu a discesa o usando contemporaneamente Ctrl + Maiusc + Tasto Più (+). Ma cosa succede se automatizziamo anche questo processo creando una macro tramite VBA? Ciò è molto utile quando stiamo lavorando alla creazione di una macro con un'enorme struttura di codifica o all'aggiunta di una o più colonne che è anche un'attività da eseguire. VBA ha un'intera colonna e la funzione Inserisci viene utilizzata per inserire una nuova colonna.

Come inserire la colonna in Excel VBA?

Impareremo come inserire una colonna in Excel usando il codice VBA con alcuni esempi.

È possibile scaricare questo modello Excel VBA Inserisci colonna qui - Modello VBA Inserisci colonna Excel

Esempio n. 1 - Inserisci colonna VBA

Abbiamo una tabella di 2 colonne e 11 righe come mostrato di seguito. Ora automatizzeremo il processo di inserimento delle colonne in diversi modi.

Per questo, seguire i passaggi seguenti:

Passaggio 1: inserire innanzitutto un nuovo modulo in VBA, dall'opzione di menu Inserisci come mostrato di seguito.

Passaggio 2: ora avvia una sottocategoria nel nome della funzione eseguita come Inserisci colonna VBA o in qualsiasi altro nome come mostrato di seguito.

Codice:

 Sub VBAColumn1 () End Sub

Passaggio 3: Innanzitutto, seleziona l'intervallo di celle o completa le colonne in cui vogliamo inserire una colonna seguita dal comando Inserisci come mostrato di seguito. Il comando Inserisci consentirà di inserire qualsiasi riga o colonna o una cella nella colonna o cella Intervallo selezionato.

Codice:

 Intervallo VBAColumn1 () secondario ("B: B"). Inserisci fine sub

Passaggio 4: ora seleziona l'intervallo di celle come riferimento dal punto in cui vogliamo inserire una colonna come mostrato di seguito.

Codice:

 Sub VBAColumn1 () Range ("B: B"). Inserisci intervallo ("B4") End Sub

Passaggio 5 : Come discusso nella spiegazione, utilizzeremo l'intera colonna con la funzione Inserisci come mostrato di seguito. Ciò consentirà di inserire la colonna.

Codice:

 Intervallo VBAColumn1 () secondario ("B: B"). Inserisci intervallo ("B4"). InteroColonna.Inserisci Sottotitolo

Passaggio 6: compilare ora il codice premendo il tasto funzionale F8 e quindi fare clic sul pulsante Riproduci per eseguire il codice completo che si trova sotto la barra dei menu, come mostrato di seguito. Noteremo tra la colonna 1 e la colonna 2, verranno inserite due nuove colonne vuote come mostrato di seguito.

Esempio n. 2 - Inserisci colonna VBA

Esiste un altro metodo per inserire una colonna. Questo metodo include una combinazione di vari comandi.

Passaggio 1: inserire un nuovo modulo dal menu Inserisci.

Passaggio 2: scrivere una sottocategoria nel nome della funzione Eseguita come mostrato di seguito o in qualsiasi altro nome.

Codice:

 Sub VBAColumn2 () End Sub

Passaggio 3: con l'aiuto della variabile di dimensione DIM con qualsiasi alfabeto o nome, definiscilo come intervallo, diciamo Colonna come mostrato di seguito.

Codice:

 Sub VBAColumn2 () Dim Column As Range End Sub

Passaggio 4: Ora seguendo l'intervallo, utilizzare una funzione Set con la colonna della dimensione definita come mostrato di seguito, seguita dal segno di uguale ("=").

Codice:

 Sub VBAColumn2 () Dim Column As Range: Set Column = End Sub

Passaggio 5: ora utilizza la funzione Applicazione incorporata VBA con intervallo definito di colonna B. completa

Codice:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") End Sub

Passaggio 6: ora utilizza la variabile Colonna con la funzione Inserisci come mostrato di seguito.

Codice:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert End Sub

Passaggio 7: possiamo spostare per inserire una colonna nella direzione destra o sinistra con l'aiuto del comando Maiusc. Normalmente la colonna viene inserita nella direzione Destra sempre dalla cella o colonna selezionata di riferimento.

Codice:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Passaggio 8: selezionare infine il formato di riferimento dell'origine da destra o in basso, che è per Colonna o Riga a seconda del tipo di inserto.

Codice:

 Sub VBAColumn2 () Dim Column As Range: Set Column = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Passaggio 9: ora è completato. Possiamo compilare il codice ed eseguirlo. Vedremo una nuova colonna tra Colum1 e Column2 verrà aggiunta come mostrato di seguito.

Esempio n. 3 - Inserisci colonna VBA

Questo esempio è un altro modo più semplice per inserire una colonna in VBA.

Passaggio 1: inserire un nuovo modulo

Passaggio 2: aggiungi una sottocategoria nel nome della colonna Inserisci VBA come mostrato di seguito.

Codice:

 Sub VBAColumn3 () End Sub

Passaggio 3: selezionare innanzitutto la colonna o il riferimento di cella in cui si desidera aggiungere una colonna con l'aiuto di Seleziona, come mostrato di seguito.

Codice:

 Colonne VBAColumn3 () secondarie ("B: B"). Seleziona End Sub

Passaggio 4: nella seconda riga, utilizzare il comando Selezione insieme alla funzione Inserisci come mostrato di seguito.

Codice:

 Colonne VBAColumn3 () secondarie ("B: B"). Seleziona Selection.Insert End Sub

Passaggio 5: selezionare infine la posizione in cui si desidera spostare la nuova colonna inserita, a destra oa sinistra con l'aiuto della funzione Maiusc. La scelta di inserire una nuova colonna dipende dal requisito dell'individuo.

Codice:

 Colonne VBAColumn3 () secondarie ("B: B"). Seleziona Selection.Insert Shift: = xlToRight End Sub

Passaggio 6: questo completa il nostro codice. Ora possiamo compilare il codice per scoprire se c'è qualche errore. Se non viene trovato alcun errore, eseguire il codice. Vedremo una nuova colonna verrà aggiunta tra colonna1 e colonna2 come mostrato di seguito.

Esempio n. 4 - Inserisci colonna VBA

In questo esempio, impareremo come aggiungere nuove colonne dopo ogni colonna già in piedi.

Passaggio 1: ora inserire un modulo dal menu Inserisci.

Passaggio 2: Successivamente aggiungi la sottocategoria nel nome della colonna Inserisci VBA con una sequenza di numeri.

Codice:

 Sub VBAColumn4 () End Sub

Passaggio 3: ora utilizzare DIM per definire una variabile con qualsiasi nome. Abbiamo usato la colonna come numero intero (in caso di utilizzo di numeri)

Codice:

 Sub VBAColumn4 () Dim Column As Integer End Sub

Passaggio 4: a una colonna dopo ogni colonna riempita, selezioneremo e useremo la colonna (2) per aggiungere una nuova colonna come mostrato di seguito.

Codice:

 Sub VBAColumn4 () Dim Column As Integer Columns (2). Selezionare End Sub

Passaggio 5: apri un ciclo For-Next, in cui scriveremo le condizioni per inserire una colonna una dopo l'altra come mostrato.

Codice:

 Sub VBAColumn4 () Colonna attenuata come colonne intere (2). Selezionare per Sottotitolo successivo

Passaggio 6: poiché nei dati di esempio sono presenti solo 2 colonne, è possibile aggiungere solo una nuova colonna di tali colonne. Quindi stiamo usando da 0 a 2 intervalli di colonne di sequenza.

Codice:

 Sub VBAColumn4 () Dim Column As Integer Columns (2) .Seleziona per colonna = da 0 a 2 Next End Sub

Passaggio 7: con l'aiuto della funzione ActiveCell, utilizzare CompleteColumn per inserire come mostrato di seguito.

Codice:

 Sub VBAColumn4 () Dim Column come Integer Columns (2). Selezionare For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub

Passaggio 8: con l'aiuto della funzione ActiveCell, utilizzare Offset per posizionare la colonna appena aggiunta. Stiamo usando la posizione 0 e 2 ° .

Codice:

 Sub VBAColumn4 () Colonna attenuata come colonne intere (2). Seleziona per colonna = 0 a 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Seleziona il sottotitolo successivo

Passaggio 9: compilare ora il codice ed eseguirlo, se non viene trovato alcun errore. Vedremo, dopo colonna1 e colonna2, che vengono aggiunte nuove colonne.

Pro di Excel VBA Insert Column

  • È utile aggiungere rapidamente una nuova colonna in qualsiasi intervallo di celle.
  • È facile da implementare anche se la struttura del codice è enorme.
  • Se stiamo lavorando su un codice enorme, una nuova colonna diventa una necessità per completare il codice, utilizzando gli esempi sopra renderà il compito facile.

Cose da ricordare

  • Se stai usando l'esempio 4, ricorda di selezionare l'intervallo di colonne fino a quando la tabella non è applicabile.
  • Salvando il file in macro abilita Excel, salva il codice.
  • Inserisci solo le colonne applicabili e richieste per evitare colonne non necessarie da aggiungere.

Articoli consigliati

Questa è una guida alla colonna Inserisci VBA. Qui discutiamo come inserire la colonna in Excel usando il codice VBA insieme ad esempi pratici e template Excel scaricabili. Puoi anche consultare i nostri altri articoli suggeriti:

  1. VBA VLOOKUP, funzione
  2. Funzione DCOUNT in Excel
  3. Copia incolla VBA
  4. Funzione COMBIN in Excel

Categoria:

VBA