Как перемешать буквы в словах в Excel?
В некоторых случаях может понадобиться перемешать буквы внутри слов на листе Excel — например, для анонимизации данных, создания словесных игр или подготовки учебных и тестовых заданий. Как показано на рисунке ниже, у вас есть список слов, и задача состоит в том, чтобы случайным образом перетасовать буквы каждого слова. В следующей статье рассматриваются несколько эффективных методов решения этой задачи с учётом различных версий Excel, потребностей и уровня пользовательских навыков.
Перемешивание букв в словах с помощью пользовательской функции
Легко перемешивайте буквы в словах с помощью Kutools для Excel
Перемешивание букв в словах с помощью формулы Excel (Excel 365 и новее)
Перемешивание букв в словах с помощью пользовательской функции
Один из способов перемешать буквы в словах в Excel — использовать пользовательскую функцию (UDF), написанную на VBA. Такой подход идеально подходит тем, у кого есть доступ к встроенному редактору VBA и кто готов работать с пользовательскими функциями. Преимущество решения на VBA — совместимость практически со всеми версиями Excel и возможность легко повторно использовать его для разных наборов данных.
Внимание: Для этого метода необходимо включить макросы. Всегда сохраняйте свою работу перед запуском или редактированием кода VBA и используйте только код из надёжных источников, чтобы избежать потенциальных проблем с безопасностью.
Чтобы перемешать буквы внутри ячеек с помощью пользовательской функции, выполните следующие действия:
1. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите пункт меню Insert > Module. Затем скопируйте и вставьте приведённый ниже код VBA в открывшееся окно Code. См. скриншот для справки:
Код VBA: Перемешивание букв в словах
Function Scramble(oldname)
On Error Resume Next
n = Len(oldname)
newname = ""
Do
i = Int(Rnd() * n) + 1
c = Mid(oldname, i, 1)
If c <> "*" Then
newname = newname & c
oldname = Replace(oldname, c, "*", , 1)
End If
Loop Until Len(newname) = n
Scramble = LCase(newname)
End Function
3. После вставки кода нажмите Alt+Q, чтобы закрыть редактор VBA и вернуться к листу Excel.
4. Выберите пустую ячейку на листе, куда вы хотите поместить перемешанное слово, и введите следующую формулу в строку формул. Например, если слово, которое нужно перемешать, находится в ячейке A2, используйте:
=scramble(A2)
Нажмите Enter. Чтобы перемешать остальные слова в списке, щёлкните ячейку с результатом и перетащите маркер заполнения вниз — формула автоматически применится ко всем остальным ячейкам. В результате каждое слово будет случайным образом перемешано. См. скриншот с примером отображения перемешанных слов в Excel:
Примечание: В формуле A2 указывает на исходное слово, которое нужно перемешать. Если ваши данные находятся в другом столбце или строке, обновите ссылку на ячейку соответствующим образом. Функция будет перемешивать слово заново при каждом пересчёте листа, поэтому, если вы хотите зафиксировать результат, скопируйте его и вставьте как значения.
Преимущества: Работает в большинстве версий Excel и легко настраивается под более сложные задачи.
Недостатки: Требует включения макросов, знания VBA и может быть запрещён в организациях со строгой политикой безопасности.
Легко перемешивайте буквы в словах с помощью Kutools для Excel
Если вы предпочитаете простое решение без программирования, Kutools для Excel предлагает удобный инструмент для работы с текстом в ячейках. Хотя функция Изменить порядок символов не является полноценным перемешивателем букв, она позволяет быстро изменить порядок символов в любом выделенном фрагменте — что может пригодиться для базового перемешивания или создания альтернативных текстовых шаблонов при тестировании данных и разработке учебных заданий.
1. Сначала выделите диапазон ячеек, содержащих слова, которые нужно изменить. Затем перейдите на вкладку Kutools, нажмите Text и выберите Изменить порядок символов, как показано ниже:
2. В диалоговом окне Перевернуть текст укажите разделитель, который будет определять, что именно переворачивается. Чтобы перемешать отдельные буквы, выберите вариант None, затем нажмите OK.
Выбранные слова теперь изменены путём обратного расположения букв, как показано на скриншоте ниже. Если вы захотите повторить попытку или изменить параметр разделителя, просто отмените операцию с помощью Ctrl+Z.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Преимущества: Простота в использовании, не требует навыков программирования и идеально подходит для быстрой обработки текста. Даже пользователи без опыта работы с формулами или VBA справятся без труда.
Недостатки: В основном просто меняет порядок букв на обратный вместо настоящего случайного перемешивания, а также требует покупки и установки надстройки.
Перемешивание букв в словах с помощью формулы Excel (Excel 365 и новее)
В Excel 365 и более поздних версиях доступны мощные функции динамических массивов, такие как SORTBY и RANDARRAY. Их можно комбинировать с функциями MID и SEQUENCE, чтобы случайным образом перемешать буквы в слове. Благодаря этому вы получаете полностью формульное решение для перемешивания текста — без надстроек и без кода VBA. Этот метод идеально подходит пользователям современных версий Excel, которым нужна динамическая, управляемая формулами рандомизация текста прямо в ячейках.
Этот подход идеально подходит, если вы хотите создать воспроизводимый и полностью прозрачный перемешиватель с использованием вспомогательных столбцов. Вот как это сделать:
1. Допустим, исходное слово находится в ячейке A2. Введите следующую формулу в ячейку B2:
=TEXTJOIN("", TRUE, SORTBY(MID(A2, SEQUENCE(LEN(A2)),1), RANDARRAY(LEN(A2))))2. Нажмите Enter. Перемешанная версия слова из ячейки A2 сразу же появится в ячейке B2. Чтобы применить это к другим ячейкам в столбце A, выберите ячейку B2 и перетащите маркер заполнения вниз по диапазону, где нужно перемешать дополнительные слова.
Пояснение параметров:
- MID(A2, SEQUENCE(LEN(A2)),1): разбивает слово на отдельные буквы.
- RANDARRAY(LEN(A2)): генерирует случайное число для каждой буквы, чтобы перемешать их.
- SORTBY(…, RANDARRAY(…)): перемешивает буквы, сортируя их на основе случайных чисел.
- TEXTJOIN(«», TRUE, …): объединяет перемешанные буквы в одно целое слово.
Советы: При каждом пересчёте листа результат перемешивания может меняться, так как он зависит от случайных чисел. Если вам нужны статичные результаты, скопируйте ячейки с результатами и вставьте их как значения. Если вы видите ошибку #NAME?, убедитесь, что используете Excel 365 или версию, поддерживающую функции SORTBY и RANDARRAY.
Преимущества: Не требует программирования, совместимо с любыми таблицами, поддерживающими динамические массивы, и каждый раз выдаёт новый результат перемешивания.
Недостатки: Доступно только в Excel 365 и более новых версиях; не работает в старых версиях, не поддерживающих динамические массивы.
Рекомендации по устранению неполадок: Если результат не обновляется, убедитесь, что режим вычислений установлен в «Автоматически» (Формулы > Параметры вычислений > Автоматически). Внимательно проверьте формулы на опечатки и убедитесь, что ячейки с результатами отформатированы как «Общий» или «Текст». Если перемешанные слова отображаются не так, как ожидалось, отключите все фильтры или правила проверки данных, которые могут мешать обновлению формул.
Краткие советы: Для большинства пользователей метод с использованием формул — это быстрый и эффективный способ перемешать буквы, при условии что используется недавняя версия Excel. Если же вам нужна зафиксированная перемешанная версия или требуется поддержка более старых версий Excel, рассмотрите альтернативные варианты: метод VBA или Kutools.
Связанные статьи:
- Как применить условное форматирование ячейки в Excel на основе первой буквы или символа?
- Как быстро привести все буквы в ячейке или целом столбце к верхнему регистру в Excel?
- Как фильтровать значения по первой букве или последнему символу в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек