remove valores duplicados em um arquivo de texto

Question

Eu tenho um arquivo de texto delimitado por tabulações mostrando uma comparação.
assim:

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

Mas eu preciso trabalhar com os dados mais tarde em outro programa que precisa que a tabela seja assim:

A
B 2
C 3 4
D 4 3 2

Alguém sabe como eu poderia fazer isso com excel, terminal ou textwrangler? o conjunto de dados é muito grande e não consegui fazer isso manualmente.

    

Answer 1

Obtenha a tabela no Excel. Deixe a tabela de dados iniciar com a célula em branco acima do valor A na célula A1. Veja a captura de tela da folha de entrada

Experimente esta macro:

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

Esta é uma captura de tela da planilha de entrada:

Estaéumacapturadeteladafolhadesaída.