メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

別の列に同じ値が存在する場合、Excelでセルを連結するにはどうすればよいですか?

Author Siluvia Last modified

以下のスクリーンショットに示すように、最初の列の同じ値に基づいて2番目の列のセルを連結したい場合、いくつかの方法があります。この記事では、このタスクを実行するための3つの方法を紹介します。

Screenshot showing a table with concatenated values based on common keys


数式とフィルターを使用して同じ値を持つセルを連結する

次の数式は、ある列の一致する値に基づいて、対応するセルを別の列に連結するのに役立ちます。

1. 2列目の隣にある空白セルを選択し(ここではセルC2を選択)、数式バーに =IF(A2<>A1,B2,C1 & "," & B2) という数式を入力し、Enterキーを押します。

Screenshot of a formula applied to concatenate values in Excel

2. 次に、セルC2を選択し、結合したいセルまでフィルハンドルを下にドラッグします。

Screenshot of dragging the fill handle in Excel to apply concatenation formula

3. セルD2に =IF(A2<>A3,CONCATENATE(A2,"","",C2,"""),"") という数式を入力し、残りのセルまでフィルハンドルをドラッグします。

Screenshot of a concatenation formula result in Excel

4. セルD1を選択し、データ > フィルター をクリックします。スクリーンショットをご覧ください:

Screenshot showing the filter option in Excel ribbon

5. セルD1のドロップダウン矢印をクリックし、(空白) のチェックボックスをオフにして、OKボタンをクリックします。

Screenshot of Excel filter dropdown showing the options for filtering blank cells

これで、最初の列の値が同じ場合、セルが連結されていることが確認できます。

Screenshot of final concatenated results in Excel after filtering

: 上記の数式を正常に使用するには、列Aの同じ値が連続している必要があります。


Kutools for Excelを使用して、数回のクリックで簡単に同じ値を持つセルを連結する

上記の方法では、2つの補助列を作成し、複数のステップが必要なため、不便かもしれません。より簡単な方法をお探しならば、Kutools for Excelの「高度な行のマージ」ツールの使用を検討してください。このユーティリティを使えば、特定の区切り文字を使用してセルを数回のクリックで連結でき、プロセスが迅速かつ手間なく行えます。

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

1. Kutools > 結合と分割 > 高度な行のマージ をクリックして、この機能を有効にします。

2. 「高度な行のマージ」ダイアログボックスで、以下を行うだけです:

  • 連結したい範囲を選択します;
  • 同じ値を持つ列をキーカラムとして設定します。
  • セルを結合するための区切り文字を指定します。
  • OK をクリックします。
  • Screenshot showing Kutools Advanced Combine Rows settings for concatenating cells

結果

Screenshot of concatenated results using Kutools

注:

VBAコードを使用して同じ値を持つセルを連結する

VBAコードを使用して、別の列に同じ値が存在する場合、列内のセルを連結することもできます。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックします。次に、以下のコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード:同じ値を持つセルを連結する

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

注意:

Set xRg = Range("D1") の行の D1 は、結果がセルD1から開始されることを意味します。
xRes(1, 1) = "No" および xRes(1, 2) = "Combined Color" の行の "No" および "Combined Color" は選択された列のヘッダーです。

3. コードを実行するために F5 キーを押すと、指定された範囲で連結された結果が得られます。

Screenshot showing concatenated results using VBA


デモ: Kutools for Excelを使用して、同じ値を持つセルを簡単に連結する

Kutools for Excel: あなたの指先に 300 以上の便利なツールが集結!永久無料のAI機能をお楽しみください!今すぐダウンロード!

最高のオフィス業務効率化ツール

🤖 Kutools AI Aide:データ分析を革新します。主な機能:Intelligent Executionコード生成カスタム数式の作成データの分析とグラフの生成Kutools Functionsの呼び出し……
人気の機能重複の検索・ハイライト・重複をマーキング空白行を削除データを失わずに列またはセルを統合丸める……
スーパーLOOKUP複数条件でのVLookup複数値でのVLookup複数シートの検索ファジーマッチ……
高度なドロップダウンリストドロップダウンリストを素早く作成連動ドロップダウンリスト複数選択ドロップダウンリスト……
列マネージャー指定した数の列を追加列の移動非表示列の表示/非表示の切替範囲&列の比較……
注目の機能グリッドフォーカスデザインビュー強化された数式バーワークブック&ワークシートの管理オートテキスト ライブラリ日付ピッカーデータの統合セルの暗号化/復号化リストで電子メールを送信スーパーフィルター特殊フィルタ(太字/斜体/取り消し線などをフィルター)……
トップ15ツールセット12 種類テキストツールテキストの追加特定の文字を削除など)50種類以上のグラフガントチャートなど)40種類以上の便利な数式誕生日に基づいて年齢を計算するなど)19 種類の挿入ツールQRコードの挿入パスから画像の挿入など)12 種類の変換ツール単語に変換する通貨変換など)7種の統合&分割ツール高度な行のマージセルの分割など)… その他多数
Kutoolsはお好みの言語で利用可能 ― 英語、スペイン語、ドイツ語、フランス語、中国語、その他40以上の言語に対応!

Kutools for ExcelでExcelスキルを強化し、これまでにない効率を体感しましょう。 Kutools for Excelは300以上の高度な機能で生産性向上と保存時間を実現します。最も必要な機能はこちらをクリック...


Office TabでOfficeにタブインターフェースを追加し、作業をもっと簡単に

  • Word、Excel、PowerPointでタブによる編集・閲覧を実現
  • 新しいウィンドウを開かず、同じウィンドウの新しいタブで複数のドキュメントを開いたり作成できます。
  • 生産性が50%向上し、毎日のマウスクリック数を何百回も削減!

全てのKutoolsアドインを一つのインストーラーで

Kutools for Officeスイートは、Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proをまとめて提供。Officeアプリを横断して働くチームに最適です。

Excel Word Outlook Tabs PowerPoint
  • オールインワンスイート — Excel、Word、Outlook、PowerPoint用アドインとOffice Tab Proが含まれます
  • 1つのインストーラー・1つのライセンス —— 数分でセットアップ完了(MSI対応)
  • 一括管理でより効率的 —— Officeアプリ間で快適な生産性を発揮
  • 30日間フル機能お試し —— 登録やクレジットカード不要
  • コストパフォーマンス最適 —— 個別購入よりお得