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

下のスクリーンショットに示すように、最初の列の同じ値に基づいて XNUMX 番目の列のセルを連結する場合は、いくつかの方法を使用できます。 この記事では、このタスクを達成するための XNUMX つの方法を紹介します。

同じ値の場合は数式とフィルターを使用してセルを連結します

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

1. 2番目の列（ここではセルCXNUMXを選択）の横にある空白のセルを選択し、数式を入力します = IF（A2 <> A1、B2、C1＆ "、"＆B2） 数式バーに入力し、を押します 入力します キー。

2.次に、セルC2を選択し、連結する必要のあるセルまで塗りつぶしハンドルを下にドラッグします。

3.数式を入力します = IF（A2 <> A3、CONCATENATE（A2、 "、" ""、C2、 "" ""）、 ""） セルD2に移動し、塗りつぶしハンドルを残りのセルまでドラッグします。

4.セルD1を選択し、をクリックします 且つ > フィルタ。 スクリーンショットを参照してください：

5.セルD1のドロップダウン矢印をクリックし、チェックを外します。 （空白） ボックスをクリックし、 OK

最初の列の値が同じである場合、セルが連結されていることがわかります。

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

同じ値の場合、Kutools for Excelでセルを簡単に連結できます（数回のクリック）

上記の方法では、XNUMX つのヘルパー列を作成する必要があり、複数の手順が必要になるため、不便な場合があります。 より簡単な方法を探している場合は、 高度な結合行 からツール Kutools for Excel. 数回クリックするだけで、このユーティリティを使用すると、特定の区切り記号を使用してセルを連結できるため、プロセスが迅速かつ簡単になります。

先端: このツールを適用する前に、インストールしてください Kutools for Excel 最初に。 今すぐ無料ダウンロードへ.

• 連結する範囲を選択します。
• と同じ値で列を設定します。 主キー コラム。
• セルを結合するセパレータを指定します。
•  OK.

結果

同じ値の場合はVBAコードでセルを連結します

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

1。 押す 他の + F11 キーを押して Microsoft VisualBasicアプリケーション 窓。

2。 の中に Microsoft VisualBasicアプリケーション ウィンドウ、クリック インセット > モジュール。 次に、以下のコードをコピーして、 モジュール 窓。

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

ノート:

3。 プレス F5 キーを押してコードを実行すると、指定した範囲で連結された結果が得られます。

同じ値の場合、Kutools forExcelでセルを簡単に連結できます

最高のオフィス生産性向上ツール

🤖	Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行   |  コードを生成  |  カスタム数式の作成  |  データを分析してグラフを生成する  |  Kutools関数を呼び出す...
	人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
	スーパールックアップ: 複数の基準の VLookup  |   複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
	詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
	列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
	注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー   |  ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化   |  リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
	上位 15 のツールセット:  12 テキスト ツール (テキストを追加, 文字を削除する、...）   |   50+ チャート 種類 (ガントチャート、...）   |   40+ 実用的 式 (誕生日に基づいて年齢を計算する、...）   |   19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...）   |   12 変換 ツール (数字から言葉へ, 通貨の換算、...）   |   7 マージ＆スプリット ツール (高度な結合行, 分割セル、...）   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

続きを読みます... 無料ダウンロード...

---

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

• Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
• 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
• 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!

続きを読みます... 無料ダウンロード...