Hi All,
Ok, So I have a "Description" column that contains a long text description in each cell, and I have thousands of cells like this.
So what I'm trying to do is to classify each cell by main keywords.
B.W it should be possible to have a few keywords for each description.
-----
I have 20 keywords, and my main issues of what I did so far are:
- Writing over each time
- Making sure "ITM" is a word by itself and not part of a word.
- Reliability of classification - I thought by counting the amount of time each words repeats itself within a cell.
This Is what I wrote so far:
Sub textsearch()
Dim c As Range, scount As Integer, stText As String
For Each c In Range("AL:AL")
For Each Word In Array("feeder", " ITM ", " IMP ", "word1", " word2", " petrol", "Paper", "Oil")
If InStr(1, c.Value, Word, vbTextCompare) > 0 Then
c.Offset(, -2).Value = Word
stText = c.Value
scount = (Len(stText) - Len(Replace(stText, Word, ""))) / Len(Word)
c.Offset(, -1).Value = scount
End If
Next Word
Next c
End Sub
Kind Regards,
Bookmarks