如何在 Excel 中根據重複項目，將多列資料合併為單一欄位？

作者Xiaoyang修改日期2024-08-07

假設您有如下截圖所示的資料，在「產品名稱」欄位 A 中有一些重複項目，現在您需要移除欄位 A 中的重複項目，但同時將欄位 B 中對應的數值合併起來，請參閱截圖：

您是否有高效的方法來完成這項任務？

使用 VBA 程式碼將多個重複行合併為一列

使用 Kutools for Excel 將多個重複行合併為一列

使用 Kutools for Excel 將多個重複行合併並對數值進行加總或平均

使用 VBA 程式碼將多個重複行合併為一列

下列 VBA 程式碼可協助您根據欄位 A 的值合併重複的資料列，且僅適用於兩欄資料。因此，若您正好只有兩欄資料，此程式碼將能完美協助您完成任務。

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入> 模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：將多列資料合併為一列

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. 接著按下 F5 鍵，系統將彈出提示方塊，提醒您選取要合併的範圍。請參閱截圖：

執行程式碼後選取資料範圍的螢幕截圖

4. 然後按一下確定，欄位 B 中的數值就會合併為單一記錄，並以空格分隔。

顯示結果的螢幕截圖

注意事項：

1. 此程式碼可能會損毀原始資料，建議您使用前務必先備份。

2. 此程式碼僅適用於兩欄資料；若您的資料超過兩欄，將只合併前兩欄，其餘欄位的資料會被刪除，使用時務必謹慎。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

使用 Kutools for Excel 將多個重複行合併為一列

既然上述程式碼存在一些限制與風險，是否有更方便又安全的方式來完成這項任務？立即使用 Kutools for Excel 的高級合併行功能，即可快速根據指定欄位移除重複列，並將其他欄位的資料合併或運算後填入對應儲存格！

Kutools for Excel 包含超過 300 項實用的 Excel 工具，免費試用 30 天，無任何限制！立即取得

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 選取您要合併重複項目的資料範圍。

選取來源資料的螢幕截圖

2. 接著點選 Kutools > 合併和拆分 > 高級合併行。

3. 在高級合併行對話方塊中，選取您要據以合併數值的欄位名稱作為關鍵列，然後按一下關鍵列。

在「根據欄位合併列」對話框中選取關鍵欄位的螢幕截圖

4. 接著，選取您要將數值合併為單一記錄的欄位，點擊合併類型，並選擇僅以分隔符號合併，再從右側清單中挑選一個分隔符號，用以分隔合併後的數值。請參閱截圖：

在「根據欄位合併列」對話框中選取合併分隔符號的螢幕截圖

5. 在完成設定後，按一下確定，您的資料將根據關鍵列自動合併，並以指定的分隔符號分隔。

合併結果的螢幕截圖

注意：若您無需為其他欄位設定運算方式，請維持預設狀態即可。

使用 Kutools for Excel 將多個重複行合併並對數值進行加總或平均

透過這項多功能的高級合併行功能，您不僅能合併重複行，還可同步對數值進行運算！

1. 選取您要合併重複項目的資料範圍。

2. 進入高級合併行對話方塊；

（1.）選取一個您想據以計算其他欄位值的欄位名稱作為關鍵列，然後點擊關鍵列；
（2.）選取您要進行數值運算的欄位，點擊合併類型 > 合併計算，再選擇所需的計算方式（此處選取）總和）。請參閱截圖：

顯示如何設定「根據欄位合併列」對話框的螢幕截圖

3. 若您無需為其他欄位設定運算方式，請保留預設狀態，並點選確定，系統將自動合併欄位 A 中的重複值，並加總其對應的欄位 B 數值。請參閱截圖：

注意事項：

1. 若您勾選包含標題選項，套用此功能時將自動忽略資料範圍中的標題列（第一列）。

2. 使用格式化後的值：合併重複儲存格後，將保留數值的格式。

3. 此功能不適用於篩選過的資料。

點擊以深入了解這項進階合併列功能。

合併重複行並加總數值

最佳 Office 生產力工具

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