vbaでの値の集約、マージ、および合計

Question

同じ人の重複を持つテーブルがあり、データの各行に割り当てられた2つの列を合計しながらこれらを1つの行にマージしたいと考えています。例えば

：

私が一致するかについての私の基準点」として、列Aを使用してDに列Aのデータをマージしたいのです。列EとFに値をまとめて欲しい。結果を以下に示す。

私はこれに簡単な解決策があると確信しているが、私はVBAにかなり新たなんだと何も遭遇していません。

これは次のコードを使用して達成することができるおかげで

Answer 1

：本質的に

Sub foo() 
LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row 
For x = 2 To LastRow 
    Sheet1.Cells(x, 7).Value = "=SUMIF(R1C1:R17C6,RC[-6],C[-2])" 
    Sheet1.Cells(x, 8).Value = "=SUMIF(R1C1:R17C6,RC[-7],C[-2])" 
Next x 

Range("G2:H" & LastRow).Copy 
Range("G2:H" & LastRow).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, SkipBlanks:=False, Transpose:=False 
Range("E2:F" & LastRow).Delete Shift:=xlToLeft 
Sheet1.Range("$A$1:$H$" & LastRow).RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8), Header:=xlNo 
End Sub 

を、コードは、列G & Hのすべての値のコピーを合計し、取り除くために（値として貼り付けセル上の数式）は列E & Fから内容を削除し、左に移動して新しい列を右の列に移動します。最後に、重複を削除して、必要に応じてコンパイル済み一覧を表示します。