It is not a simple task. Yes! for VBA please!

[Rik3D]

It is not a simple task. Yes! - находится в ячейке А1

1) Найти в выражении клетки А1 каких символов больше
2)Считать до точки. Регистр не учитывать
3)Если несколько символов встречаются одинаковое количество раз, то взять первый из них по алфавиту
4)Отобразить на экрате в виде: символ_пробел_количество
Например: U 5

Напишите код программы

[tyomitch]

Ну достал автор... Из пяти сообщений - три одинаковых начала топиков.

[gacol]

Private Sub CommandButton1_Click()
xstr = [A1]
nstr = InStr(xstr, ".") - 1
If nstr > 0 Then
xstr = Left(xstr, nstr)
mmax = -999
For n = 1 To nstr
x = Mid(xstr, n, 1)
m = nstr - Len(Replace(xstr, x, ""))
If m > mmax Then
mmax = m
xmax = x
End If
Next n
MsgBox xmax & " " & mmax
End If
End Sub