Macro samenvoegen geselecteerde cellen

[hmwul]

In een willekeurige kolom heb ik blokjes tekst staan - veelal blokjes van 3 regels.
Nadat ik die geselecteerd heb, wil ik ze samenvoegen, op deze manier.
de samenvoeging iedere keer op de eerste regel van het geselecteerde 'blokje'.

Ik weet dat je met aparte kolommen kan werken en dan zoiets als A1", "&A2&", "&A3

Een macro is veel handiger, denk ik.

Iemand een suggestie?

Bij voorbat dank.

Excel van Microsoft 365

 

[HSV]

Minimaal 2 cellen selecteren.

 

[peter59]

Of met power query?

de samenvoeging iedere keer op de eerste regel van het geselecteerde 'blokje'.

Dat is op dit moment helaas niet zo.

 

[AHulpje]

Of misschien zo:

 

[hmwul]

Hartelijk dank voor de reacties. Ben ze aan het bekijken.

@AHulpje : het resultaat komt helaas 1 regel láger uit.
Ik bedoel: in tab 'bron' staat de eerste regel op F2
Het resultaat (in tab resultaat) komt op F3

Is daar iets aan te doen?
Ik heb 2 sheets gebruikt: 'bron' en 'resultaat', eigenlijk voor de duidelijkheid, zoiets van 'zo is het' en 'zo moet het worden'.

Maar de bedoeling is om gegevens in 'bron' worden overschreven (dus niet in een aparte sheet).

Thanks!

 

[HSV]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim nw
 If Target.Count > 1 And Target.Columns.Count = 1 Then
   nw = Join(Application.Transpose(Selection), ", ")
   Selection.ClearContents
   Target.Cells(1) = nw
 End If
End Sub

 

[AHulpje]

Zo beter?