Перегруппировать данные из одного столбца в несколько строк

Question

У меня есть текстовый файл, который представляет собой один очень длинный столбец, который выглядит следующим образом:

Title_1
Data_1
Data_2
Data_3
Title_2
Data_1
Data_2
Data_3
Data_4
Data_5
Title_3
Data_1
Title_4
Title_5
Data_1
Data_2

Я хотел бы переставить эти данные в строки и столбцы:

Title_1     Data_1     Data_2     Data_3      
Title_2     Data_1     Data_2     Data_3     Data_4     Data_5 
Title_3     Data_1     
Title_4     
Title_5     Data_1     Data_2     

Примечаниечто 'title' всегда начинается с 'N', за которым следуют другие буквы / цифры.

Answer 1

Sub TitlesAndData()

    Dim lrows As Long
    Dim counterRow As Long, counterCol As Long

    lrows = Cells(Rows.Count, "A").End(xlUp).Row
    counterRow = 0
    counterCol = 3

    For i = 1 To lrows
        If Left(Cells(i, 1), 1) = "N" Then
            counterRow = counterRow + 1
            counterCol = 3
            Cells(counterRow, 3).Value = Cells(i, 1).Value
        Else
            counterCol = counterCol + 1
            Cells(counterRow, counterCol).Value = Cells(i, 1).Value
        End If
    Next

End Sub