Перенос и сортировка данных

[Z0RGE]

Добрый день!
Помогите, пожалуйста в следующем:
Есть некая таблица с повторяющимся номером и текстом, кол-во строк в таблице ВСЕГДА РАЗНОЕ (может быть 20 строк с данными, а может и 900 строк с данными) кол-во столбцов не меняется!
Нужно перенести не повторяющийся текст с не повторяющимся номером с определенных ячеек с одного листа на другой согласно примеру.

Понятней будет если посмотреть пример (вложен)

Заранее благодарю.

[SAS888]

Посмотрите пример во вложении.
Откройте файл и запустите макрос "Main".

[IgorGO]

макрос Banzay (при активном листе с данными)

[Z0RGE]

Большое спасибо! Протестирую

[Z0RGE]

Все супер, Большое спасибо!
Подскажите последнее, что нужно поменять, если вместо столбца F, будет столбец I
И данные будут начинаться не со 2й строки, а с 10.

Прошу прощения.

[SAS888]

что нужно поменять, если вместо столбца F, будет столбец I
И данные будут начинаться не со 2й строки, а с 10.

В макросе нужно заменить строки

Set x = Sheets("Данные").Range("F2:F" & Sheets("Данные").Cells(Rows.Count, "F").End(xlUp).Row)
    a = x.Value: b = x.Offset(, -3).Value

на следующие:

Set x = Sheets("Данные").Range("I10:I" & Sheets("Данные").Cells(Rows.Count, "I").End(xlUp).Row)
    a = x.Value: b = x.Offset(, -6).Value

Пример во вложении.
Сравнив эти строки и разобравшись, Вы без труда сможете вносить требуемые изменения самостоятельно.

[Z0RGE]

Еще раз большое спасибо!

[Z0RGE]

Столкнулся с очередной проблемой:
Можно ли сделать так, чтобы все переносилось как сейчас, только в разные столбцы, в зависимости от названия ячейки в столбце G.
Т.е если в ячейке G указано Магазин, то все необходимые данные в строке переносятся (в таком виде, как в макроса) в столбец магазин, если в ячейке указано Киоск, то все данные напротив Киоск переносятся в столбец Киоск... И так все все данные раскидать по столбцам!

Пример желаемого во вложении

[Z0RGE]

Возможно ли такое реализовать?
Заранее благодарю

[uniturs]

Добрый день!
Помогите пожалуйста!
Нужен макрос переноса данных из книги свод в книгк инструмент
по параметрам : N подразделения, роль, драйвер
в столбец соответствующего месяца - A2 в файле свод.
объяснил сумбурно, но кажется посмотрев файлы должно быть понятно.