Excelで単語の文字をスクランブルする方法は？

単語のリストがあり、以下のスクリーンショットに示すように、何らかの目的でこれらの単語のすべての文字をスクランブルする必要があるとします。 この記事の方法を試してください。

ユーザー定義関数を使用して単語の文字をスクランブルします
Kutools forExcelで単語の文字を簡単にスクランブル

ユーザー定義関数を使用して単語の文字をスクランブルします

以下のユーザー定義関数を使用して、セル内の文字をスクランブルできます。 次のようにしてください。

1。 プレス 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓、

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に以下の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。 次に、 他の + Q を閉じるためのキー アプリケーション向け Microsoft Visual Basic 窓。

4.反転した文字を見つけるための空白のセルを選択し、数式を入力します =スクランブル（A2） 数式バーに入力し、を押します 入力します キー。 結果セルを選択し続け、その塗りつぶしハンドルを下にドラッグして、すべての結果を取得します。 スクリーンショットを参照してください：

Note：A2は、文字をスクランブルするために必要な単語が含まれているセルです。 必要に応じて変更してください。

Kutools forExcelで単語の文字を簡単にスクランブル

ここで私は便利なアドインをお勧めします- Kutools for Excel。 その テキストの順序を逆にする ユーティリティを使用すると、数回クリックするだけで、指定したセルの文字を簡単にスクランブルできます。

1.内部の文字をスクランブルする必要があるセルを選択し、をクリックします クツール > テキスト > テキストの順序を逆にする。 スクリーンショットを参照してください：

2。 の中に リバーステキスト ダイアログボックスで、文字をスクランブルする区切り文字を指定してください セパレータ セクションをクリックし、 OK

これで、下のスクリーンショットに示すように、選択した単語がすぐにスクランブルされます。

関連記事:

• Excelで最初の文字/文字に基づいてセルを条件付きでフォーマットするにはどうすればよいですか？
• Excelのセルまたは列のすべての文字を大文字にする方法は？
• Excelで最初の文字または最後の文字で値をフィルタリングするにはどうすればよいですか？