Excel のセル内のドロップダウンリストから複数の項目を選択するには？

著者Sun変更日2025-04-11

Excel でデータを管理する際、ドロップダウンリストから値を選択することはよくあります。しかし、複数の項目を一度に選んで1 つのセルに表示したい場合はどうすればよいでしょうか？実は、Excel にはこの機能が標準では備わっていません。本ガイドでは、Excel のドロップダウンリストで複数選択を実現するための最適な手法を詳しく解説します。

Excel の単一セルでドロップダウンリストから1つの項目が選択されているスクリーンショット

Excel の1つのセルにドロップダウンリストから複数の項目が選択された結果を示すスクリーンショット

VBA コードを使用してドロップダウンリストから複数の項目を選択する

Kutools for Excel を使用してドロップダウンリストから簡単に複数の項目を選択する

VBA コードを使用してドロップダウンリストから複数の項目を選択する

このタスクを達成するのに役立つ VBA コードをいくつかご紹介します。

セル内のドロップダウンリストから重複する項目を選択する

1。ドロップダウンリストを作成したら、シートタブを右クリックし、コンテキストメニューから「コードの表示」を選択してください。
「コードの表示」オプションが選択されたコンテキストメニューを示すスクリーンショット

2。「Microsoft Visual Basic for Applications」ウィンドウで、以下のコードを空のスクリプトにコピー＆ペーストしてください。

VBA：セル内のドロップダウンリストから複数の項目を選択する

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3。コードを保存してこのウィンドウを閉じると、ドロップダウンリストに戻ります。これで、ドロップダウンリストから複数の項目を選択できるようになります。

注記：

1。VBA では項目がスペースで区切られますが、「xStrNew = xStrNew & 「」 & Target.Value」の部分を他の形式に変更すれば、必要に応じて区切り文字を自由にカスタマイズできます。たとえば、「xStrNew = xStrNew & "、" & Target.Value」とすれば、項目がカンマ区切りになります。

2。この VBA コードは、シート内のすべてのドロップダウンリストに適用されます。

ドロップダウンリストから重複なしで複数の項目をセルに選択する

ドロップダウンリストからセルに一意の項目のみを選択したい場合は、上記の手順を繰り返し、以下のコードをご利用ください。

VBA：ドロップダウンリストから重複なしで複数の項目をセルに選択する

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

上記のどちらの VBA コードも、セルの内容を部分的に削除することはできません。セル内のすべての項目を一度にクリアするしかありません。

Kutools for Excel を使用してドロップダウンリストから簡単に複数の項目を選択する

「Kutools for Excel」でExcel 作業をもっとシンプルに！「複数選択可能なドロップダウンリストを作成する」機能を使えば、ドロップダウンリストから複数の項目を簡単に選択し、自動的に1 つのセルに表示できます。複雑な VBA コーディングは一切不要。面倒な手作業とはもうサヨナラ——Excel のドロップダウンリスト操作が、ぐっとスマートで効率的になります！

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

1。「Kutools」＞「ドロップダウンリスト」＞「高度なドロップダウンリストの有効化」をクリックした後、「ドロップダウンリスト」内の「複数選択可能なドロップダウンリストを作成する」を再度クリックしてください。スクリーンショットをご参照ください：

2。「複数選択可能なドロップダウンリストを作成する」ダイアログボックスで、以下のとおり設定してください。

2.1) ドロップダウンリストが含まれるセルを選択します。
2.2) 「区切り文字」ボックスに、複数の項目を区切る際に使用する区切り文字を入力してください。
2.3) 必要に応じて、「検索機能を有効にする」オプションをオンにしてください。（このオプションをオンにすると、後でドロップダウンリスト内を検索できるようになります。）
2.4) 「OK」ボタンをクリックしてください。

現在、ドロップダウンリスト付きのセルをクリックすると、リストボックスが表示されます。➕ボタンをクリックすればセルに項目を追加でき、必要に応じて➖ボタンをクリックして項目を削除することも可能です。以下のデモをご覧ください：

Excel のドロップダウンリストで複数の項目を選択するのは、決して難しいことではありません。本ガイドで紹介した手順に従えば、VBA コードを使ってすぐに複数選択機能を有効化できます。さらに簡単に実現したい場合は、Kutools for Excelのようなツールをご利用ください。当社ウェブサイトでは、数千ものExcel チュートリアルをご用意していますぜひチェックしてください！

複数選択可能なドロップダウンリスト
Excel では、標準のデータ検証によるドロップダウンリストでは一度に1 つの項目しか選べません。では、以下のスクリーンショットのようにドロップダウンリストから複数選択するにはどうすればよいのでしょうか？本記事の方法で、この問題を簡単に解決できます！

Excel にドロップダウンリストを挿入する
ドロップダウンリストを使えば、自分で値を手入力する必要がなく、リストからサッと選ぶだけで OK！自分だけでなく他のユーザーにとっても、ワークシートでのデータ入力がぐっと効率的になります。

Excel のドロップダウンリストで入力時に自動補完する
大量の選択肢を含むデータ検証のドロップダウンリストでは、目的の項目を探すためにリストを最後までスクロールするか、リストボックスにそのまま単語全体を入力するしかありません。でも、ドロップダウンリストで最初の文字を入力した瞬間に自動補完されれば、操作がずっとラクになります！

Excel で検索可能なドロップダウンリストを作成する
多数の選択肢を含むドロップダウンリストでは、目的の項目を見つけるのは簡単ではありません。以前、ドロップダウンボックスで最初の文字を入力すると自動補完される方法をご紹介しました。この自動補完機能に加え、ドロップダウンリストを検索可能にすれば、リスト内から素早く正確に必要な値を見つけ出せます。

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！