亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標——亞洲寵物展覽會深度解析
528
2025-03-31
如何在Excel中合并具有相同ID /名稱的行？
如何在Excel中合并具有相同ID /名稱的行？
例如，您有一個如下圖所示的表格，您需要將行與訂單ID合并，有什么想法嗎？ 在這里，本文將為您介紹兩種解決方案。
通過VBA合并具有相同ID /名稱的行 合并具有相同 ID/名稱的行 Kutools for Excel 通過VBA合并具有相同ID /名稱的行
此方法將引入VBA，以快速組合指定選擇中具有相同ID或名稱的所有行。 請執(zhí)行以下操作：
1。 按 其他 + F11 鍵以打開“ Microsoft Visual Basic應(yīng)用程序”窗口。
2。 點擊 插頁 > 模塊，然后將VBA代碼粘貼到“模塊”窗口中。
VBA：在Excel中合并具有相同ID /名稱的行
Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
Copy
3。 按 F5 鍵或單擊 運行 按鈕以運行此VBA。
4。 在彈出 Kutools for Excel 對話框中，請選擇您要合并的行，然后單擊 OK
按鈕。 看截圖：
現(xiàn)在，您將看到指定范圍內(nèi)的行由相同的ID加上逗號。 看截圖：
備注：此VBA只能按第一列中的值組合行。 例如，要合并具有相同名稱的行，必須將名稱列移至指定范圍的第一列。
輕松合并行并根據(jù)Excel中另一列中的值進行計算
合并具有相同 ID/名稱的行 Kutools for Excel
Kutools for Excel“ 高級組合行 實用程序可以幫助您基于anohter列中的值組合行，并同時求和，計數(shù)，平均值等！
全功能免費試用 30-天！
如果你有 Kutools for Excel 安裝后，可以應(yīng)用它 高級組合行 功能可以快速組合指定范圍內(nèi)具有相同ID或名稱的行。
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即免費試用！
1。 選擇要合并的行，然后單擊 Kutools > 內(nèi)容 > 高級組合行
。 看截圖：
2。 在“高級合并行”對話框中，選擇要合并的ID或名稱列，然后單擊 首要的關(guān)鍵，然后根據(jù)需要為其他列指定組合規(guī)則。
就我而言 (1) 我選擇 訂單編號 列，然后單擊 首要的關(guān)鍵; (2) 選擇 日期 列，然后單擊 計算 > 計數(shù); (3) 選擇 推銷員 列，然后單擊 結(jié)合 > 逗號; (4) 選擇 金額 列，然后單擊 計算 > 總和
。 看截圖：
3。 點擊 OK
按鈕。
現(xiàn)在，您將看到根據(jù)訂單ID組合選定的行。 看截圖：
如何在Excel中串聯(lián)保持數(shù)字/日期格式？
如何在Excel中連接另一個工作表/不同工作表中的單元格？
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導(dǎo)航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
