Hozzászólás: Összefűz kritérium alapján

Szia!
Írtam egy makrót.

Sub osszefuzes()
    Dim sor As Integer, szoveg As String
    sor = 2
    
    Do While Cells(sor, 1) <> ""
        If Cells(sor, 1) <> Cells(sor - 1, 1) And Cells(sor, 1) <> Cells(sor + 1, 1) Then
            Cells(sor, 3) = Cells(sor, 2): sor = sor + 1
        End If
        If Cells(sor + 1, 1) = Cells(sor, 1) Then
            If szoveg = "" Then szoveg = Cells(sor, 2)
            szoveg = szoveg & "]-[" & Cells(sor + 1, 2)
        Else
            Cells(sor, 3) = szoveg
            szoveg = ""
        End If
        sor = sor + 1
    Loop
End Sub

Alt+F11-re bejön a VB szerkesztő. Itt beszúrás (insert), modul (module). A jobb oldalon kapott üres felületre bemásolod a makrót. Makróbarátként kell elmentened a füzetet.

A jobb áttekinthetőség kedvéért minden azonosítónál csak az alsó sorba írattam ki az eredményt.
Indítás a füzetben: az Alt+F8-ra megjelenő ablakban indítod az osszefuzes nevűt.

Üdv,
Delila