Pular 4 linhas e apagar a próxima linha

#1

Possuo um banco de dados de um sensor que varia com o tempo com mais de 40 mil linhas e preciso ajusta-lo a outro banco de dados de outro sensor que possui 32 mil linhas. Preciso ajustar uma função que pule 4 linhas para baixo na tabela e apague a 5ª linha a partir do ponto inicial. Fazendo isso em loop para reduzir para 32 mil linhas, deletando apenas alguns dados que não fariam muita diferença na análise final.

#2

Olá e bem-vindo ao fórum.
Para ser mais fácil de ajudar, por favor anexe o seu ficheiro.
Caso não consiga envie email para [email protected]
Obrigado! :slight_smile:

#3

Encaminharei por e-mail pois usuários novos não podem anexar arquivos segundo as regras do fórum.

1 Curtida
#4

@Renato_Godoi, Bom Dia.

para que outros membro possa ajudar dar soluções voce pode postar sim desta forma

Poste um modelo com resultado esperado se não conseguir poste em site como SendSpace / Mega / GoogleDrive / Dropbox Drive outros

Decio

#5

Segue o arquivo para a criação da macro:

#6

Boas experimente a seguinte macro.

Sub apagaLinha()

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
End With

Dim ultimaLinha As Long
Dim i As Long

ultimaLinha = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = ultimaLinha To 7 Step -5
    Rows(i).Delete
Next i

With Application
    .ScreenUpdating = True
    .DisplayAlerts = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
End With

End Sub

Envie o ficheiro com a macro, pelo email.