Página 1 de 1

Macro para copiar a cada X linhas

Enviado: 13 Abr 2019 às 14:03
por Yaketerina
Olá! Sou novo por aqui, tenho uma dúvida um tanto quanto simples:
Possuo duas planilhas em um arquivo, uma com centenas de linhas "desorganizadas" e outra planilha onde gostaria de organizar essas centenas de linhas. Eu adquiro essas linhas de um datalogger, os dados se repetem a cada 14 linhas, gostaria de fazer um macro que copiasse de uma planilha para outra a cada 14 linhas, ex A14,A28,A42 e assim por diante.
Obrigado desde já :)

Re: Macro para copiar a cada X linhas

Enviado: 13 Abr 2019 às 15:46
por osvaldomp
Experimente:
Código: Selecionar todos
Sub ReplicaDados()
 Dim i As Long
  For i = 14 To Cells(Rows.Count, 1).End(3).Row Step 14
   Sheets("Plan2").Cells(Rows.Count, 1).End(3)(2) = Cells(i, 1)
  Next i
End Sub

Macro para copiar a cada X linhas

Enviado: 13 Abr 2019 às 15:53
por Yaketerina
Tentei usar mas nada aconteceu :(