Telefonszámunk: 1-472-0679

Összefűz kritérium alapján

Kezdőlap › Fórumok › Excel témák › Összefűz kritérium alapján

5 bejegyzés megtekintése - 1-5 / 5
  • Szerző
    Bejegyzés
  • 2023-12-22-12:05 #10325
    JT
    Felhasználó

      Sziasztok!
      Sokat keresgéltem a neten, de nem sikerült jó megoldást találnom. Azért fordulok hozzátok, mert volt korábban egy hasonló topikotok, így találtam ide, ebben utaltatok egy megoldásra, hasonló problémára, de az előző kérdezőnek végül nem az lett a befutó, mert nem volt 2019-es office-a (nekem van).
      A probléma a következő:
      Van 2 oszlopom, az egyikben (A olyan azonosító van, ami többszörösen szerepelhet. Össze kellene fűzni az azonos azonosítókhoz tartozó neveket egy oszlopba, egy összefűző jel alapján –> „]-[” Előfordulhat üres mező is az összefűzendők között, ilyenkor fontos, hogy az is kerüljön bele az összefűzésbe.
      Mellékelek egy mintaexcelt, ezekben első 2 oszlop adott, és c-ben szereplőt kellene létrehozni, de az is lehet jó megoldás, ha az egyes azonosítók mellé oda tudjuk rendelni az összefűzést (egy ilyen próbálkozás szerepel az excelben, de befejezetlen, mert elakadtam)
      Nagyon köszönöm, ha tudtok segíteni!

      Attachments:
      You must be logged in to view attached files.
      2023-12-23-11:44 #10327
      verax
      Felhasználó

        Szia Judith!

        Az „A” oszlopban szereplő azonosítók minden esetben rendezettek? – mert a mintában ezt látjuk.
        Ha az azonos azonosítók egy „csokorban” vannak, használhatod ezt a képletet:
        … vagy inkább ne áruljam el? vezesselek rá? …

        üdvözlettel
        verax

        Attachments:
        You must be logged in to view attached files.
        2023-12-23-14:04 #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

          2023-12-23-17:11 #10335
          horvimi
          Adminisztrátor

            Hűha, de aktívak itt páran karácsony előtt! 🙂
            Ha valóban csak 2019-es verziód van, akkor Verax vagy Delila megfoldása lehet jó
            Ha esetleg lenne 2021 vagy 365, akkor három (vagy csak kettő) függvénnyel megoldható a probléma.

            Szóval?

            Imre

            2023-12-26-20:19 #10336
            Laszlosala
            Felhasználó

              O355 képlet a fájlodba:
              =SZÖVEGÖSSZEFŰZÉS($F$1;1;SZŰRŐ($B$2:$B$23;($B$2:$B$23<>””)*($A$2:$A$23=A2);””))
              üdv,
              Laci

            • Szerző
              Bejegyzés
            5 bejegyzés megtekintése - 1-5 / 5
            • Be kell jelentkezni a hozzászóláshoz.