Ir para o conteúdo principal

Como inserir um número específico de colunas em intervalos fixos no Excel?

Em seu uso diário do Excel, você pode se deparar com uma situação em que precisa adicionar mais colunas entre as colunas existentes. Você pode, é claro, inserir as colunas uma a uma usando a função Inserir. Mas quando você está enfrentando um grande volume de dados e precisa inserir três colunas após cada segunda ou enésima coluna, a função Inserir aparentemente não é eficaz. Então, como você pode terminar rapidamente a tarefa? Neste tutorial, falaremos sobre dois métodos fáceis para resolver o problema.

Insira um número específico de colunas em branco no intervalo de dados em intervalos fixos com código VBA

Insira um número específico de colunas em branco no intervalo de dados em intervalos fixos com um recurso incrível


Insira um número específico de colunas em branco no intervalo de dados em intervalos fixos com código VBA

Podemos usar o abaixo Código VBA para inserir um número específico de colunas em branco após cada enésima coluna. Por favor, faça o seguinte.

1. aperte o Alt + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo e cole a macro a seguir no Módulo Janela.

Código VBA: insira um número específico de colunas nos dados em intervalos fixos

Sub InsertColumnsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xColumns As Integer
Dim xColumnsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xColumnsCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)
xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xColumns + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xColumnsCount / xInterval)
    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select
   Application.Selection.EntireColumn.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. aperte o F5 chave para executar este código. Uma caixa de prompt aparece para lembrá-lo de selecionar o intervalo de dados em que você deseja inserir colunas em branco.
doc inserir-colunas-em-intervalos 1

4. Clique na OK botão. Outra caixa de prompt aparece, por favor digite o número de intervalos de colunas no Digite o intervalo da coluna caixa.
doc inserir-colunas-em-intervalos 2

5. Continue a clicar no OK botão. A terceira caixa de prompt aparece, por favor especifique o número de colunas que você deseja inserir em cada intervalo na caixa.
doc inserir-colunas-em-intervalos 3

6. Clique na OK botão para obter o resultado.
doc inserir-colunas-em-intervalos 4


Insira um número específico de colunas em branco no intervalo de dados em intervalos fixos com um recurso incrível

Se você não quiser usar o método de código VBA, o Inserir linhas e colunas em branco característica de Kutools for Excel é a solução perfeita para você. Com esse recurso, você pode inserir o número específico de colunas no intervalo de dados em intervalos fixos com apenas alguns cliques.

Antes de aplicar Kutools for Excel, faça o download e instale-o primeiro.

1. Selecione primeiro o intervalo de dados existente. Então clique Kutools > inserção > Inserir linhas e colunas em branco.
doc inserir-colunas-em-intervalos 5

2. A Inserir linhas e colunas em branco caixa de diálogo aparece. Você pode ver o intervalo de dados selecionado na etapa 1 exibido na caixa Intervalo. Escolha o Colunas em branco opção no Tipo de inserção seção. E especifique os números de intervalos de colunas e colunas que você deseja inserir em cada intervalo. Aqui eu insiro 1 e 3 separadamente.
doc inserir-colunas-em-intervalos 6

3. Clique na OK botão para terminar a configuração e obter o resultado.
doc inserir-colunas-em-intervalos 7

Note: Se você deseja ter uma avaliação gratuita (30 dias) deste utilitário, clique para baixá-lo e, em seguida, vá para aplicar a operação de acordo com as etapas acima.


Outras operações (artigos)

Como inserir rapidamente uma linha com base na data atual no Excel?
Supondo que haja uma planilha contendo uma linha com datas, e agora eu queira inserir uma linha diretamente para a data atual, que mudará automaticamente ao abrir a pasta de trabalho todos os dias. Existe um truque para resolver isso no Excel?

Como sempre inserir uma linha em branco abaixo em vez de acima no Excel?
Como todos sabemos, ao inserir uma linha em branco em uma planilha, a linha em branco sempre será inserida acima da linha ou célula selecionada. Mas, às vezes, você pode precisar inserir a linha abaixo da célula ou linha selecionada. Como você resolveria esse trabalho no Excel?

Como inserir uma nova linha em branco automaticamente pelo botão de comando no Excel?
Em muitos casos, pode ser necessário inserir uma nova linha em branco em uma posição especificada da planilha. Neste artigo, mostraremos como inserir uma nova linha em branco automaticamente clicando em um botão de comando no Excel.

Como inserir uma linha em branco após um texto específico no Excel?
Se você deseja inserir linhas em branco após um texto específico, como mostrado a seguir, como lidar com isso de forma rápida e fácil sem inseri-las manualmente uma por uma?


  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas e manutenção de dados; Dividir o conteúdo das células; Combine Linhas Duplicadas e Soma / Média... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Fórmulas favoritas e de inserção rápida, Intervalos, gráficos e imagens; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Agrupamento de tabela dinâmica por número da semana, dia da semana e mais ... Mostrar células desbloqueadas, bloqueadas por cores diferentes; Destacar células que possuem fórmula / nome...
guia kte 201905
  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations