Сравнение двух листов одной книги по колонке A

Автор mdfobos, 14.01.2012, 23:12

« назад - далее »

mdfobos

Здравствуйте! С EXCEL на ВЫ, прошу помощи сравнить два прайса. На двух листах в колонках А и В наименование и артикул соответственно. Нужно по одинаковым Наименованиям перенести на лист три. Вроде не сложно, но надо перенести вместе с артикулами из колонки В...  :D Пример прайса во вложении.

kuklp

Обычно ориентируются по артикулам...
Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

mdfobos

Спасибо огромное работает! Только просьба немного не так звучала, надо перенести в третий лист найденые значения, то есть в 1 и 2 листе должны быть пустые ячейки заместо найденных наименований...

mdfobos

По артиклам понятно проще, но прайсы по артиклам не совпадают приходится ориентироваться по Наименованию которые тоже немного отличаются, в Вашем макросе можно сделать удаление пробелов и тире перед сравнением?  ::)

mdfobos

Написали мне макрос удаляет найденные Наименования с листа 1 и 2, но с прайсом в 4500 строк на каждом листе долго думает и не все строки удаляет.
Sub ww2()
Dim i, j

Do
i = i + 1
j = 0
Do
j = j + 1
If Sheets(3).Cells(i, 1).Text = Sheets(1).Cells(j, 1).Text Then Sheets(1).Cells(j, 1) = ""
Loop While Not Sheets(1).Cells(j, 2) = ""
j = 0
Do
j = j + 1
If Sheets(3).Cells(i, 1).Text = Sheets(2).Cells(j, 1).Text Then Sheets(2).Cells(j, 1) = ""
Loop While Not Sheets(2).Cells(j, 2) = ""
Loop While Not Sheets(3).Cells(i, 1) = ""

End Sub

Может хоть этот код можно оптимизировать?

kuklp

Я, как всегда, чертовски адекватен... Email: pilipnikop@yandex.ua WM Z206653985942, R334086032478, U238399322728, E332314026771

mdfobos

А так просто супер, моментально! Большое спасибо, тему можно закрыть...