Excel Transpose - Jagged Array

Question

Мне нужно транспонировать или преобразовывать зубчатый массив в несколько столбцов в excel, и у меня возникают некоторые трудности. Мои данные следующим образом:

Round A1 A2 A3 A4 A5 
1  1 2 3 
2  4  5 
3  6   7 
4  8  9 

Так что мне нужно, чтобы сгладить это, когда я иду через каждый ряд, и переводить каждый набор порядковых номеров для индивидуального одного только из одного столбца помечается в строке

SeqNum A1 A2 A3 A4 A5 
1  1 
2  2 
3   3 
4  4 
5    5 
6 6 
7    7 
8  8 
9   9 

Я редактировал номера в примере, чтобы сделать его более ясным. В основном я хочу сгладить первую таблицу, которая имеет несколько записей в строке, во вторую таблицу, которая имеет только 1 запись в строке.

У меня есть следующий алгоритм, который я хотел бы реализовать в Excel

int numOfTotalElements = 0; 
List<int> flattened = new List<int>(); 
int numRows = matrix.length; 
for(int i=0; i<matrix.length; i++){ 
    for(int j=0; j<matrix[i].length; j++){ 
    flattened.add(matrix[i][j]) 
    }//end cols 
}// end rows 

foreach(int i in flattened){ 
    System.Console.WriteLine(i); 
} 

Answer 1

Смотрите, если один из них получает вас, где вы пытаетесь идти.

Option 1:excel-vba

Sub expandFlatten() 
    Dim c As Long, i As Long, j As Long 
    Dim vals As Variant, nuvals As Variant 

    With Worksheets("sheet2") 
     With .Cells(1, 1).CurrentRegion 
      vals = .Cells.Value2 
     End With 
     c = UBound(vals, 2) + 2 
     .Cells(1, c).CurrentRegion.Clear 
     .Cells(1, c).Resize(UBound(vals, 1), UBound(vals, 2)) = vals 
     With .Cells(1, c).CurrentRegion 
      .Cells(1, 1) = "SeqNum" 
      .Offset(1, 1).ClearContents 
      .Cells(2, 1).Resize(Application.Max(.Parent.Cells(1, 1).CurrentRegion), 1) _ 
       .DataSeries Rowcol:=xlColumns, Type:=xlLinear, Step:=1 
     End With 
     With .Cells(1, c).CurrentRegion 
      ReDim nuvals(1 To .Rows.Count - 1, 1 To .Columns.Count - 1) 
      For i = LBound(vals, 1) + 1 To UBound(vals, 1) 
       For j = LBound(vals, 2) + 1 To UBound(vals, 2) 
        If Not IsEmpty(vals(i, j)) And IsNumeric(vals(i, j)) Then 
         nuvals(vals(i, j), j - 1) = vals(i, j) 
        End If 
       Next j 
      Next i 
      .Offset(1, 1).Resize(UBound(nuvals, 1), UBound(nuvals, 2)) = nuvals 

     End With 
     .Activate 
     .Cells(1, 1).Select 
    End With 
End Sub 

Option 2:excel-formula

После воссоздания метки заголовков столбцов и последовательность чисел вниз с правой стороны (до MAX(B:F)), поместите эту стандартную формулу в Р2,

=IFERROR(INDEX(B:B, MATCH($O2,B:B, 0)), "") 

Заполните как справа, так и вниз.

---

^{исходные данныеexpandFlatten()INDEX (..., MATCH (...}

---