Как перемешать буквы в словах в Excel?

Предположим, у вас есть список слов, и вам нужно перемешать все буквы в этих словах для каких-то целей, как показано на скриншоте ниже. Пожалуйста, попробуйте методы, описанные в этой статье.

Перемешивание букв в словах с помощью пользовательской функции
Легко перемешайте буквы в словах с помощью Kutools для Excel

Перемешивание букв в словах с помощью пользовательской функции

Вы можете перемешать буквы в ячейке с помощью следующей пользовательской функции. Действуйте следующим образом.

1. Нажмите клавиши Alt + F11 одновременно, чтобы открыть окно Microsoft Visual Basic for Applications,

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль, затем скопируйте и вставьте приведенный ниже код VBA в окно Кода. См. скриншот:

Код 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, чтобы закрыть окно Microsoft Visual Basic for Applications.

4. Выберите пустую ячейку для отображения перемешанных букв, затем введите формулу =scramble(A2) в строку формул и нажмите клавишу Enter. Продолжайте выбирать ячейку с результатом и перетащите её маркер заполнения вниз, чтобы получить все результаты. См. скриншот:

Примечание: A2 — это ячейка, содержащая слово, буквы которого вы хотите перемешать. Измените её по необходимости.

Легко перемешайте буквы в словах с помощью Kutools для Excel

Здесь я рекомендую полезное дополнение — Kutools для Excel. С помощью его функции Изменить порядок символов вы сможете легко перемешать буквы в выбранных ячейках всего за несколько кликов.

1. Выберите ячейки, внутри которых вам нужно перемешать буквы, затем нажмите Kutools > Текст > Изменить порядок символов. См. скриншот:

2. В диалоговом окне Изменить порядок текста укажите разделитель, на основе которого будут перемешаны буквы, в разделе Разделитель, а затем нажмите кнопку OK.

Теперь выбранные слова сразу же перемешиваются, как показано на скриншоте ниже.

Связанные статьи:

• Как применить условное форматирование к ячейкам на основе первой буквы/символа в Excel?
• Как преобразовать все буквы в верхний регистр в ячейке или столбце в Excel?
• Как фильтровать значения по первой букве или последнему символу в Excel?