Como posso manter cada quinta linha no Excel

Question

Eu tenho um conjunto de dados no excel com 3084 linhas. Preciso excluir quatro linhas e manter uma: excluindo terça, quarta, quinta e sexta-feira, mas mantendo a segunda-feira para criar um conjunto de dados semanal em vez de diário .

• Observação: os dados estão coincidindo com uma data e não um dia da semana , por isso não posso filtrar as terças-feiras e assim por diante [a data aparece como 14-jun-00 ]).

Existe alguma maneira de fazer isso sem ter que percorrer manualmente e excluir quatro linhas de cada vez?

    

Answer 1

Escolha uma coluna próxima e escreva =MOD(ROW(A1),5) na primeira linha. Isso preencherá todas as linhas dessa coluna com números de 0 a 4. Em seguida, basta autofilter as linhas que você deseja excluir:
Data > Filter > AutoFilter

Editar: Já que é uma data recorrente, você provavelmente também pode usar um curinga ao filtrar , ou seja, 14-*

    

Answer 2

Você também pode tentar uma solução VBA - pode ser necessário fazer pequenas modificações com base no seu problema, mas isso dá uma idéia geral. Esta sub-rotina assume que a primeira célula na primeira linha está ativada e, em seguida, a sub-rotina é executada.

Sub sbDelete4Keep1()

    Dim rngProcess As Range
    Dim lCntr As Long
    Set rngProcess = ActiveCell
    lCntr = 1
    While Not IsEmpty(rngProcess.Offset(1, 0))
        Range(rngProcess, rngProcess.Offset(3, 0)).EntireRow.Delete
        Set rngProcess = ActiveCell.Offset(lCntr, 0)
        lCntr = lCntr + 1
    Wend

End Sub