如何基于Excel中的重復項將多行合并為一行?

      網友投稿 488 2025-03-31

      如何基于Excel中的重復項將多行合并為一行?

      也許您有以下屏幕截圖數據,在“產品名稱”列A中,有一些重復項,現在您需要刪除列A中的重復項,但要合并列B中的相應值,請參見屏幕截圖:


      您有解決此任務的有效方法嗎?

      使用VBA代碼將多個重復的行合并為一個

      將多個重復行合并為一個 Kutools for Excel

      合并多個重復行并對值求和/求平均值 Kutools for Excel

      使用VBA代碼將多個重復的行合并為一個
      驚人的! 在 Excel 中使用高效的選項卡,如 Chrome、Firefox 和 Safari! 每天節省50%的時間,并減少數千次鼠標單擊!

      以下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
      Copy

      3。 然后按 F5 鍵,并彈出一個提示框,提醒您選擇需要組合的范圍。 看截圖:

      4。 然后點擊 OK,則B列中的值已合并為一個記錄,并用空格分隔。

      筆記:

      1.此代碼可以銷毀原始數據,使用時最好先備份數據。

      2.此代碼僅適用于兩列,如果您有兩列以上,則此代碼將僅合并前兩列并刪除其他列數據。 使用此代碼時,請務必謹慎。

      將多個重復行合并為一個 Kutools for Excel

      既然上面的代碼有一定的局限性和風險,是否有方便而安全的方法來完成這項工作? 用 Kutools for Excel高級組合行 實用程序,您可以快速刪除您所基于的列中的多個重復行,然后合并或對其他記錄進行一些計算到適當的單元格中。

      Kutools for Excel 包括300多個便捷的Excel工具。 30天免費試用,不受限制。 立即獲取.

      安裝后 Kutools for Excel,請執行以下操作:

      1。 選擇要合并重復項的范圍數據。

      2。 然后點擊 Kutools > 內容轉換器 > 高級組合行。 看截圖:

      3。 在 高級組合行 對話框中,選擇列名稱作為要基于其組合值的鍵列,然后單擊“確定”。 關鍵列。 看截圖:

      4。 然后繼續單擊您需要將其值合并到一條記錄中的列,然后單擊 合并作業 并選擇 僅與分隔符結合,然后選擇一個分隔符,您需要從右邊的列表中分隔出組合的值。 看截圖:

      5。 完成設置后,單擊 OK,您的數據將根據鍵列進行合并,并以分隔符分隔。

      請注意: 如果您不需要為其余列設置操作,則只需保留默認狀態即可。

      合并多個重復行并對值求和/求平均值 Kutools for Excel

      有了這個多功能 高級組合行 實用程序,您可以合并重復的行,并對值進行一些計算。

      1。 選擇要合并重復項的范圍數據。

      如何基于Excel中的重復項將多行合并為一行?

      2。 去的 高級組合行 對話框;

      (1.)選擇一個列名作為要基于其計算其他列值的鍵列,然后單擊 關鍵列; (2.)選擇您需要對值進行一些計算的列,然后單擊 合并作業 > 合并計算,然后選擇一種所需的計算類型,在這種情況下,我選擇 總和。 看截圖:

      3。 如果您不需要為其余列設置操作,只需保持默認狀態,然后單擊 OK,則A列中的重復值將被合并,并且B列中其對應的值將相加。 查看屏幕截圖:

      筆記:

      1.如果您檢查 我的數據有標題 選項,應用此實用程序時將忽略范圍的標題(第一行)。

      2. 使用格式化的值:合并重復的單元格后,將保留值的格式。

      3.此實用程序不可用于過濾數據。

      單擊以了解有關此高級合并行功能的更多信息。

      相關文章:

      合并重復的行并求和

      最佳辦公生產力工具

      將小時轉化為分鐘 Kutools for Excel!

      準備好增強您的 Excel 任務了嗎? 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel!

      為什么需要 Kutools for Excel

      ???  超過 300 項強大功能: Kutools 包含 300 多項高級功能,可簡化您在 1500 多種場景中的工作。

      ??  卓越的數據處理能力:合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力!

      ??  高效的批量操作:當你可以聰明地工作時,為什么還要付出額外的努力呢? 輕松批量導入、導出、組合和調整數據。

      ??  定制的圖表和報告:訪問各種附加圖表并生成富有洞察力的報告。

      ???  強大的導航窗格:通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。

      ??  七種類型的下拉列表:通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。

      ??  用戶友好:對于初學者來說輕而易舉,對于專家來說是一個強大的工具。

      立即下載,與 Excel 一起穿越時空!

      閱讀更多 免費下載... 采購... 
      Office Tab 為 Office 帶來選項卡式界面,讓您的工作更輕松
      在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。 在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。 每天將您的工作效率提高50%,并減少數百次鼠標單擊!
      閱讀更多 免費下載... 采購... 

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      版權聲明:本文內容由網絡用戶投稿,版權歸原作者所有,本站不擁有其著作權,亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容,請聯系我們jiasou666@gmail.com 處理,核實后本網站將在24小時內刪除侵權內容。

      上一篇:WebDriver API 之常見操作
      下一篇:訪談企業流程圖制作模板(公司簡紹流程模板)
      相關文章
      亚洲欧洲自拍拍偷午夜色无码| 亚洲成a人片在线观看无码专区| 亚洲精品国产字幕久久不卡| 亚洲国产精品自产在线播放| 亚洲精品亚洲人成在线| 婷婷精品国产亚洲AV麻豆不片| 亚洲中文字幕无码中文字在线| 亚洲精品黄色视频在线观看免费资源| 国产亚洲一卡2卡3卡4卡新区 | 亚洲人成色99999在线观看| 激情亚洲一区国产精品| 77777亚洲午夜久久多喷| 国产v亚洲v天堂a无| 亚洲一区二区三区深夜天堂 | 亚洲国产亚洲片在线观看播放| 91在线精品亚洲一区二区| 久久久久亚洲AV成人无码网站 | 亚洲欧美国产欧美色欲| 亚洲欧洲国产综合AV无码久久| 亚洲老熟女五十路老熟女bbw | AV激情亚洲男人的天堂国语| 日韩在线视精品在亚洲| 日日摸日日碰夜夜爽亚洲| 亚洲国产av无码精品| 国产亚洲色视频在线| 亚洲国产精品高清久久久| 亚洲日本一区二区三区| 亚洲冬月枫中文字幕在线看| 在线亚洲午夜片AV大片| 亚洲a∨无码精品色午夜| 午夜在线亚洲男人午在线| 亚洲欧洲久久久精品| 亚洲乱码中文字幕久久孕妇黑人| 亚洲AV无码专区国产乱码4SE | 亚洲理论精品午夜电影| 亚洲日本va在线观看| 久久精品国产亚洲AV| 亚洲永久精品ww47| 亚洲欧洲日产国产综合网| 亚洲国色天香视频| 亚洲精品无码不卡在线播放|