Сравнение листов в книге, и копирование значений

[Josser]

Помогите пожалуйста.

Есть книга с 3 листами, нужно провести сравнение и копирование. Сравнение цен ведется по колонке "Артикул" листа "Цены_0", при нахождении в колонке "А" в названии соответствующего "Артикула" в листах "Цены_1", "Цены_2", нужно скопировать значение в соответствующую ячейку в колонки листа "Цены_0".

[Josser]

Не получилось сразу файл прикрепить, попробую еще раз...

[Josser]

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

Помогите пожалуйста.

Есть книга с 3 листами, нужно провести сравнение и копирование. Сравнение цен ведется по колонке "Артикул" листа "Цены_0", при нахождении в колонке "А" в названии соответствующего "Артикула" в листах "Цены_1", "Цены_2", нужно скопировать значение в соответствующую ячейку в колонки листа "Цены_0".

Понимаю, что код ламерский и не оптимальный... но на сегодняшний день я лушче не могу )) буду благодарен за помощь

То что у меня вышло: (вроде работает):

Sub Сравнение_листов_0_1()
Application.ScreenUpdating = False

Dim s1, s2 As String
Dim i, n As Integer

For i = 2 To 100

s1 = Worksheets("Лист_0").Cells(i, 1).Text
For n = 2 To 100

s2 = Worksheets("Лист_1").Cells(n, 1).Text
If InStr(s2, s1) Then Worksheets("Лист_0").Cells(i, 4).Value = Worksheets("Лист_1").Cells(n, 4).Value

Next n

Next i

End Sub

[pivas]

Дело не в коде, здесь помогут всем, но для начала неплохо попользоваться поиском:http://programmersforum.ru/showthrea...ED%E5%ED%E8%E5

[Josser]

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

Дело не в коде, здесь помогут всем, но для начала неплохо попользоваться поиском:http://programmersforum.ru/showthrea...ED%E5%ED%E8%E5

Да я все понимаю, про то, что прежде, чем спросить, нужно поискать. и я даже кажется натыкался на эту ссылку днем раньше. Но днем раньше я бы не написал даже тот код, который выложил. Просто последнее, что я помню, это бейсик в школе 10 лет назад

Спасибо за ссылку

[SAS888]

Но в Вашем файле во 2-м и 3-м листах нет столбцов с артикулами?!

[Josser]

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

Но в Вашем файле во 2-м и 3-м листах нет столбцов с артикулами?!

Да, их нет, так как это прайс листы конкурентов, и искать свой "Артикул" приходится в названии. Если бы в них были артикулы, траблов бы никаких не было бы

[SAS888]

Да, их нет, так как это прайс листы конкурентов, и искать свой "Артикул" приходится в названии

Ясно. Просто у Вас, почему-то, ищется подстрока содержащая название (столбцы "A" листов 2 и 3) в строке с артикулами (столбец "A" листа 1). Вот это и странно.
Тогда вопрос, как искать? Т.е. какую часть строки из прайсов нужно найти в названиях листа 1, чтобы однозначно принять решение, что это одно и то же? Записи сделаны по разному ("Картридж" -> "К-ж", через ",' -> через "/" и т.д.). Может быть достаточно совпадения по 2-му слову?

[Josser]

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

Ясно. Просто у Вас, почему-то, ищется подстрока содержащая название (столбцы "A" листов 2 и 3) в строке с артикулами (столбец "A" листа 1). Вот это и странно.
Тогда вопрос, как искать? Т.е. какую часть строки из прайсов нужно найти в названиях листа 1, чтобы однозначно принять решение, что это одно и то же? Записи сделаны по разному ("Картридж" -> "К-ж", через ",' -> через "/" и т.д.). Может быть достаточно совпадения по 2-му слову?

"Артикул" содержится в названии продуктов конкурентов и поиск производится именно по нему. Есть правда небольшие недочеты: например когда Артикулы похожи Q2612A, Q2612AD

[SAS888]

Посмотрите вложение. Запустите макрос "Main". Что не так?