Обработка строк

[Malyshka]

Определить количество слов в заданном предложении, заканчивающихся заданной буквой.. Помогите, буду очень признательна

[IgorGO]

Sub LastChar()
  s = InputBox("предложение? ")
  ch = InputBox("последняя буква?")
  For i = 0 To UBound(Split(s, " "))
    If Right(Split(s, " ")(i), 1) = ch Then c = c + 1
  Next
  MsgBox c & " слов заканчивается на " & ch, vbOKOnly, "В преложении: " & s
End Sub

[Hugo121]

Предложение в переменную, переменную в массив по пробелам (Split()), перебор - анализ буквы - счётчик.
Можно обойтись без переменной.

Добавлю - посмотрел код Игоря - если использовать InputBox, то без переменной не получится.

[vikttur]

Формула массива:

{=СУММ(--(A2=ПСТР(A1;ПОИСК("/";ПОДСТАВИТЬ(A1&" ";" ";"/";СТРОКА(A1:ИНДЕКС(A1:A100;ДЛСТР(A1 )-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))+1))))-1;1)))}

А1 - текст, А2 - искомая буква.

[ZORRO2005]

Еще вариант:

[vikttur]

Второй лучше

[SAS888]

А мне больше нравится вариант от IgorGO. Только я бы добавил удаление "лишних" пробелов:

s = Application.Trim(s)

[Malyshka]

Благодарна за помощь, но мы не используем таких операторов и функций((( Вот пример похожей задачи. пробовала сделать по аналогии, но не получается(((
Предложением будем называть любой набор символов. «Слова» в
предложении разделяются пробелом. Найти первое слово, начинающееся заданной буквой.
Решение задачи основывается на поиске начала и конца «слова» в предложении.
Используется следующий алгоритм: (i+1)-й – номер первой буквы «слова» - это когда (i+1)-й
символ пробел, а i-й символ НЕ пробел; i-й – номер последней буквы «слова» - это когда i-й
символ НЕ пробел, а (i+1)-й символ пробел.
Private Sub CB_Res_Click()
Dim R_Str As String, Res As String
Dim Simb As String, rs As String
Dim N_Let As Integer, i As Integer
Dim k0 As Integer, k1 As Integer
Dim Ok As Boolean ' =True- слово найдено, False - нет
R_Str = TB_Str.Text
R_Str = LTrim(R_Str) ' Убираем пробелы в начале строки
R_Str = RTrim(R_Str) ' Убираем пробелы в конце строки
N_Let = Len(R_Str) ' Длина строки
Simb = TB_Simb.Text ' Буква для поиска
Ok = Mid(R_Str, 1, 1) = Simb ' Это буква первого слова?
If Ok Then
k0 = 1 ' Если - да, то k0 = 1
Else ' Просматриваем предложение и ищем начало слова
For i = 1 To N_Let - 1
If (Mid(R_Str, i, 1) = " ") And _
(Mid(R_Str, i + 1, 1) <> " ") Then ' Нашли начало слова
rs = Mid(R_Str, i + 1, 1) ' выделяем первую букву слова
Ok = rs = Simb ' Совпадение есть?
If Ok Then ' Если - да, то
k0 = i + 1 ' k0=i+1 - Номер буквы
Exit For ' Выход из цикла
End If
End If
Next i
End If
If Ok Then ' Если совпадение было, то ищем конец слова
For i = k0 + 1 To N_Let - 1
If Mid(R_Str, i, 1) <> " " And _
Mid(R_Str, i + 1, 1) = " " Then ' Нашли конец слова
k1 = i ' Номер буквы
If Ok Then Exit For
End If
Next i
End If
If Ok Then
If k1 = 0 Then k1 = N_Let ' т.е. это последнее слово
Res = Mid(R_Str, k0, k1 - k0 + 1)
TB_Res.Text = Res
Else
TB_Res.Text = "Нет такого слова"
End If
End Sub

[IgorGO]

я пугаюсь таких длинных процедур...

Sub start()
  Dim s As String, ch As String, n As Long
  s = "Благодарна за помощь, но мы не используем таких операторов и функций((( Вот пример похожей задачи. пробовала сделать по аналогии, но не получается((("
  ch = "а"
  MsgBox "Количество слов, которые закончилось на """ & ch & """ = " & CNT(1, s, ch)
End Sub

Function CNT(p1 As Long, s As String, c As String) As Long
  p1 = InStr(p1, s, " ")
  If p1 = 0 Then
    CNT = IIf(Right(s, 1) = c, 1, 0)
  Else
    CNT = IIf(Mid(s, p1 - 1, 1) = c, 1, 0) + CNT(p1 + 1, s, c)
  End If
End Function

у функции CNT один существенный недостаток, если слово заканчивается не пробелом, а каким-то знаком, то будет неправильно посчитано.
если в предложении из примера посчитать слова, которые закончились на "и", таких слов окажется 1 - это слово и, хотя в преложении есть слова задачи и аналогии, которые строго говоря следовало бы засчитать как соответствующие.

[EugeneS]

пример через регулярные выражения. Текст в ячейке А1

Sub RegExp_use5()
Dim obj As Object
Set obj = CreateObject("VBScript.regexp")
idata = Application.InputBox("Укажите букву", Type:=2)
If Len(idata) > 1 Then Exit Sub
With obj
    .Global = True
    .Pattern = "[а-яА-Я]+" & idata & "[^а-яА-Я]"
If obj.test([a1]) = True Then
    Set objmatch = obj.Execute([a1])
Else
    MsgBox "Не найдено ни одного слова оканчивающегося на букву " & idata
    Exit Sub
End If
MsgBox "В предложении найдено " & objmatch.Count & " слов(a) оканчивающихся на букву " & idata
End With: End Sub