Excel: как отсортировать один столбец смешанных данных в таблицу

Question

У меня есть список получателей, их номер банка, моя ссылка и их ссылка в столбце.

R & J Fred Ltd
12-3456-7890123-45
Freds Fish
Bevan
Joe King Mata Ltd
01-1234-1234567-89
Joes Boats
Bevan01
Dave's the Barber
12-3456-7891478-92
Daves Shaves
Accnt 45 

, и я хочу сделать из него такую ​​таблицу:

Payee              Account             MyRef        TheirRef
R & J Fred Ltd     12-3456-7890123-45  Freds Fish   Bevan
Joe King Mata Ltd  01-1234-1234567-89  Joes Boats   Bevan01
Dave's the Barber  12-3456-7891478-92  Daves Shaves Accnt 45 

ОК, поэтому я понятия не имею, как сделать это в хорошей уценке для этого сайта, кстати:)

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

Я предполагаю, что есть простой способ сделать это, но я не могу его найти.

Answer 1

Это, вероятно, не самое быстрое и элегантное решение, но оно дает желаемый результат.Это основано на предположении, что ваш столбец данных - это A, а чистые данные будут в столбце B - E.

Sub Cleanmeup()
Dim lastrow As Integer
Dim cel As Range
Dim i As Double, j As Double
lastrow = Sheets(1).Range("A:A").Cells(Rows.Count, 1).End(xlUp).Row
i = 2
j = 2
For Each cel In Range("A2:A" & lastrow)
    If i = 6 Then
        i = 2
        j = j + 1
    End If
    Cells(j, i).Value = cel
    i = i + 1
Next cel
End Sub