VBA: Как подсчитать, сколько раз встречаются в слове две буквы?

Автор Art1st, 03 апреля 2014, 21:21

Art1st

Нужно написать макрос, который подсчитывает количество букв "а" и "б" в слове "аббревиатура".
Должен быть ответ: 5.

Администратор

Макрос
Sub Макрос()
   
    Dim strText As String
    Dim lngCount As Long
    Dim i As Long
   
   
    strText = "аббревиатура"
   
    For i = 1 To Len(strText) Step 1
        If Mid(strText, i, 1) = "а" Or Mid(strText, i, 1) = "б" Then
            lngCount = lngCount + 1
        End If
    Next i
   
    MsgBox lngCount
   
End Sub
[свернуть]