Страницы: 1
RSS
Как вытянуть номер конкретного слова из ячейки (Формула)
 
Добрый день.
Есть массив предложений в столбце. Есть различные слова в первой строке.
Необходимо вычленить из предложений номер, под которым встречается конкретные слова, если в качестве разделителя слов считать пробел.
Пример правильного выполнения прикладываю.

Гуглил ПОИСКПОЗ и ИНДЕКС, но похоже задачу они не решают.  

Подскажете?
 
=IFERROR(LEN(LEFT(" "&$A2;SEARCH(" "&B$1&" ";" "&$A2&" ")))-LEN(SUBSTITUTE(LEFT(" "&$A2;SEARCH(" "&B$1&" ";" "&$A2&" "));" ";));)
Изменено: БМВ - 18.11.2020 12:42:22
По вопросам из тем форума, личку не читаю.
 
БМВ, спасибо огромное. Работает как часы.
 
Цитата
shlackbaum написал:
Работает как часы.
странно, не должно и не работает, я на запятые внимания не обратил
уже не так коротко
=IFERROR(LEN(LEFT(" "&TRIM(SUBSTITUTE($A2;",";" "));SEARCH(" "&B$1&" ";" "&TRIM(SUBSTITUTE($A2;",";" "))&" ")))-LEN(SUBSTITUTE(LEFT(" "&TRIM(SUBSTITUTE($A2;",";" "));SEARCH(" "&B$1&" ";" "&TRIM(SUBSTITUTE($A2;",";" "))&" "));" ";));)
Изменено: БМВ - 18.11.2020 14:19:29 (Файл с формулами далее.)
По вопросам из тем форума, личку не читаю.
 
Часы не той системы )
 
Цитата
вытянуть номер конкретного слова из ячейки
Я формулой не умею
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
Dim arr
Dim n As Integer
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To iLastRow
    arr = Split(Cells(i, "A"), " ")
    For n = 0 To UBound(arr)
      If arr(n) Like "*блоко*" Then
        Cells(i, "B") = n + 1: Exit For
      Else
        Cells(i, "B") = 0
      End If
    Next
    For n = 0 To UBound(arr)
      If arr(n) Like "*рбуз*" Then
        Cells(i, "C") = n + 1: Exit For
      Else
        Cells(i, "C") = 0
      End If
    Next
  Next
End Sub
 
Off
Цитата
vikttur написал:
Часы не той системы )
медведь уже на календарь смотрит, а не на часы :-)
По вопросам из тем форума, личку не читаю.
 
Цитата
медведь уже на календарь смотрит
Это что? В спячку пора?
 
Цитата
Kuzmich написал:
Это что?
=choose(randbetween(1;3); "спячка" ; "счаслиивые часов не наблюдают" ;  "а годы летят наши годы как птицы летят")


Так покороче
=IFERROR(SUMPRODUCT((MID(TRIM(SUBSTITUTE($A2;",";" "));ROW($A$1:$A$99);1)=" ")*( ROW($A$1:$A$99)<SEARCH(" "&B$1&" ";" "&TRIM(SUBSTITUTE($A2;",";" "))&" ")))+1;)
Изменено: БМВ - 18.11.2020 14:19:13
По вопросам из тем форума, личку не читаю.
 
Чей-то медведь киснуть начал :)
randbetween(1;4);...;"Какие наши годы!")
 
Off
Цитата
vikttur написал:
киснуть начал
да берлогу снес, а новая не строится :-)
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх