Java(或 Excel)——如何对齐乱序的列数据

Question

我有以下数据:

    a b c d f g h i j
    a b d e f h i j
    a b c d e f j k l
    a b c d e f g h m

我想按如下方式输出它(例如输出到 Excel 中):

    a b c d e f g h i j
    a b   d e f   h i j
    a b c d e f       j k l
    a b c d e f g h         m

用 Excel 术语来说，我想移动单元格，以便文本在列中匹配。

注意:为简单起见，我使用了字母顺序，但实际上并没有这样的顺序——但我需要保持原来的顺序。

更新示例:

    Original Data                                                   
    a   b   c   d   f   g   h   i   j                   
    a   b   d   e   f   h   i   j                       
    a   b   c   d   e   f   j   k   l                   
    a   b   x   d   e   f   g   h   m                   

    Dougs Output                                                    
    a   b   c   d           f   g   h   i   j           
    a   b       d       e   f       h   i   j           
    a   b   c   d       e   f               j   k   l   
    a   b       d   x   e   f   g   h                   m

    My Manual Output (Required) 
    a   b   c       d       f   g   h   i   j           
    a   b           d   e   f       h   i   j           
    a   b   c       d   e   f               j   k   l   
    a   b       x   d   e   f   g   h                   m

上面的 x 出现在索引 2 处，但 d 出现在索引 2 和 3 处，因此 x 应该出现在 d 之前。

Answer 1

我想我已经明白了。这取决于您不能向 collection 添加重复值这一事实。诀窍是以正确的顺序解析源数据。我将其解释为向下浏览一列中的每个单元格，然后转到下一列。然后该集合包含在该搜索顺序中找到的每个项目的第一个实例。

代码需要两张纸，一张带有源，一张目标纸包含输出。在本例中，我使用代码将 wsSource 和 wsTarget 设置为工作簿中的前两张表，但您可以根据需要进行更改。

您可以更改rng 的定义。只要源工作表上没有其他内容，代码就会确定数据的最后一行和最后一列。这是通过其中包含 Find 的行完成的:

Sub Rearrange()
Dim wsSource As Excel.Worksheet
Dim rng As Excel.Range
Dim i As Long, j As Long
Dim cell As Excel.Range
Dim coll As Collection
Dim wsTarget As Excel.Worksheet
Dim SourceLastRow As Long
Dim SourceLastCol As Long

Set wsSource = ThisWorkbook.Sheets(1)
Set wsTarget = ThisWorkbook.Sheets(2)
Set rng = wsSource.Range("A1:i4")    'change to suit

Set coll = New Collection
SourceLastRow = rng.Cells.Find("*", rng.Cells(1), xlValues, , xlByRows, xlPrevious).Row
SourceLastCol = rng.Cells.Find("*", rng.Cells(1), xlValues, , xlByColumns, xlPrevious).Column
'cycle through the cells in the range down through each column from left to right
For i = 1 To SourceLastCol
    For j = 1 To SourceLastRow
        Set cell = wsSource.Cells(j, i)
        If cell.Value <> "" Then
            On Error Resume Next
            'can only add an item once - no duplicates
            coll.Add cell.Value, cell.Value
            On Error GoTo 0
        End If
    Next j
Next i
'Clear and re-load wsTarget
wsTarget.Cells.Clear
For i = 1 To coll.Count
    For j = 1 To SourceLastRow
        If Application.WorksheetFunction.CountIf(wsSource.Cells(j, 1).EntireRow, coll(i)) = 1 Then
            wsTarget.Cells(j, i) = coll(i)
        End If
    Next j
Next i
End Sub