Selecionar linhas alternadas (ou a cada enésima) – Excel e Planilhas Google

Este tutorial demonstrará como obter um valor de linhas alternadas (ou a cada enésima) no Excel e no Google Sheets.

Identificar linhas pares

Para identificar as linhas pares, podemos usar a função MOD para saber se a linha é divisível por um determinado número. Aqui, usaremos 2 para identificar cada outra linha (par/ímpar).

=MOD(LIN(B3);2)

Abaixo, faremos um passo a passo.

Função ROW – Retorna o número da linha

Primeiro, usaremos a função ROW para nos informar em qual linha estamos:

=ROW(B3)

Na próxima seção, usaremos a função MOD para nos informar se o número da linha é divisível por um determinado número, neste caso – 2.

Função MOD – Mostra se a linha é divisível por 2

A função MOD nos mostrará se a linha em que estamos é divisível por 2.

=MOD(C3;2)

A combinação dessas funções produz a fórmula original.

=MOD(LIN(B3);2)

Selecionar a cada enésima linha

Para obter a linha a cada 3 (n-ésima), mudamos o número a ser dividido para 3 (n).

=MOD(c3;3)

Podemos ativar o filtro para filtrar o resultado MOD necessário para mostrar linhas específicas.

 

Obter o Valor de Cada Enésima Linha

=DESLOC($B$3;(LIN(D1)*2)-1;0)

Abaixo, faremos um passo a passo desse procedimento.

Retornar a enésima linha

Primeiro, usaremos a função LIN para selecionar a 1ª linha. Ao copiar essa fórmula para baixo, o número da linha selecionada mudará dinamicamente conforme a fórmula.

=LIN(D1)

Na próxima seção, usaremos a função DESLOC para obter o valor da linha multiplicado pelo valor pelo qual você deseja compensar a linha.

=DESLOC($B$3;(D3*2)-1;0)

A combinação dessas funções produz a fórmula original.

=DESLOC($B$3;(LIN(E1)*2)-1;0)

Escrever código VBA

Podemos usar um procedimento VBA para percorrer um intervalo de células e retornar o valor de cada segunda ou enésima célula.

Sub SelectAltRows()
    Dim rng1 As Range
    Dim rng2 As Range
    Dim x As Integer
    Dim NoRws As Integer
    'select the range
    Set rng1 = Range("B1:B10")
    'count the rows
    NoRws = rng1.Rows.Count
    'loop through every second cell of the range
    For x = 1 To NoRws Step 2
	'put the value from column B into column C	
        rng1.Cells(x, 1).Offset(0, 1) = rng1.Cells(x, 1)
    Next
End Sub

O resultado da execução desse procedimento seria:

Selecionar linhas alternadas (ou a cada enésima) no Google Sheets

Essas fórmulas funcionam exatamente da mesma forma no Google Sheets e no Excel.