Estrarre dati ogni tot righe

[otello]

Buonasera,
ho questo problema: voglio creare una colonna che mi riporti i valori di un'altra colonna dove
nella prima riga deve esserci il valore della prima riga della colonna di partenza,
nella seconda riga il valore della riga 7
nella terza riga il valore della riga 14
nella quarta riga il valore della riga 21

e così via. Con un intervallo multiplo di 7.

Non so se mi sono spiegato.
Mi sapreste dire come fare?

Grazie 1000

[nicola75ss]

Nel mio esempio i valori da ciclare sono nella colonna A e verranno copiati nella colonna B.

Sub multipli()
ultima = Range("A65536").End(xlUp).Row
j = 1
For i = 1 To ultima
    If i = 1 Or i Mod 7 = 0 Then
       Range("B" & j).Value = Range("A" & i)
       j = j + 1
    End If
Next i
End Sub

[otello]

Originariamente inviato da nicola75ss
Nel mio esempio i valori da ciclare sono nella colonna A e verranno copiati nella colonna B.

Sub multipli()
ultima = Range("A65536").End(xlUp).Row
j = 1
For i = 1 To ultima
    If i = 1 Or i Mod 7 = 0 Then
       Range("B" & j).Value = Range("A" & i)
       j = j + 1
    End If
Next i
End Sub

Grazie nicola75ss,
non avevo mai utilizzato le macro perchè non conosco VB, ho solo modificato una inezia dato che le righe da estrarre sono la 1, 8,15,22...
Sei stato davvero gentile.

[nicola75ss]

Originariamente inviato da otello
ho solo modificato una inezia dato che le righe da estrarre sono la 1, 8,15,22...

Allora bastava modificare la condizione in

If i Mod 7 = 1 Then

Prego.

[otello]

Originariamente inviato da nicola75ss
Allora bastava modificare la condizione in

If i Mod 7 = 1 Then

Prego.

Infatti per questo dicevo "inezia"