如何在 Excel 中根據另一欄的相同值來串連對應的儲存格內容？

作者Siluvia修改日期2024-12-10

如下圖所示，若您希望根據第一欄中的相同值來串連第二欄的儲存格，可透過多種方法達成。本文將為您介紹三種實用的實現方式。

顯示根據共同鍵串接值之表格的螢幕截圖

使用公式與篩選功能串連相同值的儲存格

使用 Kutools 只需幾次點擊即可輕鬆串連相同值的儲存格

使用 VBA 程式碼串連相同值的儲存格

使用公式與篩選功能串連相同值的儲存格

下列公式可協助您根據另一欄中的相符值，串連對應欄位的儲存格。

1. 在第二欄旁選取一個空白儲存格（此處選取 C2），於編輯欄中輸入公式 =IF(A2<>A1,B2,C1 & "," & B2)，然後按下 Enter 鍵。

套用於 Excel 中以串接值的公式螢幕截圖

2. 接著選取儲存格 C2，並向下拖曳填滿控點，套用至所有需要串連的儲存格。

在 Excel 中拖曳填滿控點以套用串接公式的螢幕截圖

3. 在儲存格 D2 中輸入公式 =IF(A2<>A3,CONCATENATE(A2,",""",C2,""""),"")，並向下拖曳填滿控點至其他儲存格。

Excel 中串接公式結果的螢幕截圖

4. 選取儲存格 D1，然後點選資料 > 篩選。請參閱下圖：

顯示 Excel 功能區中篩選選項的螢幕截圖

5. 點擊儲存格 D1 中的下拉箭頭，取消勾選(空白）方塊，再按下確定按鈕。

Excel 篩選下拉式清單顯示篩選空白儲存格選項的螢幕截圖

您會發現，當第一欄的數值相同時，儲存格已成功串連。

篩選後 Excel 中最終串接結果的螢幕截圖

注意：若要順利套用上述公式，A 欄中的相同數值必須連續排列。

使用 Kutools for Excel 輕鬆串連相同值的儲存格（只需幾次點擊）

上述方法需建立兩個輔助欄且步驟繁瑣，可能不太方便。若您希望採用更簡單的方式，可考慮使用高級合併行工具，該工具來自 Kutools for Excel。只需幾次點擊，即可透過指定分隔符號輕鬆串連儲存格，過程快速又省事！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 按一下 Kutools >合併和拆分 > 高級合併行，立即啟用此功能！

2. 在高級合併行對話方塊中，您只需：

選取您要串連的儲存格範圍；
將具有相同值的欄位設為主鍵欄。
使用分隔符來合併儲存格。
按一下確定。

顯示 Kutools「進階合併列」設定以串接儲存格的螢幕截圖

結果

使用 Kutools 進行串接結果的螢幕截圖

注意：

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得
若想進一步了解此功能，請參閱以下文章：在 Excel 中快速合併相同值或重複行

使用 VBA 程式碼串連相同值的儲存格

您也可以運用 VBA 程式碼，在另一欄存在相同值時，將某欄的儲存格內容串連起來。

1. 按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic 應用程式視窗！

2. 在 Microsoft Visual Basic 應用程式視窗中，點選插入＞模組，然後將下方程式碼複製並貼上至模組視窗中。

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

注意事項：

1. D1 在程式碼行 Set xRg = Range("D1") 中表示結果將從儲存格 D1 開始輸出。

2。「No」與 「Combined Color」在程式碼行 xRes(1, 1) = "No" and xRes([[PH_26]], [[PH_25]]) = "Combined Color" 中為所選欄位的標題。

3. 按下 F5 鍵執行程式碼，即可在限定區域中取得串連結果。

使用 VBA 進行串接結果的螢幕截圖

示範：使用 Kutools for Excel 輕鬆串連相同值的儲存格

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多