Создайте макрос который будет кодировать текст заменяя буквы "а" в тексте указанной...

Question

Создайте макрос который будет кодировать текст заменяя буквы "а" в тексте указанной ячейки на произвольный символ и выводить закодированный текст в новой ячейке.

Comments

Всегда на один и тот же, на один и тот же во всем тексте при каждом вызове макроса или на произвольный каждый встреченный символ "а"? И еще, буквы латинские или русские? И произвольный символ - он буква или вообще любой?

---

буквы а русские

---

символ любой

Answer 1

Исходный текст поместить в ячейку A1, результат будет в А2

Sub Rep()
    n1 = Asc(" ")
    n = Asc("я") - n1 + 1
    Randomize Timer
    s = Cells(1, 1).Value
    For i = 1 To Len(s)
        If Mid(s, i, 1) = "а" Then
            Mid(s, i, 1) = Chr(Int(n * Rnd + n1))
        End If
    Next i
    Cells(2, 1).Value = s
End Sub

Тестовое решение:
Наша Маша - растеряша!
Н3шЮ МHш# - рястеряшМ!