удалить повторяющиеся значения в текстовом файле

Question

У меня есть текстовый файл с разделителями табуляции, показывающий сравнение.
как это:

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

Но мне нужно поработать с данными позже в другой программе, которая должна иметь следующую таблицу:

A
БИ 2
С 3 4
Д 4 3 2

Кто-нибудь знает, как я мог бы сделать это с Excel, Terminal или TextWrangler? набор данных действительно огромен, и я не мог сделать это вручную.

Answer 1

Получить таблицу в Excel. Пусть таблица данных начинается с пустой ячейки выше значения A в ячейке A1. Смотрите скриншот входного листа

Попробуйте этот макрос:

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

Это скриншот входного листа:

Это скриншот выходного листа.