Dublikate in Zelle entfernen - PowerQuery - M

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub test2() Dim arr, i As Long Dim t As Double Dim TeilText Dim Erg Const TrKz As String = ", " t = Timer With ActiveSheet.UsedRange.Columns(1) arr = .Value For i = 1 To UBound(arr, 1) Erg = TrKz For Each TeilText In Split(arr(i, 1), TrKz) If InStr(Erg, TrKz & TeilText & TrKz) = 0 Then Erg = Erg & TeilText & TrKz Next arr(i, 1) = Mid(Erg, Len(TrKz) + 1, Len(Erg) - Len(TrKz)) Next .Value = arr End With Debug.Print Timer - t End Sub

Function RemoveDupInCells(byVal Txt as string, TrKz as string) as string Dim TeilText Dim Erg as String Erg = TrKz For Each TeilText In Split(Txt, TrKz) If InStr(Erg, TrKz & TeilText & TrKz) = 0 Then Erg = Erg & TeilText & TrKz Next RemoveDupInCells = Mid(Erg, Len(TrKz) + 1, Len(Erg) - Len(TrKz)) End Function

Hi
Ich kann es leider im Moment nicht testen, aber der Lösungsweg könnte wie folgt aussehen.
1 Apfel, Apfel, Birne
2 Baum, Apfel, Baum
Scheinbar gibt es die Funktion Text-in-Spalten auch in PQ.
https://support.office.com/en-us/article/split-a-column-of-text-power-query-5282d425-6dd0-46ca-95bf-8e0da9539662
Danach entpivotieren und es sollte so aussehen.
1 Apfel
1 Apfel
1 Birne
2 Baum
2 Apfel
2 Baum
Nun kannst du gruppieren und so die Duplikate raus nehmen.
Aus meiner Sicht ist die Kommagetrennte Darstellung fragwürdig. 100.000 Zeilen kann man sowieso nur auswerten und nicht durchlesen. Darum würde ich mir die Transformation zurück ins Ursprungsformat sparen (wieder pivotieren und die Spalten verketten).
cu
Chris

Hallo Chris, hallo Günther,
... wobei ich mittlerweile dahintergekommen bin, dass man Spaltenwerte trennen auch in Zeilen vornehmen kann und dadurch kein entpivotisierten mehr benötigt.
Doch das so erzielte Ergebnis in Spalte E entspricht nicht den Vorgaben des threaderstellers, auf was mich Robert zu Recht hingewiesen wird (auch wenn ich gleicher Meinung bin wie Chris, dass die Notwendigkeit dessen zumindest zu hinterfragen ist).
Die Möglichkeit des Pivotieren von Daten, finde ich in meiner 2016er Version (die auch der TE hat) nicht. Oder hab ich wieder die falsche Brille auf?
Folgendes hab ich noch versucht: zuerst noch eine Indexspalte eingeführt und nach der Datentrennung in Zeilen. die Entfernung der so entstandene Ergebnisspalte und der Indexspalte vorgenommen und anschließend nach der Indexspalte gruppiert.
Doch dann komme ich nicht weiter. Wie führe ich die Datenwerte der jeweiligen Index-Nummer wieder in der jeweiligen Zeile (kommagetrennt) zusammen?
Das würde mich jetzt schon interessieren, wie man dann in Excel 2016 realisiert.
Gruß Werner
.. , - ...

Beliebteste Forumthreads (12 Monate)

Dublikate in Zelle entfernen - PowerQuery - M

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dublikate in Zelle entfernen - PowerQuery - M

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

318 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread