entfernen Sie doppelte Werte in einer Textdatei

388
bashma


Ich habe eine tabulatorgetrennte Textdatei, die einen Vergleich zeigt.
so was:

 A B C D  A 1 2 3 4 B 2 1 4 3 C 3 4 1 2 D 4 3 2 1

Aber ich muss später mit den Daten in einem anderen Programm arbeiten, bei dem die Tabelle so sein muss:

A
B 2
C 3 4
D 4 3 2

Weiß jemand, wie ich das mit Excel, Terminal oder Textwrangler machen könnte? Der Datensatz ist wirklich riesig und ich konnte es nicht manuell machen.

0
Ich verstehe nicht, wie es bestimmt, was ein Duplikat ist. Würdest du bitte klarstellen? Raystafarian vor 11 Jahren 2
Sie haben keine Parameter angegeben, wie Duplikate bestimmt werden sollen. Jason Bristol vor 11 Jahren 1

1 Antwort auf die Frage

1
teylyn

Holen Sie sich die Tabelle in Excel. Lassen Sie die Datentabelle mit der leeren Zelle über dem A-Wert in Zelle A1 beginnen. Siehe den Screenshot des Eingabeblatts

Versuchen Sie dieses Makro:

Option Explicit  Sub convert()   Dim wssrc As Worksheet Dim wstarget As Worksheet Dim i As Long Dim lrow As Long  Set wssrc = ThisWorkbook.Worksheets("Sheet1") Set wstarget = ThisWorkbook.Worksheets("Sheet2")  wssrc.Activate lrow = Cells(Rows.Count, "A").End(xlUp).Row Debug.Print lrow  For i = 1 To lrow wssrc.Range(Cells(i + 1, 1), Cells(i + 1, i)).Copy wstarget.Range("A" & i) Next i  End Sub

Dies ist ein Screenshot des Eingabeblattes:

Dies ist ein Screenshot des Ausgabeblattes.

Verwandte Probleme