Вопрос по упорядочиванию данных в таблице

[Aeriges]

Дорогие специалисты в области Excel / VBA, ОЧЕНЬ нужна Ваша помощь!

Уже использовал все возможные имеющиеся (у меня) приемы, но...не помогло...
Полученная таблица данных совершенно не удобна для обработки. (в планах: создание сводной таблице на основе упорядоченной базы. пример базы вложении на листе "Исходник").
Проблема состоит в том, что для создания сводной таблицы которая предоставит информацию в разрезе контрагентов/артикулов/накладных и объеом вотгрузок нет нормального источника данных. Т.е. исходник не позволяет этого сделать.
Таким образом, мне необходимо в столбец "B" внести имя контрагента а в столбец "C" внести артикул, так чтобы они были на одинаковой строке с накладной. НО проблема в том, что контрагент находится в той же строке что и накладная. А мне неободимо котрагента вывести в параллельный столбец.
Тоже самое надо сделать с артикулом...
Т.е. выевести контрагента, артикул и накладную в 1 строку но в разные столбцы...
Объем моего рабочего файла в полной версии очень большой и таких строк до 60000...поэтому нужен способ автоматизации...
его и ищу...

Пожалуйста, посмотрите вложение, возможно Вам будет проще меня понять, если вы сравнить лист "Искомый результат" с листом "Исходник".
...Файл во ложении формата 2007.
Любая помощь будет очень кстати.

[doober]

Я правильно понимаю,что Контрагента я могу определить по форматированию ячекйки-отступ 6.
Больше не нашел никаких отличий

[Hugo121]

Привязался к
"Расх." и "Возвратная накладная"

Option Explicit

Sub tt()
Dim a, i&, art$, kontr$

a = Range([D4], Range("E" & Rows.Count).End(xlUp))

ReDim b(1 To UBound(a), 1 To 2)

For i = 1 To UBound(a)
If a(i, 1) <> Empty Then art = a(i, 1)
If InStr(a(i, 2), "Расх.") = 0 Then
If InStr(a(i, 2), "Возвратная накладная") = 0 Then
kontr = a(i, 2)
End If
End If

If InStr(a(i, 2), "Расх.") Or InStr(a(i, 2), "Возвратная накладная") Then
b(i, 1) = kontr: b(i, 2) = art
End If


Next
[b4:c4].Resize(UBound(b)) = b
End Sub

Ну и столбцу с артикулами нужно поставить формат как у номера 00989 в исходнике - ZIP code.
Я поставил вручную всему столбцу, но можно и в код прописать, перед выгрузкой массива.

[SAS888]

Посмотрите пример во вложении. Откройте файл и запустите макрос "Main".
Привязка осуществляется по наличию даты в конце строки.

[Hugo121]

Судя по всему, других алгоритмов нет

[Aeriges]

Сообщение от SAS888

Посмотрите пример во вложении. Откройте файл и запустите макрос "Main".
Привязка осуществляется по наличию даты в конце строки.

SAS888, Hugo я даже не ожидал что можно это так сделать!!!
Спасибо, за супер ответ!!! Да и в не рабочий день! )))
Все работает на 100%
SAS888, спасибо Вам что ответили файлом, для не сильно сведущего в vba, такой вариант упрощает ))

Еще раз Вам Спасибо!