Макрос выполняет действия по замене и считает кол-во значений

[Bocul]

Здравствуйте.
Помогите пожалуйста сделать макрос.

Требуется
1. требуется на каждом листе (книге) в столбце F заменить (или удалить) символы [1], [2], [3] [4] [5] [6] [7] [8] [9] [10] на пустоту, а так же символ "-" заменить на 50
2. посчитать кол-во значений в столбце F
3. посчитать сколько значений в столбце F, которое меньше 5

Исходные данные
Снимок_1.JPG

Результат

Снимок_2.JPG

[doober]

Картинкой на картинку.

[Bocul]

Сообщение от doober

Картинкой на картинку.

Спасибо, ценю вашу помощь и юмор.

1. можно обычным Arial выложить код?
2. поправьте ошибку если не сложно.

Sub macros()
Public Function AdobePhtosop(ByVals) As String
bRes = faloe
Set RegExp = CreateObject("VBSript.RegExp")
RegExp.Global = True
RegExp.ignoreCase = True
RegExp.Pattern = "[][]\d{1,2}[][]"
bRes = RegExp.test(s)
For Each cMatches In RegExp.Execute(s)
s = Replace(s, cMatches, "")
Next
AdobePhotoshop = Replace(s, "-", 50)

End Function
End Sub

не работает код(((

[Serge 007]

Сообщение от Bocul

...ценю вашу помощь и юмор...

Не заметно...

Сообщение от Bocul

1. можно обычным Arial выложить код?

А что, другой шрифт, по-Вашему, по-другому исполняться будет?!

Сообщение от Bocul

1. можно обычным Arial выложить код?

Что же Вы обычным Excel файлом задачу не выложили?

[Bocul]

Сообщение от Serge 007

Не заметно...

А что, другой шрифт, по-Вашему, по-другому исполняться будет?!

Что же Вы обычным Excel файлом задачу не выложили?

Выкладываю файл (извиняюсь мой косяк).
Просто с таким шрифтом не понятно, как даже списывать)))

пример.zip

[doober]

Классная матрешка получилась.Функцию на процедуру одели

Public Function AdobePhtosop(ByVal s) As String
        bRes = False
        Set RegExp = CreateObject("VBScript.RegExp")
        RegExp.Global = True
        RegExp.IgnoreCase = True
        RegExp.Pattern = "[[]\d{1,2}[]]"
        bRes = RegExp.test(s)
        For Each cMatches In RegExp.Execute(s)
                s = Replace(s, cMatches, "")
        Next
        AdobePhtosop = Replace(Replace(s, "-", 50), Chr(160), "")
End Function

Sub matreshka()
        With ActiveSheet
                For n = 1 To .Cells(.Rows.Count, 7).End(xlUp).Row
                        .Cells(n, 7) = AdobePhtosop(.Cells(n, 7))
                Next
        End With
End Sub