PQ: doppelte Werte definiert ersetzen...

Hallo PQ_Profis,
... um vorhandene doppelte Werte in einer Spalte durch "" zu ersetzen, benötige ich interaktiv momentan zuviele (9 zusätzliche) Schritte, welches ja (bei größeren Datenmengen) sicher auch mehr Zeit benötigt.
Meine Zielvorstellung nachfolgend aufgezeigt an einem Beispiel (jeweils der erste der doppelte Werte muss im Original stehen bleiben):

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F	G
1	IST - Datenliste				ZIEL - Datenliste
2	Name	E-Mail	Sonst		Name	E-Mail	Sonst
3	Name_01	E-Mail_05	Sonst_01		Name_01	E-Mail_05	Sonst_01
4	Name_02	E-Mail_02	Sonst_02		Name_02	E-Mail_02	Sonst_02
5	Name_03	E-Mail_03	Sonst_03		Name_03	E-Mail_03	Sonst_03
6	Name_03	E-Mail_03	Sonst_03		Name_03	doppelt	Sonst_03
7	Name_04		Sonst_04		Name_04		Sonst_04
8	Name_05	E-Mail_01	Sonst_04		Name_05	E-Mail_01	Sonst_04
9	Name_06	E-Mail_02	Sonst_05		Name_06	doppelt	Sonst_05
10	Name_08	E-Mail_04	Sonst_06		Name_08	E-Mail_04	Sonst_06
11

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Mein M-Code für das Beispiel sieht momentan wie folgt aus:


let
Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
#"Geänderter Typ" = Table.TransformColumnTypes(Quelle,{{"Name", type text}, {"E-Mail ", type text}, {"Sonst", type text}}),
#"Sortierte Zeilen" = Table.Sort(#"Geänderter Typ",{{"E-Mail ", Order.Ascending}, {"Name", Order.Ascending}}),
#"Hinzugefügter Index" = Table.AddIndexColumn(#"Sortierte Zeilen", "Index", 0, 1, Int64.Type),
#"Hinzugefügter Index1" = Table.AddIndexColumn(#"Hinzugefügter Index", "Index.1", 1, 1, Int64.Type),
#"Zusammengeführte Abfragen" = Table.NestedJoin(#"Hinzugefügter Index1", {"Index"}, #"Hinzugefügter Index1", {"Index.1"}, "Hinzugefügter Index1", JoinKind.LeftOuter),
#"Erweiterte Hinzugefügter Index1" = Table.ExpandTableColumn(#"Zusammengeführte Abfragen", "Hinzugefügter Index1", {"E-Mail "}, {"E-Mail .1"}),
#"Hinzugefügte benutzerdefinierte Spalte" = Table.AddColumn(#"Erweiterte Hinzugefügter Index1", "neu", each if [#"E-Mail "] =[#"E-Mail .1"] and [#"E-Mail "]  null then "doppelt" else [#"E-Mail "]),
#"Entfernte Spalten" = Table.RemoveColumns(#"Hinzugefügte benutzerdefinierte Spalte",{"E-Mail ", "Index", "Index.1", "E-Mail .1"}),
#"Umbenannte Spalten" = Table.RenameColumns(#"Entfernte Spalten",{{"neu", "E-Mail"}}),
#"Neu angeordnete Spalten" = Table.ReorderColumns(#"Umbenannte Spalten",{"Name", "E-Mail", "Sonst"}),
#"Sortierte Zeilen1" = Table.Sort(#"Neu angeordnete Spalten",{{"Name", Order.Ascending}})
in
#"Sortierte Zeilen1"

Wie kann man das effektiver definieren?
Gruß Werner
.. , - ...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

F3:
=WAHL({1.2.3};
B3:B10;
LET(x;C3:C10;
y;SORTIEREN(HSTAPELN(WENN(x="";"";x);ZEILE(x)));
z;SORTIEREN(HSTAPELN(y;INDEX(y;SEQUENZ(ZEILEN(x)-1;;2))=INDEX(y;SEQUENZ(ZEILEN(x)-1;;1)));{1.3});
WENN(INDEX(WENNFEHLER(1/(1/SORTIEREN(HSTAPELN(SORTIEREN(WEGLASSEN(z;;-1);{1.2});INDEX(z;;3));2));"");;3)=1;"doppelt";WENN(x="";"";x)));
D3:D10)
y sortiert C3:C10 mit Gedächtnis der Zeile
z vergleicht die sortierten C3:C10 auf Doppler (WAHR)
WENN sortiert ohne diesen Vergleich die Zeilenpositionen unterhalb des sortierten C3:C10 zurück, und mit diesem Vergleich dann nach Zeilenpositionen in die Ausgangsposition zurück
... geht möglicherweise noch einen Schritt kürzer
Keine Antwort auf eine PQ-Frage, da nur XL2021/365/Web.
Zugegeben lässt sich PQ hier besser lesen, aber man kann auch den LET-Teil noch lesbarer machen.

let Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content], #"Start0" = Table.TransformColumnTypes(Quelle,{{"Name", type text}, {"E-Mail", type text}, {"Sonst", type text}}), #"Index0" = Table.AddIndexColumn(#"Start0", "Index", 0, 1, Int64.Type), #"Sort1" = Table.Sort(#"Index0",{{"E-Mail", Order.Ascending}, {"Index", Order.Ascending}}), #"Index1" = Table.AddIndexColumn(#"Sort1", "Index.1", 0, 1, Int64.Type), #"EMail" = Table.AddColumn(#"Index1", "EMail", each if #"Index1" [#"E-Mail"] {[#"Index.1"] - 1} = #"Index1" [#"E-Mail"] {[#"Index.1"]-0} then [#"E-Mail"] & " doppelt" else [#"E-Mail"]), #"Sort2" = Table.Sort(EMail,{{"Index", Order.Ascending}}), #"Del1" = Table.RemoveColumns(#"Sort2",{"E-Mail", "Index", "Index.1"}), #"Order1" = Table.ReorderColumns(#"Del1",{"Name", "EMail", "Sonst"}) in #"Order1"

Beliebteste Forumthreads (12 Monate)

PQ: doppelte Werte definiert ersetzen...

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread