Telefonszámunk: 1-472-0679

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

Kezdőlap Fórumok Excel témák Összefűz kritérium alapján Hozzászólás: Összefűz kritérium alapján

#10328
delila
Felhasználó

    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