Как вывести те слова, в которых буква "а" повторяется дважды - VBA
Формулировка задачи:
Помогите пожалуйста, никак не могу понять в чем дело.
мне нужно сделать
1.Вывести те слова, в которых буква «а» повторяется дважды
2. Ту же программу написать как подпрограмму процедуру.
Написал код, но не работает
Решение задачи: «Как вывести те слова, в которых буква "а" повторяется дважды»
textual
Листинг программы
Sub cvb1() Dim s$, i&, ls&, k%, j&, sym$, m& i = 1: m = 1 While i <> 0 s = Cells(i, 1).Value 'считываем ls = Len(s) If ls = 0 Then Exit Sub 'длина слова=0 - выход k = 0 For j = 1 To ls sym = Mid(s, j, 1) If sym = "а" Or sym = "А" Then k = k + 1 If k = 2 Then Cells(m, 2).Value = s: m = m + 1 'запись, m-чтобы небыло пустых строк Exit For End If Next i = i + 1 Wend End Sub