删除文本文件中的重复值

删除文本文件中的重复值


我有一个制表符分隔的文本文件,显示比较。
像这样:

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

但我稍后需要在另一个程序中处理数据,该程序需要如下表所示的数据:

AB
2
C 3 4
D 4 3 2

有人知道如何使用 excel、终端或 textwrangler 来做到这一点吗?数据集非常庞大,我无法手动完成。

答案1

将表格导入 Excel。让数据表从单元格 A1 中 A 值上方的空白单元格开始。查看输入表的屏幕截图

尝试这个宏:

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

这是输入表的屏幕截图:

在此处输入图片描述

这是输出表的屏幕截图。

在此处输入图片描述

相关内容