Como selecionar cada enésima coluna no Excel?

Por exemplo, você tem uma grande planilha com centenas de colunas de dados. E agora, você precisa copiar os dados de cada 3ª coluna e colá-los em outra nova planilha. Será demorado selecionar cada enésima coluna, uma por uma, e existe alguma maneira fácil de fazer isso?

Selecione cada enésima coluna com VBA

Selecione cada enésima coluna com o Kutools para Excel

Selecione cada enésima coluna com VBA

Parece uma maneira simples, exceto o código VBA, de resolver esse problema. Siga as seguintes etapas:

1. Destaque o intervalo que deseja selecionar a cada enésima coluna.

2.Clique Developer > Visual Basic ou pressione Alt + F11, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Módulo para inserir o seguinte código no módulo:

Sub EveryOtherColumn()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xInterval As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xInterval = Application.InputBox("Enter column interval", xTitleId, Type:=1)
For i = 1 To InputRng.Columns.Count Step xInterval + 1
    Set rng = InputRng.Cells(1, i)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireColumn.Select
End Sub

3. Então clique  para executar o código e uma caixa de prompt aparecerá para lembrá-lo de selecionar um intervalo com o qual trabalhar. Veja a imagem:

4. Clique OKe, em seguida, insira o número de intervalos em outra caixa de diálogo pop-out. Nesse caso, digite 3 na caixa. Veja a imagem:

5. Clique OK. Agora ele seleciona cada 3ª coluna na seleção. Veja a imagem:

Note: Você pode especificar o número no segundo Kutools para Excel diálogo para atender às suas necessidades.

Mas às vezes, você precisa selecionar duas colunas com dois intervalos. O código acima não pode funcionar, como você deve fazer?

Selecione cada enésima coluna com o Kutools para Excel

Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Obtê-lo agora.

Com o Kutools for Excel, você pode selecionar um número específico de colunas em intervalos específicos. Siga as seguintes etapas:

1.Clique Kutools > Selecionar > Selecione Interval Rows / Columns.

2. A Selecione Interval Rows / Columns a caixa de diálogo aparecerá. Então clique botão para selecionar o intervalo que você precisa, escolha colunas da Selecione a seçãoe especifique o número que deseja no Intervalo de e a colunas lista suspensa, aqui selecionamos duas colunas em cada coluna 3td. Veja a imagem:

3.Clique OK. Ele irá selecionar duas colunas com dois intervalos na seleção. Veja a imagem:

Note: Se você marcar Selecione colunas inteiras na caixa de diálogo pop-up, ele selecionará todas as colunas da planilha. Veja a imagem:

Artigos relativos:

• Selecione cada outra ou enésima linha no Excel
• Copie todas as outras linhas
• Exclua todas as outras linhas
• Esconder todas as outras linhas