Regneark Excel flytte data

Hvor stort er det store mellemrum mellem land og navn (altså hvor mange rækker)?

Skal dit resultat stå i en enkelt celle i hver række?

Det nemmeste er nok under alle omstændigheder at bruge en makro, men det kræver at makroen ved, hvor mange rækker, den skal springe over mellem posterne.

Er der ingen mellemrum kan dette bruges:

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

Og kender man mellemrumsantallet, er det forholdsvis let at l'se resten.

Hvis du skulle foretrække en ikke-VBA løsning og kan acceptere hjælpekolonner kan du eventuelt prøve følgende: (jeg forudsætter, at dine data starter i A1 og, at du har to tomme rækker mellem land og navn).

I B1 indtastes: =INDIREKTE("A"&(RÆKKE()-1)*5+KOLONNE(A:A)). Formlen kopieres til D1 og herefter nedad i nødvendigt omfang. Nu skulle navn, nummer og land stå i henholdsvis kolonne B, C og D.

I E1 indtastes nu: =B1&";"&C1&";"&D1. Formlen kopieres nedad.
(Du kan herefter eventuelt kopiere kolonne og indsætte som værdi, hvorefter hjælpekolonnerne B:D kan slettes).

Hans