我有一个制表符分隔的文本文件,显示比较。
像这样:
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
这是输入表的屏幕截图:
这是输出表的屏幕截图。