selezione, copia, incolla celle alterne ed eliminazione righe alterne

[Giulia.SPartecipante Giulia.S]

Salve a tutti,

Sto iniziando a scoprire ora il mondo delle macro, e avrei bisogno di una macro che mi selezionasse le celle alterne (es. celle nelle righe dispari) di una determinata colonna, copiasse il contenuto, e me lo incollasse nelle celle vuote delle righe pari. E infine che mi eliminasse le righe da cui è stato già copiato il contenuto.
Ho provato a farlo registrando la macro con un numero esiguo di dati, ma poi non so come dirgli di farlo finche non trova una  riga vuota.
Ho allegato delle immagini esempio.

Sarebbe possibile?
Grazie a tutti

Allegati:

You must be logged in to view attached files.

[rollis13Partecipante rollis13 Karma: 7 pts]

Facendo riferimento agli esempi e non a quello che hai scritto ti propongo questa macro:

`Option Explicit
Sub SpostaCellePari()
    Dim ur     As Long
    Dim riga   As Long
    ur = Range("H" & Rows.Count).End(xlUp).Row    'calcola l'ultima riga utilizzata
    If (ur Mod 2) = 0 Then ur = ur - 1            'serve solo nel caso la colonna finisca con una riga pari
    For riga = 2 To ur
        If (riga Mod 2) = 0 Then                  'controllo se la riga è pari o dispari
            Range("H" & riga).Cut Range("I" & riga + 1)
        End If
    Next
End Sub`

[Giulia.SPartecipante Giulia.S]

grazie mille!

[rollis13Partecipante rollis13 Karma: 7 pts]

Grazie del riscontro positivo .

[Autore]

Articoli