Ir para o conteúdo principal

Como selecionar todas as outras ou as enésimas linhas no Excel?

Quando usamos uma planilha, às vezes, precisamos selecionar cada outra ou enésima linha da planilha para formatação, exclusão ou cópia. Você pode selecioná-los manualmente, mas se houver centenas de linhas, esse método não é uma boa escolha. Aqui estão alguns truques para ajudá-lo.

Selecione cada outra ou enésima linha com VBA

Selecione todas as outras ou enésimas linhas com o Kutools para Excelboa ideia 3


Selecione cada outra ou enésima linha com VBA

Neste exemplo, selecionarei uma linha com dois intervalos. Com o código VBA, posso terminar da seguinte maneira:

1. Realce o intervalo que deseja selecionar a cada duas ou enésima linha.

2.Clique Developer > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe insira o seguinte código no módulo:

Sub EveryOtherRow()
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 row interval", xTitleId, Type:=1)
For i = 1 To InputRng.Rows.Count Step xInterval + 1
    Set rng = InputRng.Cells(i, 1)
    If OutRng Is Nothing Then
        Set OutRng = rng
    Else
        Set OutRng = Application.Union(OutRng, rng)
    End If
Next
OutRng.EntireRow.Select
End Sub

3. Em seguida, clique doc-multiplicação-cálculo-3 botão para executar o código. E uma caixa de diálogo é exibida para você selecionar um intervalo. Veja a imagem:



4. Clique OKe, neste caso, introduzo 3 na outra caixa de diálogo pop-out como a linha do intervalo. Veja a imagem

5. Clique OK, e cada terceira linha foi selecionada. Veja a imagem:

Você pode alterar o intervalo conforme sua necessidade no segundo Kutools para Excel diálogo.


Selecione todas as outras ou enésimas linhas com o Kutools para Excel

Com o código VBA, você pode selecionar apenas uma linha com intervalos especificados, se você precisar selecionar duas, três ou outras linhas com intervalos especificados, o Kutools for Excel pode ajudá-lo a resolver este problema de forma fácil e conveniente.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Clique Kutools > Select > Select Interval Rows & Columns…, Veja a imagem:

doc selecione todas as outras linhas 8

2. No  Select Interval Rows & Columns caixa de diálogo, cliquedoc-substituir-nomes-de-intervalo-7 botão para selecionar o intervalo que você precisa, escolha Rows or Columns da Select seçãoe especifique o número que deseja no Interval of caixa de entrada e Rows caixa de entrada. Veja a imagem:

doc selecione todas as outras linhas 9

doc selecione todas as outras linhas 10

Observações:
1. Se você precisar selecionar todas as outras linhas na seleção, insira 2 na caixa Intervalos de entrada e 1 na Rows caixa de entrada.

2. Se você deseja selecionar toda a linha de que precisa, pode marcar Select entire rows opção.
doc selecione todas as outras linhas 11


Sombreie todas as outras linhas ou enésima linha com o Kutools para Excel

Se você quiser sombrear intervalos em todas as linhas para que os dados pareçam mais destacados como mostrado abaixo na captura de tela, você pode aplicar Kutools for Excel'S Alternate Row/Column Shading função para lidar rapidamente com o trabalho.

doc selecione todas as outras linhas 12
doc seta para baixo
doc selecione todas as outras linhas 13

Depois de instalação grátis Kutools para Excel, faça o seguinte:

1. Selecione o intervalo de células que deseja graduar, clique Kutools > Format > Alternate Row/Column Shading.
doc selecione todas as outras linhas 14

2. No Alternate Row/Column Shading diálogo, faça o seguinte:

1) Selecione as linhas ou colunas que deseja sombrear;

2) Escolha Conditional formatting or formatação padrão como você precisa;

3) Especifique o intervalo de sombreamento;

4) Escolha uma cor de sombreamento.
doc selecione todas as outras linhas 15

3. Clique Ok. Agora, o intervalo foi sombreado em cada enésima linha.

Se você quiser remover o sombreamento, marque Remover sombreamento de linha alternativo existente opção em Sombreamento alternativo de linha / coluna diálogo.


Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • 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!
Comments (12)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Help, please. This looks great, BUT when I hit the > Run button it fails with a "Compile error: Sub or Function not defined" and the code stopped at "Set rng = InputRng.Rows.Count Step xInterval +1".
This comment was minimized by the moderator on the site
Also I don't get how "Set" and "Step" could ever work together
This comment was minimized by the moderator on the site
Not sure that I will be able to help, but.. First of, there is a spacing between "C" and "ount" in "Count" when i copied your code string over to a module. Secondly, I can´t find your code anywhere else on this page, please submit the whole thing, if the problem remains.
This comment was minimized by the moderator on the site
Replace OutRng.EntireRow.Select with Intersect(OutRng.EntireRow, InputRng).Select if you want every other row within your selection
This comment was minimized by the moderator on the site
really good, thanks!
This comment was minimized by the moderator on the site
The code has one request. Does it have to select the ENTIRE ROW for each nth row? Can't it just select certain cells (range of cells) within each nth row? I don't need all the information in each row. Just certain cells of each nth row.
This comment was minimized by the moderator on the site
I made the modifications below to select 30 rows Sub EveryOtherRow() 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 row interval", xTitleId, Type:=1) For i = 1 To InputRng.Rows.Count Step xInterval + 1 Set rng = InputRng.Cells(i, 1).Resize(, 30) 'Resize to the number of columns to select, 30 in this case If OutRng Is Nothing Then Set OutRng = rng Else Set OutRng = Application.Union(OutRng, rng) End If Next OutRng.Select 'Use OutRng.EntireRow.Select to select the entire row End Sub
This comment was minimized by the moderator on the site
Nice, thanks, this was very helpful ^_^
This comment was minimized by the moderator on the site
fanatastic. thanks a lot.it works perfect.I have more than 7000 data that need to select them with different interval.this trick was like a miracle for me.thaaaaaaaanks.
This comment was minimized by the moderator on the site
I'm trying to use the VBA macro in Excel 2010. It will only select the first nth row, not all of them in the selection. If I run it again, it will go to the next. Any idea what I'm doing wrong? Thanks!
This comment was minimized by the moderator on the site
Just saved my ass with this code thanks! My matlab decided to randomly stop working and so I had to resort to excel which I am not as familiar with as with Matlab. This def. helped. Thanks.
This comment was minimized by the moderator on the site
I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible 
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations