Як я можу порахувати, скільки паливних патронів складається за допомогою Microsoft Excel?

TL; DR Чи є щось подібне grepв Excel, що може допомогти мені підрахувати екземпляри, що містять лише цілі слова (наприклад, "wood", але не "woodchuck") (і, можливо, їх варіанти)?

Ось ось цей вірш від матері-гуски:

How much wood could a woodchuck chuck 
If a woodchuck could chuck wood? 
As much wood as a woodchuck could chuck, 
If a woodchuck could chuck wood.

І це початок, але важких цифр досі немає.

Тож я знайшов дуже корисну публікацію на Exceljet.net, яка пропонує використовувати комбінацію «SUBSTITUTE», «LEN» та «SUMPRODUCT».

Якщо ви уявляєте, що вищевказаний текст міститься в клітинках A1: A4, моя перша формула виглядала так:

= SUMPRODUCT ((LEN (A1: A4) -LEN (SUBSTITUTE ((UPPER (A1: A4)), UPPER ("wood"), ""))) / LEN ("wood"))

зауважте: у мою формулу включено "верхнє", тому що вірш, який вона мені надіслав, виглядає приблизно так

hOw MucH WOod cOuld a WOodCHucK CHUCk 
IF a wOoDchUCk couLD cHuck wood? 
aS muCH wOOD as a WOOdCHuCk coUlD ChuCK, 
iF a woODChUck coulD CHuCK WoOD.

Але все одно, результат цього - 8, що неправильно.

Я порахував вручну, там всього 4 лісу, і 4 дроворуби. Я не хочу рахувати дроворубів, просто деревину, яку вони б палили (якщо б справді вони могли б потрошити дрова).

Тож тепер моя поточна формула виглядає приблизно так:

= SUMPRODUCT ((LEN (A1: A4) -LEN (SUBSTITUTE ((UPPER (A1: A4)), UPPER ("wood"), ""))) / LEN ("wood")) - (SUMPRODUCT ((LEN) (A1: A4) -LEN (SUBSTITUTE ((UPPER (A1: A4)), UPPER ("woodchuck"), ""))) / LEN ("woodchuck")))

І це технічно працює! але правда полягає в тому, що я не дуже намагаюся підрахувати кількість зустрічань слова "деревина" у вірші "мати-гусь", мені потрібно порахувати кількість примірників багатьох різних слів, у тому числі тих, які можуть бути перенесені, неправильно написані або мати у них випадкові пробіли чи символи. Мені в основному потрібне щось на зразок грепу всередині Excel. Чи існує така річ? Якщо повернутися до сфери мого оригінального запитання, чи є простіший спосіб написати формулу для підрахунку екземплярів, що містять лише цілі слова, і результат покласти в клітинку?

Важкий і складний з функціями робочого аркуша через складність визначення меж слова, коли потрібно мати справу з пробілами, а також різні розділові знаки.

Двигун регулярних виразів VBA має простий маркер, \bякий буде виявляти межі слова, які визначаються як місце, де зустрічаються wordсимвол і non-wordсимвол, або початок або кінець рядка. Символ слова - це той, який знаходиться у множині[A-Za-z0-9_]

Функція VBA:

Option Explicit
'Set Reference to Microsoft VBScript Regular Expressions 5.5
'   or convert to Late Binding

Function ReCount(str As String, Pattern As String, _
    Optional CaseSensitive As Boolean = True) As Long

Dim objRegExp As RegExp
Dim objMatch As Match
Dim colMatches   As MatchCollection

    ' Create a regular expression object.
   Set objRegExp = New RegExp

   'Set the pattern by using the Pattern property.
   objRegExp.Pattern = Pattern

   ' Set Case Insensitivity.
   objRegExp.ignoreCase = Not CaseSensitive

   'Set global applicability.
   objRegExp.Global = True

   'Test whether the String can be compared.
    If (objRegExp.Test(str) = True) Then

   'Get the matches.
        Set colMatches = objRegExp.Execute(str)   ' Execute search.
        ReCount = colMatches.Count
    Else
        ReCount = 0
    End If
End Function

Використання:

=ReCount(A6,"\bwood\b")

Це працює для цього примірника, можливо, вам потрібно буде додати інші суб’єкти для інших пунктуацій.

=SUMPRODUCT(--ISNUMBER(SEARCH(" "& "wood" & " "," " & SUBSTITUTE(SUBSTITUTE(A1:A4,".",""),"?","") & " ")))

Це тепер шукає повне слово, оточене пробілами, саме тому нам потрібно видалити розділові знаки. Оскільки ПОШУК не є чутливим до регістру, нам не потрібна ВИПАДКА.

Вищенаведене буде рахувати лише 1 на клітинку незалежно від кількості знайдених слів.

Це буде рахувати всіх:

=SUMPRODUCT((LEN(" " & SUBSTITUTE(SUBSTITUTE(UPPER(A1:A4),".", " "),"?"," ") & " ")-LEN(SUBSTITUTE(" " & SUBSTITUTE(SUBSTITUTE(UPPER(A1:A4),"."," "),"?"," ") & " ",UPPER(" wood "),"")))/LEN(" wood "))

Ця проста формула буде рахувати Вуд у діапазоні даних.

=COUNTIF(E53:E56,"*wood*")

ВІДМОВЛЕНО:

Поява деревини можна порахувати і за допомогою стовпчика помічників.

• У стовпчик помічників напишіть Дерево у всіх можливих форматах.
• Напишіть цю формулу і заповніть.
• Нарешті підсумуйте графа.

=SUMPRODUCT(LEN($E$74:$E$77)-LEN(SUBSTITUTE($E$74:$E$77,F74,"")))/LEN(F74)

• За необхідності відрегулюйте посилання на комірки у формулі.