Excelの重複に基づいて複数の行をXNUMXつに結合する方法は？
次のスクリーンショットデータがあるかもしれません。製品名の列Aにいくつかの重複アイテムがあり、列Aの重複エントリを削除する必要がありますが、列Bの対応する値を組み合わせる必要があります。スクリーンショットを参照してください。
 |
 |
 |
このタスクを解決するための効果的な方法はありますか？
複数の重複行をXNUMXつのKutoolsforExcelに結合します
複数の重複する行を組み合わせ、Kutools forExcelで値を合計/平均します
複数の重複行をVBAコードでXNUMXつに結合します
次のVBAコードは、列Aの値に基づいて重複する行を組み合わせるのに役立ちます。次のコードは、XNUMXつの列にのみ適用されます。 したがって、XNUMX列のデータがある場合、このコードが役立ちます。
1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.
2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.
VBAコード：複数の行をXNUMXつに結合します
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。 そして、 OK、列Bの値はXNUMXつのレコードに結合され、スペースで区切られています。
注意：
1.このコードは元のデータを破壊する可能性があります。使用する場合は、最初にデータをバックアップすることをお勧めします。
2.このコードはXNUMXつの列にのみ適用されます。XNUMXつ以上の列がある場合、このコードは最初のXNUMXつの列のみを結合し、他の列のデータを削除します。 このコードを使用するときは、注意が必要です。
複数の重複行をXNUMXつのKutoolsforExcelに結合します
上記のコードにはいくつかの制限とリスクがありますが、このジョブを完了するための便利で安全な方法はありますか？ と Kutools for Excelさん 高度な結合行 ユーティリティを使用すると、基になっている列の複数の重複行をすばやく削除し、他のレコードのいくつかの計算を適切なセルにマージまたは実行できます。
Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.
Kutools for Excelをインストールした後、次のようにしてください。
1。 重複を結合する範囲データを選択します。
2。 次に、をクリックします クツール > コンテンツコンバーター > 高度な結合行。 スクリーンショットを参照してください：
3。 の中に 高度な結合行 ダイアログボックスで、値を組み合わせるキー列として列名を選択し、をクリックします。 キー列。 スクリーンショットを参照してください：
4。 次に、値をXNUMXつのレコードに結合する必要がある列をクリックしてから、をクリックします。 連合作戦 選択して 区切り文字とのみ組み合わせる、および右側のリストから結合された値を分離するために必要なセパレーターをXNUMXつ選択します。 スクリーンショットを参照してください：
5。 設定が終わったら、 OK、およびデータはキー列に基づいてマージされ、区切り文字で区切られます。
注： 残りの列の操作を設定する必要がない場合は、デフォルトの状態のままにしてください。
複数の重複する行を組み合わせ、Kutools forExcelで値を合計/平均します
この多機能で 高度な結合行 ユーティリティを使用すると、重複する行を組み合わせて、値の計算を行うこともできます。
1。 重複を結合する範囲データを選択します。
2。 行く 高度な結合行 ダイアログボックス;
- （1.）他の列の値を計算するキー列として列名を選択し、をクリックします キー列;
- （2.）値の計算を行う必要がある列を選択し、[ 連合作戦 > 結合計算、次に必要な計算タイプをXNUMXつ選択します。この場合は、 合計。 スクリーンショットを参照してください：
3。 残りの列の操作を設定する必要がない場合は、デフォルトの状態のままにして、[ OK、および列Aの重複する値がマージされ、列Bの対応する値が合計されます。 スクリーンショットを参照してください：
 |
|
 |
注意：
1.チェックした場合 私のデータにヘッダーがあります オプションを選択すると、このユーティリティを適用すると、範囲のヘッダー（最初の行）が無視されます。
2. フォーマットされた値を使用する：重複セルを結合した後、値のフォーマットを保持します。
3.このユーティリティは、データのフィルタリングには使用できません。
この高度な行の結合機能の詳細については、クリックしてください。
関連記事：
最高のオフィス生産性向上ツール
| 🤖 | Kutools AI アシスタント: 以下に基づいてデータ分析に革命をもたらします。 インテリジェントな実行 | コードを生成 | カスタム数式の作成 | データを分析してグラフを生成する | Kutools関数を呼び出す... |
| 人気の機能: 重複を検索、強調表示、または識別する | 空白行を削除する | データを失わずに列またはセルを結合する | 数式なしのラウンド ... | |
| スーパールックアップ: 複数の基準の VLookup | 複数の値の VLookup | 複数のシートにわたる VLookup | ファジールックアップ .... | |
| 詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する | 依存関係のドロップダウン リスト | 複数選択のドロップダウンリスト .... | |
| 列マネージャー: 特定の数の列を追加する | 列の移動 | Toggle 非表示列の表示ステータス | 範囲と列の比較 ... | |
| 注目の機能: グリッドフォーカス | デザインビュー | ビッグフォーミュラバー | ワークブックとシートマネージャー | リソースライブラリ (自動テキスト) | 日付ピッカー | ワークシートを組み合わせる | セルの暗号化/復号化 | リストごとにメールを送信する | スーパーフィルター | 特殊フィルター (太字/斜体/取り消し線をフィルター...) ... | |
| 上位 15 のツールセット: 12 テキスト ツール (テキストを追加, 文字を削除する、...） | 50+ チャート 種類 (ガントチャート、...） | 40+ 実用的 式 (誕生日に基づいて年齢を計算する、...） | 19 挿入 ツール (QRコードを挿入, パスから画像を挿入、...） | 12 変換 ツール (数字から言葉へ, 通貨の換算、...） | 7 マージ＆スプリット ツール (高度な結合行, 分割セル、...） | ... もっと |
Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。 最も必要な機能を入手するにはここをクリックしてください...
Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作業をはるかに簡単にします
- Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
- 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
- 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
