Ребята приветствую. Прошу помощи в реализации такого вопроса. Есть столбцы с множеством сортированных данных (столбцов может быть много) нужно при соответствии слова из конкретного столбца в тексте подставить номер этого столбца. слова в поисковом тексте могут стоять как угодно. Самое важное что нужно находить только стлова из списка целиком, т.е. слово "корм" и слово "корма" это 2 разных слова.
пример приложил, для наглядности выделил цветами. попробовал использовать данные из примера, именно формулы (Поиск ключевых слов в тексте) но получается вывести 1 слово и кучу нулей. Возможно тут совсем подход нужен другой? подскажите пожалуйста.
Sub iPoiskReplace()
Dim i As Long
Dim iLastRow As Long
Dim FoundCell As Range
Dim arr
Dim j As Integer
iLastRow = Cells(Rows.Count, "F").End(xlUp).Row
Range("G2:G" & iLastRow).ClearContents
Range("G2:G" & iLastRow).NumberFormat = "@"
For i = 2 To iLastRow
arr = Split(WorksheetFunction.Trim(Cells(i, "F")), " ")
For j = 0 To UBound(arr)
Set FoundCell = Columns("A:D").Find(arr(j), , xlValues, xlPart)
If Not FoundCell Is Nothing Then
Cells(i, "G") = Cells(i, "G") & Cells(1, FoundCell.Column) & " "
Else
Cells(i, "G") = Cells(i, "G") & arr(j) & " "
End If
Next
Next
End Sub