Добрый день!
Это смотря какую формулу вы хотите?
Пользовательскую? Стандартную? Всегда уточняйте свой вопрос.
например так
Функция ПодсчетБукв
Ну и код
Вы можете создавать собственные функции, применять форматирования, подключать свои библиотеки и т.д.
Attribute VB_Name = "Module1"
Option Explicit
'Пользовательская фукнкция
Public Function ПодсчетБукв(ByVal текст As String, ByVal буква As String) As String
'---
Dim k1 As Integer
If буква = "" Then
'---
ПодсчетБукв = "Не задана буква!"
Else
'---
For i = 1 To Len(текст)
If LCase(Mid(текст, i, 1)) Like буква Then
k1 = k1 + 1
End If
Next i
ПодсчетБукв = "Букв [" & буква & "] в тексте " & CStr(k1)
End If
End Function