[a_axe]

Как мне правильно выделить одинаковые слова. »

На форуме это обсуждалось много раз: какие слова считать похожими? Наименования "Творог деревен." и "Колбаски деревен." - похожи (если нет - как об этом должен узнать алгоритм)? Как быть с предлогами и сокращениями: "сосиски с сыром", "паштет из печени" - они встретятся в "салями" и "газета известия" и т.д. Как быть, если в наименовании встретятся одновременно два разных ключевых слова? Чем "Makfa" похожа на "Макфа" и т.д.

то получаю ошибку компиляции »

Приложите скрин этой ошибки и укажите, на какую строку ругается. Вы приложили кусок кода, скопируйте его целиком. У меня на ваш отрывок ошибок не выскакивало.

Например вот документе »

Код явно написан не под этот документ - он сравнивает ячейки первого столбца, точнее - их значения целиком. Предполагается, что вы для каждой ячейки будете указывать ключевые слова вручную? Тогда их можно отфильтровать, или использовать штатные функции excel для подсчета вхождений. Если ключевые слова должен определять код, то это сложная задача, с точки зрения алгоритма.

А решения, обсуждавшиеся на форуме раньше, под вашу задачу не подходят?

[r-studio]

a_axe,

Код:

Option Explicit

Public Sub FindDuplicates()

Dim lRow As Long
Dim lRow2 As Long
Dim lLastRow As Long
Dim sString As Long
'This use of capitalisation is called 'camel case' - and is good for lots of reasons
' using lots of comments like this helps you to understand your code later

lastrow = ActiveSheet.UsedRange.Rows.Count
For lRow = 1 To lLastRow
  sstring1 = ActiveSheet.Range("A" & lRow).Value
  If sstring1 <> "" Then 'cell is not blank - proceed with test
   For lRow2 = lRow + 1 To lLastRow
     sstring2 = Range("A" & lRow2).Value
     If sstring1 = sstring2 Then
        bflag = True 'values match
        'do something with matching values
        ActiveSheet.Range("A" & lRow2).Interior.ColorIndex = 3   'mark cells with red background fill
        'you could also activesheet.range("A" & lrow2).clearcontents 'to delete values
     End If

    Next lRow2
   End If
Next lRow


If bflag = False Then MsgBox ("no duplicate values found")

End Sub

screen

(если нет - как об этом должен узнать алгоритм)? »

Хорошие вопросы.
1. А можно ли сделать в алгоритме сличение, например, говоря бытовым языком, не является ли транслит в данном случае MAKFA МАКФОЙ
2. Макар и Макароны, ну тут по корню,

"Творог деревен." и "Колбаски деревен." »

"Творог деревен." и "Колбаски деревен." »

дело в том, что в списке будет
твор деревен
творог дер
твор дереве
итак далее тво + дер
тут ключевое твор
а также

колбаса деревен
колб деревен
колб дер
колбас дере
и так далее

т.е. для таких фраз надо увидеть ключевое колб+дер

это можно сделать?

Предполагается, что вы для каждой ячейки будете указывать ключевые слова вручную? »

сравнивать вручную я не хочу в том и дело. Я просто как пример привел

под вашу задачу не подходят? »

проблема в том, что я не с экселем буду работать, я его как пример привел
исходные данные миллионы строк в txt

C:/чек.txt
он оттуда должен брать, т.е. я создам эксель файл, помещу туда код макроса, а он уже будет работать с текстовым файлом
там (текстовый)и должна появится колонка тип товара , а сам файл, уже буду в sql импортировать
при том, безупречного определения я не жду.

[a_axe]

r-studio, опция

Option Explicit »

говорит о том, что переменные в вашем коде должны быть описаны через dim
lastrow у вас не описана (вместо этого - похожая переменная Dim lLastRow As Long), sstring1 и sstring2 тоже (должны быть - as string, у вас похожая переменная почему-то Dim sString As Long).
На это и ругается excel.

[r-studio]

a_axe, Как мне правильно составть код исходя из тех требований, что я описал постом выше? Сможете помочь?

[Iska]

r-studio, перед тем как составлять код, правильно или неправильно, попробуйте сформулировать алгоритм. Я его тут не вижу.