Копирование строк

[Tim24]

Доброго времени суток!
Имеется:
2 Excel документа с номенклатурой
Задача:
Копировать из документа A в документ B строчек, НО с условием, что в документе B такого наименования нет, а при совпадении наименования копирование выбранной строчки не производить.

По итогу:
Один документ с полной и не повторяющейся номенклатурой.


Прошу помоч, каким образом проще всего это решить?

Заранее спасибо!

[SAS888]

1. Подобных примеров много на нашем форуме. поищите.
2. Задача тривиальная. Но у меня нет ни малейшего желания создавать файлы с Вашими предполагаемыми данными. Прикрепите файлы с данными в несколько строк, тогда получите быстрый, а самое главное, точный ответ.

[Tim24]

2. Задача тривиальная. Но у меня нет ни малейшего желания создавать файлы с Вашими предполагаемыми данными. Прикрепите файлы с данными в несколько строк, тогда получите быстрый, а самое главное, точный ответ.

Прикрепил, спасибо.

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".
Если бы Вы еще указали, что должно быть в итоговой строке...

Совет на будущее: не увлекайтесь объединением ячеек без особой необходимости.

[Tim24]

При изменении количества строчек макрос работает не корректно

Пример:

Отчистил строки файла Б, оставил одно наименование. При выполнении макроса копируются данные корректно, но по одной строчке. Т.е. сколько строчек, столько раз нужно выполнить макрос. Это как то можно решить?

[SAS888]

Да. Извиняюсь. Строку кода макроса

a = .Range("A8:H" & Cells(Rows.Count, 1).End(xlUp).Row).Value

замените на

a = .Range("A8:H" & .Cells(Rows.Count, 1).End(xlUp).Row).Value

т.е. пропущена точка.

[Tim24]

Спасибо большое!

Не хочу показаться наглым, но если усложнить задачу. Из Документа А в Документ Б в той же схеме, но при совпадении наименования добавлять два новых столбца(входная цена и кол-во), при отсутсвии соответсвенно добавлять наименование и данные двух столбцов из документа А(входная цена и кол-во). Такое возможно?

И ещё небольшой такой нюанс... Возможно сделать это копирование строк по алфавиту, т.е. если наименование отсутствует, оно добавлялось не в начало таблицы, а по алфавиту.

[Tim24]

Отблагодарю чем смогу. Помогите пожалуйста!

Заранее спасибо.

[SAS888]

Посмотрите вложение. Откройте оба файла и запустите макрос "Main".
Т.к. в Ваших файлах нет примера желаемого результата, то я сделал так как понял. Если что не так, то укажите что именно, и прикрепите пример.
И еще: я, конечно, не осмелился изменять структуру документов, но, если это возможно, то избавьтесь от объединенных ячеек. Это позволит существенно упростить макрос.

[Tim24]

Отличная работа!

Осталась одна проблема-сортировка. В случае когда объём номенклатуры большой, он делится на подгруппы. Можно как то добавление строк сделать не по алфавиту, а что бы строчки добавлялись в нужную подгруппу и там уже сортировались по алфавиту?