如何在 Excel 中根據另一列中的相同值合併單元格？

如下方截圖所示，如果你想根據第一列中的相同值合併第二列的單元格，可以使用幾種方法。本文將介紹三種實現此任務的方式。

使用公式和篩選功能合併具有相同值的單元格

以下公式可幫助根據另一列中的匹配值合併某一列中對應的單元格。

1. 選擇第二列旁邊的一個空白單元格（這裡我們選擇單元格 C2），在編輯欄(F)中輸入公式 =IF(A2<>A1,B2,C1 & "," & B2)，然後按 Enter 鍵。

2. 然後選擇單元格 C2，並向下拖動填充柄到需要合併的單元格。

3. 在單元格 D2 中輸入公式 =IF(A2<>A3,CONCATENATE(A2,",""",C2,""""),"")，然後向下拖動填充柄至其餘單元格。

4. 選擇單元格 D1，然後點擊 數據 > 篩選。請參見截圖：

5. 點擊單元格 D1 中的下拉箭頭，取消勾選 (空白) 框，然後點擊 確定 按鈕。

你可以看到如果第一列的值相同，單元格已經被合併。

注意：為了成功使用上述公式，A 列中的相同值必須是連續的。

輕鬆合併具有相同值的單元格（只需幾次點擊）使用 Kutools for Excel

上述方法需要創建兩個輔助列並且涉及多個步驟，可能不太方便。如果你正在尋找更簡單的方法，可以考慮使用 Kutools for Excel 的高級合併行工具。只需幾次點擊，這個工具就可以讓你使用特定分隔符合併單元格，使整個過程快速且無憂。

1. 點擊 Kutools > 合併與分割 > 高級合併行 以啟用此功能。

2. 在高級合併行對話框中，你只需要：

• 選擇你想合併的區域；
• 設置具有相同值的列作為關鍵列。
• 指定一個分隔符來合併單元格。
• 點擊 確定。

結果

使用 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

注意：

3. 按 F5 鍵運行代碼，然後你將在指定區域獲得合併結果。

演示：使用 Kutools for Excel 輕鬆合併具有相同值的單元格

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析 ｜生成程式碼 ｜ 創建自訂公式 ｜ 分析數據並生成圖表 ｜ 調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值 ｜ 刪除空行 ｜ 合併列或單元格且不遺失數據 ｜ 四捨五入（免公式）...
	高級 LOOKUP：多條件 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 中啟用分頁編輯與閱讀。
• 在同一視窗的新分頁中打開與創建多份文件，而非開啟新視窗。
• 提升您的生產力50%，每日可幫您減少數百次鼠標點擊！

查看更多 Office Tab 詳情... 免費下載...

---

所有 Kutools 外掛，一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛，外加 Office Tab Pro，非常適合需要跨 Office 應用程式協同作業的團隊。

• 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
• 一鍵安裝，一份授權 — 幾分鐘完成設置（支援 MSI）
• 協同運作更順暢 — Office 應用間無縫提升生產力
• 30 天全功能試用 — 無需註冊、無需信用卡
• 最超值 — 一次購買，節省單獨外掛費用

查看更多 Kutools for Office 詳情... 免費下載...