XNUMXつの列の値に基づいて行をすばやくマージしてからExcelで計算を行うにはどうすればよいですか？

たとえば、ある範囲のデータがあり、XNUMXつの列に重複がある場合、列A（重複がある）に基づいて行をマージし、次に示すスクリーンショットのように、マージされた行に基づいて別の列に計算を実行します。

Excelでは、XNUMXつの列の値に基づいて行をマージする簡単な方法はありませんが、ここでは
重複する行をマージしてから、別の列で合計または他の計算を行うのに役立つトリック。

元のデータ                     マージして合計

XNUMXつの列に基づいて行をマージし、VBAで値を合計します

XNUMXつの列に基づいて行をマージしてから、AdvancedCombineで値を合計します

XNUMXつの列に基づいて行をマージしてから、他の列に対して異なる操作を実行します。
高度な結合行

XNUMXつの列に基づいて行をマージし、VBAで値を合計します

重複する行をマージしてから別の列の値を合計するのに役立つVBAコードがあります。

1。 押す F11 + Alt 有効にするキー アプリケーション向け Microsoft Visual Basic ウィンドウをクリックし、 インセット > モジュール 以下のVBAコードをコピーして新しいものに貼り付けます モジュール 窓。

VBA：XNUMXつの列の値に基づいて行をマージします

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2。 押す F5 またはクリック ラン ボタンをクリックしてVBAを実行すると、機能するデータ範囲を選択するためのダイアログが表示されます。 スクリーンショットを参照してください：

3.動作範囲を選択したら、をクリックします OK。 これで、データは最初の列でマージされ、XNUMX番目の列の値が合計されました。

Note：このVBAコードは、最初の列とXNUMX番目の列の合計値に基づいてマージするときに正しく機能します。

XNUMXつの列に基づいて行をマージしてから、Advanced CombineRowsで値を合計します

VBAコードに慣れていない場合は、 高度な結合行 サードパートアドインツールの機能– Kutools for Excel 重複する行を簡単かつ迅速にマージしてから、別の列の値を合計します。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.使用するデータを選択し、をクリックします クツール > マージ＆スプリット > 高度な結合行。 スクリーンショットを参照してください：

2.次に、ポップダイアログで、他の列をマージする列を選択し、をクリックします。 プライマリー キーを押し、別の列をクリックして、 計算 次に選択する 合計.

先端：選択した範囲にヘッダーがある場合は、チェックしてください 私のデータにヘッダーがあります、チェック フォーマットされた値を使用する マージ後もフォーマットを保持します。

3。 次に、をクリックします Ok。 これで、データはプライマリ列に基づいてマージされ、別の列が合計されます。 スクリーンショットを参照してください：

XNUMXつの列に基づいて行をマージしてから、高度な結合行を使用して他の列に対してさまざまな操作を実行します。

高度な結合行 ある列の重複行をマージしてから別の列を合計できるだけでなく、XNUMXつの列の重複行をマージしてから他の列に対して異なる操作を実行できるため、強力です。

以下のスクリーンショットに示すようなデータの範囲があり、列Bの値と、列Aに基づいて列Cの値の合計の両方が必要であるとします。

後 無料インストール Kutools for Excel、以下のようにしてください：

1.データ範囲を選択し、をクリックします クツール > マージ＆スプリット > 高度な結合行。 スクリーンショットを参照してください：

2。 の中に 列に基づいて行を組み合わせる ダイアログ、次のようにします。

（1）結合する列をクリックし、をクリックします。 主キー;

（2）データを結合する列をクリックし、をクリックします 組み合わせる、次にリストから必要なセパレータをXNUMXつ選択します。

（3）値を合計する列をクリックして、をクリックします。 計算、および選択 合計.

3。 クリック Ok。 これで、次のような結果が表示されます。

連絡先 高度な結合行 この機能では、1つの列に基づいて行をマージしてから、他の列の最初または最後のデータをカウント、平均化、保持することもできます。