Como selecionar cada enésima coluna no Excel?
Por exemplo, tem uma folha de cálculo extensa com centenas de colunas de dados e precisa copiar os dados de cada 3.ª coluna para uma nova planilha. Será moroso selecionar manualmente cada enésima coluna — haverá uma forma mais fácil de o fazer?
Selecionar cada enésima coluna com VBA
Selecionar cada enésima coluna com Kutools para Excel
Selecionar cada enésima coluna com VBA
Parece não existir uma solução simples para este problema, a menos que recorra a código VBA. Siga os passos abaixo:
1. Destaque o intervalo a partir do qual pretende selecionar cada enésima coluna.
2. Clique em Programador > Visual Basic ou prima Alt+F11. Será apresentada uma nova janela do Microsoft Visual Basic para Aplicações. Clique em Inserir > Módulo para introduzir 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 Sub3. Em seguida, clique no botão 
para executar o código e aparecerá uma caixa de aviso a solicitar que selecione um intervalo para trabalhar. Veja a imagem:
4. Clique em OK e, de seguida, introduza o número de intervalos na outra caixa de diálogo que surge. Neste caso, introduza 3 na caixa. Veja a imagem:
5. Clique em OK. Agora, todas as 3.ªs colunas da seleção estão selecionadas. Veja a imagem:
Nota: Pode especificar o número na segunda caixa de diálogo do Kutools for Excel conforme as suas necessidades.
Mas por vezes é necessário selecionar duas colunas com dois intervalos. O código acima não funciona — o que deve fazer?
Selecionar cada enésima coluna com Kutools para Excel
Kutools para Excel: com mais de 300 complementos práticos para Excel, experimente gratuitamente sem limitações durante 30 dias.Obtenha já.
Com o Kutools para Excel, pode selecionar um número específico de colunas em intervalos regulares. Siga os passos seguintes:
1. Clique em Kutools > Selecionar > Selecionar Intervalo de Linhas/Colunas.
2. Aparecerá a caixa de diálogo Selecionar Intervalo de Linhas/Colunas. Em seguida, clique no botão 
para selecionar o intervalo pretendido, escolha Colunas na secção Selecionar e especifique o número pretendido nos campos Intervalo de e Colunas da lista suspensa; aqui, selecionamos duas colunas em cada grupo de 3.ªs colunas. Veja a imagem:
3. Clique em OK. Serão selecionadas duas colunas com dois intervalos na seleção. Veja a imagem:
Nota: Se ativar a opção Selecionar Coluna Inteira na caixa de diálogo que surge, serão selecionadas as colunas inteiras da folha para ordenação. Veja a imagem:
Artigos relacionados:
- Selecionar cada outra ou enésima linha no Excel
- Copiar cada outra linha
- Eliminar cada outra linha
- Ocultar cada outra linha
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos