☰

删除文本文件中的重复值

tag-icon • tag-icon microsoft-excel-2010 linux-terminal textwrangler
删除文本文件中的重复值


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

    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

这是输入表的屏幕截图：

在此处输入图片描述

这是输出表的屏幕截图。

在此处输入图片描述

相关内容