Note: The other languages of the website are Google-translated. Back to English
Registo de cliente  \/ 
x
or
x
Registe-se  \/ 
x

or

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 cada outra ou enésima linha 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 Desenvolvedor > 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-3botã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 KutoolsforExcel diálogo.


Selecione cada outra ou enésima linha 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-7botão para selecionar o intervalo que você precisa, escolha Rows or Columns de 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

notas:
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ésimas linhas 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:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • 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 sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... 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 ...
  • 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...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    arrbeejay · 4 years ago
    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".
    • To post as a guest, your comment is unpublished.
      FREDRIK · 4 years ago
      Also I don't get how "Set" and "Step" could ever work together
    • To post as a guest, your comment is unpublished.
      FREDRIK · 4 years ago
      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.
  • To post as a guest, your comment is unpublished.
    Fredrik · 4 years ago
    Replace
    OutRng.EntireRow.Select
    with
    Intersect(OutRng.EntireRow, InputRng).Select
    if you want every other row within your selection
  • To post as a guest, your comment is unpublished.
    Nata · 5 years ago
    really good, thanks!
  • To post as a guest, your comment is unpublished.
    Jon · 5 years ago
    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.
    • To post as a guest, your comment is unpublished.
      David · 5 years ago
      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
      • To post as a guest, your comment is unpublished.
        Duda · 4 years ago
        Nice, thanks, this was very helpful ^_^
  • To post as a guest, your comment is unpublished.
    ali · 6 years ago
    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.
  • To post as a guest, your comment is unpublished.
    Daear · 8 years ago
    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!
  • To post as a guest, your comment is unpublished.
    Christian · 8 years ago
    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.
    • To post as a guest, your comment is unpublished.
      Bangashp · 28 days ago
      I need to select multiple rows and a fixed interval and move to the other sheet please answer me as soon as possible