Kezdőlap › Fórumok › Excel témák › Összefűz kritérium alapján
- This topic has 4 hozzászólás, 5 résztvevő, and was last updated 11 months, 2 weeks telt el by Laszlosala.
-
SzerzőBejegyzés
-
2023-12-22-12:05 #10325
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 #10327Szia 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
veraxAttachments:
You must be logged in to view attached files.2023-12-23-14:04 #10328Szia!
Í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,
Delila2023-12-23-17:11 #10335Hű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 #10336O355 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
- Be kell jelentkezni a hozzászóláshoz.