如何在 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. 在高級合併行對話框中,你只需要:
- 選擇你想合併的區域;
- 設置具有相同值的列作為關鍵列。
- 指定一個分隔符來合併單元格。
- 點擊 確定。
結果
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
注意:
3. 按 F5 鍵運行代碼,然後你將在指定區域獲得合併結果。
演示:使用 Kutools for Excel 輕鬆合併具有相同值的單元格
最佳 Office 辦公效率工具
🤖 | Kutools AI Aide:徹底革新數據分析,基於智能執行|生成程式碼|創建自訂公式|分析數據並生成圖表|調用 Kutools Functions… |
熱門功能:查找、選取項目的背景色或標記重複值 | 刪除空行 | 合併列或單元格且不丟失資料 | 四捨五入... | |
高級 LOOKUP:多條件查找|多值查找|多表查找|模糊查找... | |
高級下拉列表:快速創建下拉列表 | 關聯下拉列表 | 多選下拉列表 ... | |
列管理器: 添加指定數量的列 | 移動列 | 切換隱藏列的可見狀態 | 區域與列比較 ... | |
精選功能:網格聚焦 | 設計檢視 | 增強編輯欄 | 工作簿及工作表管理器 | 資源庫 (自動文本) | 日期提取器 | 合併資料 | 加密/解密儲存格 | 按清單發送電子郵件 | 超級篩選 | 特殊篩選(篩選粗體/傾斜/刪除線 ...)... | |
前15 大工具集:12 款文本工具(添加文本,刪除特定字符,...)|50+ 種圖表 類型(甘特圖,...)|40+ 實用 公式(基於生日計算年齡,...)|19 款插入工具(插入QR码,按路徑插入圖片,...)|12 款轉換工具(金額轉大寫,匯率轉換,...)|7 款合併和分割工具(高級合併行,分割儲存格,...)| ...以及更多 |
利用 Kutools for Excel 大幅提升你的 Excel 技能,感受前所未有的高效體驗。 Kutools for Excel 提供超過300 項高級功能,助你提升效率並保存時間。 點此查看你最需要的功能...
Office Tab 為 Office 帶來標籤式介面,讓你的工作更加輕鬆
- 啟用 Word、Excel、PowerPoint 的標籤式編輯和閱讀功能
- 在同一個視窗的標籤中打開和創建多個文件,而不是在新窗口中分開開啟。
- 可提升你50% 的工作效率,每天為你大量減少滑鼠點擊次數!