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
Цитата a_axe:
|
(если нет - как об этом должен узнать алгоритм)? »
|
Хорошие вопросы.
1. А можно ли сделать в алгоритме сличение, например, говоря бытовым языком, не является ли транслит в данном случае MAKFA МАКФОЙ
2. Макар и Макароны, ну тут по корню,
Цитата a_axe:
|
"Творог деревен." и "Колбаски деревен." »
|
Цитата a_axe:
|
"Творог деревен." и "Колбаски деревен." »
|
дело в том, что в списке будет
твор деревен
творог дер
твор дереве
итак далее тво + дер
тут ключевое твор
а также
колбаса деревен
колб деревен
колб дер
колбас дере
и так далее
т.е. для таких фраз надо увидеть ключевое колб+дер
это можно сделать?
Цитата a_axe:
|
Предполагается, что вы для каждой ячейки будете указывать ключевые слова вручную? »
|
сравнивать вручную я не хочу в том и дело. Я просто как пример привел
Цитата a_axe:
|
под вашу задачу не подходят? »
|
проблема в том, что я не с экселем буду работать, я его как пример привел
исходные данные миллионы строк в txt
C:/чек.txt
он оттуда должен брать, т.е. я создам эксель файл, помещу туда код макроса, а он уже будет работать с текстовым файлом
там (текстовый)и должна появится колонка тип товара , а сам файл, уже буду в sql импортировать
при том, безупречного определения я не жду.
