Como embaralhar letras em palavras no Excel?

Suponha que você tenha uma lista de palavras e precise embaralhar todas as letras dessas palavras para algum propósito, conforme mostrado na captura de tela abaixo. Por favor, experimente os métodos neste artigo.

Embaralhar letras em palavras com função definida pelo usuário
Embaralhe facilmente letras em palavras com o Kutools para Excel

Embaralhar letras em palavras com função definida pelo usuário

Você pode embaralhar letras em uma célula com a seguinte função definida pelo usuário. Por favor, siga os passos abaixo.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications,

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo, depois copie e cole o código VBA abaixo na janela de Código. Veja a captura de tela:

Código VBA: Embaralhar letras em palavras

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. Em seguida, pressione as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.

4. Selecione uma célula em branco para exibir as letras embaralhadas, depois insira a fórmula =scramble(A2) na barra de fórmulas e pressione a tecla Enter. Continue selecionando a célula de resultado e arraste sua Alça de Preenchimento para baixo para obter todos os resultados. Veja a captura de tela:

Observação: A2 é a célula que contém a palavra que você precisa embaralhar. Altere-a conforme necessário.

Embaralhe facilmente letras em palavras com o Kutools para Excel

Aqui eu recomendo um complemento útil - Kutools para Excel. Com a utilidade Reverse Text Order, você pode facilmente embaralhar as letras das células especificadas com apenas alguns cliques.

1. Selecione as células nas quais você precisa embaralhar as letras internas, depois clique em Kutools > Texto > Inverter Texto. Veja a captura de tela:

2. Na caixa de diálogo Inverter Texto, especifique um separador com base no qual você vai embaralhar as letras na seção Separador, e depois clique no botão OK.

Agora as palavras selecionadas são embaralhadas imediatamente, conforme mostrado na captura de tela abaixo.

Artigos relacionados:

• Como formatar condicionalmente células com base na primeira letra/caractere no Excel?
• Como colocar todas as letras em maiúsculas em uma célula ou coluna no Excel?
• Como filtrar valores pela primeira letra ou último caractere no Excel?