2 rijen samenvoegen met spatie ertussen, regels om en om.

[Tweety1]

2 rijen samenvoegen met spatie ertussen, regels om en om.

Ik ben opzoek na een macro die het volgende doet
Ik heb in kolom A om en om regels staan wat ik wil samenvoegen tot 1 regel.
Regel 1+2 Regel 3+4 etc. tussen de samengevoegde 2 regels wil graag een spatie.

 

[sylvester-ponte]

waar moeten ze naar toe?

 

[Tweety1]

Het liefst in de zelfde kolom als dat lukt. Anders na een nieuwe tabblad

 

[HSV]

Test het maar eens.

Sub hsv()
Dim arr, sq, i As Long
sq = Cells(1, 1).CurrentRegion
ReDim arr(1 To UBound(sq))
 For i = 1 To UBound(sq)
  arr(i) = Join(Application.Transpose(Cells(i, 1).Resize(2).Value))
    Rows(i + 1).Delete
  Next i
 Cells(1, 1).Resize(i / 2) = Application.Transpose(arr)
End Sub

 

[Tweety1]

Het werkt
Bedankt

 

[snb]

in B1:

=IF(MOD(ROW();2)=1;A1&" " &A2;"")

doortrekken naar beneden