Como inserir múltiplas colunas usando vba

Você pode usar a seguinte sintaxe para inserir várias colunas no Excel usando VBA:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Esta macro específica irá inserir três colunas vazias no intervalo D a F da planilha chamada Plan1 e empurrar todas as colunas existentes para a direita.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: como inserir múltiplas colunas usando VBA

Suponha que temos o seguinte conjunto de dados contendo informações sobre vários jogadores de basquete:

Suponha que queiramos inserir três colunas vazias começando pela coluna B.

Podemos criar a seguinte macro para fazer isso:

 Sub InsertMultipleColumns()
Worksheets(" Sheet1 ").Range(" B:D ").EntireColumn.Insert
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que três colunas em branco foram inseridas nos locais das colunas B, C e D desta planilha chamada Sheet1 .

Os valores que existiam anteriormente nas colunas B, C e D foram simplesmente empurrados para a direita.

Nota : Você pode encontrar a documentação completa para a função Inserir do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como encontrar a última linha usada
VBA: Como contar o número de linhas no intervalo
VBA: Como contar o número de colunas usadas