Ewelina K.

Ewelina K. Junior OtC
Administrator,
HEINEKEN Global
Shared Service,...

Temat: Łaczenie danych z wielu wierszy w jeden

Witam,

LOGIN1 1@domena.pl
LOGIN2 2@domena.pl
LOGIN3 3@domena.pl
LOGIN2 4@domena.pl
LOGIN2 5@domena.pl
LOGIN3 6@domena.pl
LOGIN2 2@domena.pl ; 4@domena.pl ; 5@domena.pl ;

Potrzebuje przysegregowac dla konkretnego Loginu w jednym wierszu wszystkie adresy mailowe fo niego należące po średniku znajdujace się różnych wierszach w jednej kloumnie tak jak w przykładzie powyżej. Maili jest tysiące, więc musi wyciągnać dane z oko 6000 wierszy.

=IF($E2=$K$3;(CONCAT(VLOOKUP(K2;E:F;2;0)));" ")

działa tylko dla pierwszego wiersza. Co robię źle lub co powinnam zmienić?

byłabym super wdzięczna za poradę!Ten post został edytowany przez Autora dnia 31.10.18 o godzinie 12:30
Oskar Shon

Oskar Shon Dodatki do Office
www.VBATools.pl

Temat: Łaczenie danych z wielu wierszy w jeden

Co znaczy przysegregować? chyba ten termin jest mi obcy, a chyba kluczowy jest dla tej odpowiedzi.
Chcesz połączyć dane które są w jednej kolumnie, komórka po komórce?
Jeśli tak to narzędzie działające na milionie adresów jest tutaj: http://vbatools.pl/grupuj-tekst/
a jeśli mniejsze bo do 10k to spokojnie takie rozwiązanie będzie zasadne: http://vbatools.pl/zlacz-teksty/
Inne np wyciągające adresy ze śmieci oraz inne wynalazki temu towarzyszące: http://vbatools.pl/pobierz-adresy-email/
Andy L.

Andy L. ITM, VUB

Temat: Łaczenie danych z wielu wierszy w jeden

uzywasz excela 365 wiec wykorzystaj Get&Transform (nie wiem jak to sie nazywa w polskiej wersji)

let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Grouped Rows" = Table.Group(Source, {"Column1"}, {{"Count", each _, type table}}),
#"Added Custom" = Table.AddColumn(#"Grouped Rows", "Mail", each Table.Column([Count],"Column2")),
#"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Mail", each Text.Combine(List.Transform(_, Text.From), ";"), type text})
in
#"Extracted Values"

jezeli maile w osobnych komorkach, to:


let
Source = Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
#"Grouped Rows" = Table.Group(Source, {"Column1"}, {{"Count", each _, type table}}),
#"Added Custom" = Table.AddColumn(#"Grouped Rows", "Mail", each Table.Column([Count],"Column2")),
#"Extracted Values" = Table.TransformColumns(#"Added Custom", {"Mail", each Text.Combine(List.Transform(_, Text.From), ";"), type text}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Mail", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"Mail.1", "Mail.2", "Mail.3", "Mail.4", "Mail.5", "Mail.6"})
in
#"Split Column by Delimiter"


Pliczek do pierwszego koduTen post został edytowany przez Autora dnia 31.10.18 o godzinie 20:29



Wyślij zaproszenie do