如何在 Excel 中打亂單詞中的字母？

假設您有一個單詞列表，出於某些目的，您需要將這些單詞中的所有字母打亂，如下方截圖所示。請嘗試本文中的方法。

使用自定義函數打亂單詞中的字母
使用 Kutools for 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 for Excel 輕鬆打亂單詞中的字母

在此我推薦一個實用的外掛程式 - Kutools for Excel。使用其反轉文字順序功能，您只需幾次點擊即可輕鬆打亂指定單元格中的字母。

1. 選擇需要打亂內部字母的單元格，然後點擊 Kutools > 文字 > 反轉文字順序。參見截圖：

2. 在反轉文字對話框中，請在分隔符部分指定您要基於打亂字母的分隔符，然後點擊 確定 按鈕。

現在所選單詞立即被打亂，如下方截圖所示。

相關文章：

• 如何在 Excel 中根據首字母/字符條件格式化單元格？
• 如何在 Excel 中將單元格或列中的所有字母大寫？
• 如何在 Excel 中按首字母或最後一個字符篩選值？