схожие наименования

[slon2]

Для сравнения данных и перенос их в одну таблицу я написал:

Sheets("Лист2").Select
Range("a1").Select
Sheets("Лист1").Select
Range("a1").Select

For x = 1 To 10

a = ActiveCell
Sheets("Лист2").Select

'Проверяем наличие записи
Set oFind = Cells.Find(a)

'Если записи нет
If oFind Is Nothing Then
Sheets("Лист1").Select
ActiveCell.Offset(0, 4).FormulaR1C1 = "=RC[-4]"
ActiveCell.Offset(0, 5) = 0
ActiveCell.Offset(0, 6) = 0
ActiveCell.Offset(0, 7) = 0
ActiveCell.Offset(1, 0).Select
'Если запись есть
Else
Cells.Find(a).Select

Range(ActiveCell, ActiveCell.Offset(0, 3)).Select
Selection.Cut
Sheets("Лист1").Select
ActiveCell.Offset(0, 4).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -4).Select
End If

Next x
И все бы хорошо, но вот такие наименования, как, например молоко и молоко сгущеное он воспринимает, как одно и то же. Как от этого избавиться?
Спасибо

[ZlydenGL]

А тебе вообще надо как? Чтобы он воспринимал записи "Молоко" и "Молоко сгущеное" по-разному, а "Молоко сгущеное 10%" и "Молоко сгущеное вареное" как одно и то же? Не прокатит стандартными средствами.

Иначе же читай хелп по Find функции и ищи как ее запустить по принципу "Match the whole string only"

Удачи!!!

[slon2]

Нет, мне просто надо, что бы молоко идентифицировалось с молоком, а молоко сгущеное с молоком сгущеным и молоко вареное 10% с молоком вареным 10%.