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

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