合并列/行？

Question

我有

chr12 100 105 'some' 'required' 'data'
chr12 105 120 'some' 'required' 'data'
chr12 120 130 'some' 'required' 'data'

我需要将它们作为

chr12 100 130 'some'|'some'|'some' 'required'|'required'|'required' 'data'|'data'|'data'

即，合并重叠的行并从第一个列旁边的所有其他列追加。对不起，如果我听起来很模糊，但我不知道如何描述这种情况。

寻找Shell脚本，因为我可以快速处理我需要使用的20个文件。

Answer 1

你的问题是一个可怕的问题，因为它含糊不清，而且你没有尝试过的例子或代码。

话虽如此，这应该可以解决问题：

Sub stackoverflow()

Dim row As Variant
Dim finish As Boolean

    Do
        For Each cell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).row)

            row = Application.Match(cell.Value, Range("B1:B" & Cells(Rows.Count, "B").End(xlUp).row), 0)

            If Not IsError(row) Then
                Cells(row, 2).Delete xlShiftUp
                cell.Delete xlShiftUp
                Exit For
            End If

            finish = cell = Range("A" & Cells(Rows.Count, "A").End(xlUp).row)

        Next cell
    Loop Until finish = True

End Sub