Excel で単語内の文字をシャッフル（スクランブル）するには、どうすればよいですか？

著者Siluvia変更日2025-09-30

状況によっては、Excel ワークシート内の単語の文字をシャッフルする必要が生じることがあります。たとえば、データの匿名化、ワードゲームの作成、あるいは教育やテスト用の演習問題の準備などに活用できます。以下のスクリーンショットのように、単語のリストがあり、それぞれの単語の文字をランダムにシャッフルすることが目的です。本記事では、さまざまなニーズやExcel のバージョン、ユーザーのスキルレベルに応じて、この作業を効果的に実現するための複数の方法をご紹介します。

Excelで単語リストがシャッフルされているスクリーンショット

ユーザー定義関数で単語内の文字をシャッフルする
 Kutools for Excel で簡単に単語内の文字をシャッフルする
 Excel の数式で単語内の文字をシャッフルする（Excel 365 以降）

ユーザー定義関数で単語内の文字をシャッフルする

Excel で単語の文字をシャッフルする方法の一つは、VBA で記述されたユーザー定義関数（UDF）を使うことです。この方法は、Excel に内蔵された VBA エディターにアクセスでき、カスタム関数の利用に慣れているユーザーに最適です。VBA による解決策のメリットは、ほぼすべてのExcel バージョンで動作し、さまざまなデータセットに簡単に再利用できる点にあります。

注意：この方法をご利用いただくには、マクロを有効にする必要があります。VBA コードを実行または編集する前に、必ず作業内容を保存してください。また、セキュリティ上のリスクを避けるため、信頼できるソースからのみ VBA コードを使用してください。

カスタム関数を使用してセル内の文字をシャッフルするには、次の手順に従ってください：

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

文字をシャッフルする関数コードが表示されたVBAエディターウィンドウのスクリーンショット

3．コードを貼り付けたら、Alt+Qを押して VBA エディターを閉じ、Excel ワークシートに戻りましょう。

4．シャッフルされた単語を表示したいワークシート内の空白セルを選択し、数式バーに次の数式を入力してください。たとえば、シャッフルしたい単語がセル A2 にある場合は、次のように入力します：

=scramble(A2)

Enterキーを押します。リスト内の他の単語もシャッフルするには、結果が表示されたセルを選択し、フィルハンドルを下にドラッグして数式を残りのセルに自動適用します。これにより、各単語のランダムにシャッフルされたバージョンが得られます。Excel でシャッフルされた単語がどのように表示されるかは、スクリーンショットをご参照ください：

シャッフル関数を適用した後のExcelに表示されたシャッフル済み単語のスクリーンショット

注：数式中のA2は、シャッフルしたい元の単語を参照しています。データが別の列や行にある場合は、セル参照を適宜変更してください。この関数はワークシートが再計算されるたびに再シャッフルされるため、結果を固定したい場合は、結果をコピーして値として貼り付けることをおすすめします。

メリット：ほとんどのExcel バージョンで動作し、さらに複雑なニーズにもカスタマイズ可能！

デメリット：マクロを有効化するには VBA に関する知識が必要で、セキュリティポリシーが厳しい組織では利用できない場合があります。

Kutools for Excel で簡単に単語内の文字をシャッフルする

コードを使わずに簡単な方法をお探しの場合は、Kutools for Excelがセル内のテキスト操作に便利なユーティリティを提供します。テキストを逆転する機能は単なる文字シャッフル機能ではありませんが、選択範囲内の文字の順序を素早く入れ替えられ、基本的なスクランブルや、データテスト・教育用の代替テキストパターン作成にぴったりです。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

1．まず、並べ替えたい単語を含むセル範囲を選択します。次に、Kutoolsタブをクリックし、テキストをクリックして、テキストを逆転するを選択してください（下図参照）。

Excelリボンに表示されたKutoolsの「テキストの順序を逆にする」オプションのスクリーンショット

2．テキストを反転ダイアログボックスで、反転対象を定義する区切り文字を指定します。個々の文字をシャッフルする場合は、なしオプションを選択して、OKをクリックしてください。

「テキストを逆にする」ダイアログのスクリーンショット

選択した単語は、下図のように文字の順序が逆に並べ替えられます。もう一度やり直したり、区切り文字のオプションを変更したりしたい場合は、Ctrl+Z を押して操作を元に戻してください。

Kutoolsを使用した後にExcelに表示されたシャッフル済み単語のスクリーンショット

Kutools for Excel— 300 以上の必須ツールでExcel を強化し、作業をより迅速・簡単に。AI 機能を活用して、スマートなデータ処理と生産性の飛躍的な向上を実現します。今すぐ入手

メリット：使いやすく、コーディング不要。数式や 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)：単語を1 文字ずつ分割します。
RANDARRAY(LEN(A2))：各文字にランダムな数値を割り当て、シャッフルを可能にします。
SORTBY(..., RANDARRAY(...))：ランダムな数値に基づいて文字列をシャッフル（並べ替え）します。
TEXTJOIN(「」, TRUE, ...)：シャッフルされた文字を再び1 つの単語に結合します。

ヒント：ワークシートが再計算されるたびに、ランダムに生成された数値に基づいてシャッフル結果が変わる可能性があります。静的な結果が必要な場合は、出力セルをコピーし、「値として貼り付け」を行ってください。SORTBY 関数およびRANDARRAY 関数がサポートされていない場合、#NAME? エラーが表示されます。その際は、お使いのExcel がExcel 365 以降のバージョンであることをご確認ください。

メリット：コード不要！動的配列をサポートするスプレッドシートならどこでも使え、再計算のたびに異なるシャッフル結果が得られます。

デメリット：Excel 365 以降でのみ利用可能で、動的配列機能をサポートしていない旧バージョンでは使用できません。

トラブルシューティングのヒント：結果が更新されない場合は、まず計算モードが「自動」に設定されていることを確認してください（数式 > 計算オプション > 自動）。次に、数式に誤りがないか再度チェックし、出力セルの書式が「標準」または「テキスト」になっているかもご確認ください。スクランブルされた単語が期待どおりに表示されない場合は、フィルターや入力規則が数式の更新を妨げていないか確認し、必要に応じてこれらをクリアしてください。

概要とヒント：最新バージョンのExcel をご利用であれば、数式を使った方法が、文字を手軽かつ効果的にスクランブルするための最適な手段です。固定されたスクランブル結果が必要な場合や、旧バージョンとの互換性が求められる場合は、VBA 方式またはKutools をご検討ください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！