![删除文本文件中的重复值](https://linux22.com/image/1371487/%E5%88%A0%E9%99%A4%E6%96%87%E6%9C%AC%E6%96%87%E4%BB%B6%E4%B8%AD%E7%9A%84%E9%87%8D%E5%A4%8D%E5%80%BC.png)
我有一个制表符分隔的文本文件,显示比较。
像这样:
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
这是输入表的屏幕截图:
这是输出表的屏幕截图。