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

Исходный текст поместить в ячейку 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ш# - рястеряшМ!