Coluna de inserção do VBA do Excel

No excel, se queremos inserir uma coluna, existem várias maneiras de fazê-lo. Podemos clicar com o botão direito e selecionar Inserir coluna na lista do menu suspenso ou usando as teclas Ctrl + Shift + Plus (+) juntas. Mas e se automatizarmos esse processo também criando uma macro por meio do VBA? Isso é bastante útil quando estamos trabalhando na criação de uma macro de grande estrutura de codificação ou na adição de uma coluna ou várias colunas, que também é uma tarefa a ser executada. O VBA possui uma coluna inteira e a função Inserir é usada para inserir uma nova coluna.

Como inserir uma coluna no Excel VBA?

Vamos aprender como inserir uma coluna no Excel usando o código VBA com alguns exemplos.

Você pode fazer o download deste modelo de Excel de coluna de inserção do VBA aqui - Modelo de Excel de coluna de inserção do VBA

Exemplo # 1 - Coluna de inserção do VBA

Temos uma tabela de 2 colunas e 11 linhas, como mostrado abaixo. Agora vamos automatizar o processo de inserção de colunas de diferentes maneiras.

Para isso, siga as etapas abaixo:

Etapa 1: primeiro insira um novo módulo no VBA, na opção de menu Inserir, como mostrado abaixo.

Etapa 2: Agora inicie uma subcategoria no nome da função executada, como VBA Insert Column ou em qualquer outro nome, como mostrado abaixo.

Código:

 Sub VBAColumn1 () End Sub

Etapa 3: primeiro, selecione o intervalo de células ou as colunas completas nas quais queremos inserir uma coluna seguida pelo comando Inserir, como mostrado abaixo. O comando Inserir permitirá inserir qualquer linha ou coluna ou célula na coluna ou célula do intervalo selecionado.

Código:

 Sub VBAColumn1 () Range ("B: B"). Insert End Sub

Etapa 4: agora selecione o intervalo de células como uma referência de onde queremos inserir uma coluna, como mostrado abaixo.

Código:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4") End Sub

Etapa 5 : Como discutido na explicação, usaremos a Coluna inteira com a função Inserir, como mostrado abaixo. Isso permitirá que a coluna seja inserida.

Código:

 Sub VBAColumn1 () Range ("B: B"). Insert Range ("B4"). WholeColumn.Insert End Sub

Etapa 6: Agora compile o código pressionando a tecla funcional F8 e clique no botão Play para executar o código completo abaixo da barra de menus, como mostrado abaixo. Notaremos que entre a coluna1 e a coluna2, duas novas colunas em branco serão inseridas, como mostrado abaixo.

Exemplo # 2 - Coluna de inserção do VBA

Existe outro método para inserir uma coluna. Este método inclui uma combinação de vários comandos.

Etapa 1: Insira um novo módulo no menu Inserir.

Etapa 2: E escreva uma subcategoria no nome da função Executada, como mostrado abaixo ou em qualquer outro nome.

Código:

 Sub VBAColumn2 () End Sub

Etapa 3: Com a ajuda da variável de dimensão DIM com qualquer alfabeto ou nome, defina-a como Intervalo, digamos Coluna, como mostrado abaixo.

Código:

 Sub VBAColumn2 () Dim Dim como intervalo End Sub

Etapa 4: Agora, seguindo o intervalo, use uma função Set com a coluna de dimensão definida, como mostrado abaixo, seguido pelo sinal de igual (“=”).

Código:

 Sub VBAColumn2 () Dim a coluna como intervalo: Set Column = End Sub

Etapa 5: Agora use a função Aplicativo, que é VBA interno com intervalo definido da coluna B.

Código:

 Sub coluna VBAColumn2 () Dim como intervalo: definir coluna = Application.Range ("B: B") End Sub

Etapa 6: Agora use a variável Column com a função Insert, como mostrado abaixo.

Código:

 Sub coluna VBAColumn2 () Dim como intervalo: definir coluna = Application.Range ("B: B") Column.Insert End Sub

Etapa 7: Podemos mudar para inserir uma coluna na direção direita ou esquerda com a ajuda do comando Shift. Normalmente, a coluna é inserida na direção direita sempre da célula ou coluna de referência selecionada.

Código:

 Sub coluna VBAColumn2 () Dim como intervalo: definir coluna = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, End Sub

Etapa 8: Por fim, selecione o formato de referência de origem à direita ou abaixo, que é para Coluna ou Linha, dependendo do tipo de inserção.

Código:

 Sub coluna VBAColumn2 () Dim como intervalo: definir coluna = Application.Range ("B: B") Column.Insert Shift: = xlShiftToRight, CopyOrigin: = xlFormatFromRightOrBelow End Sub

Etapa 9: Agora está concluído. Podemos compilar o código e executá-lo. Veremos uma nova coluna entre Colum1 e Column2 será adicionada como mostrado abaixo.

Exemplo # 3 - Coluna de inserção do VBA

Este exemplo é outra maneira mais fácil de inserir uma coluna no VBA.

Etapa 1: Inserir um novo módulo

Etapa 2: adicione uma subcategoria no nome da coluna de inserção do VBA, como mostrado abaixo.

Código:

 Sub VBAColumn3 () End Sub

Etapa 3: primeiro selecione a referência da coluna ou célula na qual queremos adicionar uma coluna com a ajuda de Selecionar, como mostrado abaixo.

Código:

 Sub VBAColumn3 () Columns ("B: B"). Selecione End Sub

Etapa 4: na segunda linha, use o comando Seleção junto com a função Inserir, como mostrado abaixo.

Código:

 Sub VBAColumn3 () Columns ("B: B"). Selecione Selection.Insert End Sub

Etapa 5: Por fim, selecione a posição em que queremos mudar a nova coluna inserida, direita ou esquerda, com a ajuda da função Shift. A seleção da colocação de uma nova coluna está de acordo com os requisitos do indivíduo.

Código:

 Sub VBAColumn3 () Columns ("B: B"). Selecione Selection.Insert Shift: = xlToRight End Sub

Etapa 6: isso completa nosso código. Agora podemos compilar o código para descobrir se há algum erro. Se não houver nenhum erro, execute o código. Veremos que uma nova coluna será adicionada entre a coluna1 e a coluna2, como mostrado abaixo.

Exemplo # 4 - Coluna de inserção do VBA

Neste exemplo, aprenderemos como adicionar novas colunas após cada coluna já em pé.

Etapa 1: Agora insira um módulo no menu Inserir.

Etapa 2: depois disso, adicione a subcategoria no nome da VBA Insert Column com uma sequência de números.

Código:

 Sub VBAColumn4 () End Sub

Etapa 3: Agora use o DIM para definir uma variável em qualquer nome. Usamos Column como Inteiro (no caso de números serem usados)

Código:

 Sub VBAColumn4 () Dim coluna como número inteiro final Sub

Etapa 4: em uma coluna após cada coluna preenchida, selecionaremos e usaremos a Coluna (2) para adicionar uma nova coluna, como mostrado abaixo.

Código:

 Sub VBAColumn4 () Dim Dim como colunas inteiras (2) .Select End Sub

Etapa 5: abra um loop For-Next, onde escreveremos as condições para inserir uma coluna uma após a outra, como mostrado.

Código:

 Sub VBAColumn4 () Dim Dim como colunas inteiras (2) .Select For Next End Sub

Etapa 6: como temos apenas 2 colunas em nossos dados de amostra, poderíamos adicionar apenas uma nova coluna apenas dessas colunas. Portanto, estamos usando o intervalo de 0 a 2 das colunas de sequência.

Código:

 Sub VBAColumn4 () Dim Dim como colunas inteiras (2) .Select For Column = 0 To 2 Next End Sub

Etapa 7: Com a ajuda da função ActiveCell, use WholeColumn para inserir como mostrado abaixo.

Código:

 Coluna Dim VBAColumn4 () Dim como colunas inteiras (2). Selecione For Column = 0 To 2 ActiveCell.EntireColumn.Insert Next End Sub

Etapa 8: Com a ajuda da função ActiveCell, use Deslocamento para colocar a coluna recém-adicionada. Estamos usando a posição 0 e 2.

Código:

 Sub VBAColumn4 () Dim Dim como Colunas Inteiras (2). Selecione For Column = 0 To 2 ActiveCell.EntireColumn.Insert ActiveCell.Offset (0, 2). Selecione Next End Sub

Etapa 9: Agora compile o código e execute-o, se nenhum erro for encontrado. Veremos, após a coluna1 e a coluna2, novas colunas são adicionadas.

Profissionais da coluna de inserção do Excel VBA

  • É útil como adicionar rapidamente uma nova coluna em qualquer intervalo de células.
  • É fácil de implementar, mesmo que a estrutura do código seja enorme.
  • Se estivermos trabalhando em um código enorme, uma nova coluna se tornará uma necessidade para concluir o código, usando os exemplos acima, a tarefa será fácil.

Coisas para lembrar

  • Se você estiver usando o exemplo-4, lembre-se de selecionar o intervalo da coluna até que a tabela seja aplicável.
  • Salvar o arquivo na macro permite ativar o Excel, salva o código.
  • Insira apenas as colunas aplicáveis ​​e necessárias para evitar a adição de colunas desnecessárias.

Artigos recomendados

Este é um guia para a coluna de inserção do VBA. Aqui discutimos como inserir coluna no Excel usando o código VBA, juntamente com exemplos práticos e modelo de excel para download. Você também pode consultar nossos outros artigos sugeridos -

  1. Função VBA VLOOKUP
  2. Função DCOUNT no Excel
  3. Colar de cópia do VBA
  4. Função COMBIN no Excel

Categoria:

VBA