Opdel / overflyt værdier

Prøv denne makro (i en kopi i første omgang :-))

Sub FlytogSlet()
    For Each c In Range("a1:a20").Cells
        If c.Row Mod 2 = 1 Then
            c.Offset(0, 1) = c.Offset(1, 0)
        End If
    Next c
   
    With ThisWorkbook.ActiveSheet
        For i = Range("a65536").End(xlUp).Row + 2 To 2 Step -2
            .Rows(i).Delete
        Next i
    End With
End Sub

Ret selv området til det relevante, fx A1:A2000 el. l.

super :-)

Velbekomme :-)