:本質的に
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から内容を削除し、左に移動して新しい列を右の列に移動します。最後に、重複を削除して、必要に応じてコンパイル済み一覧を表示します。
[ピボットテーブル](https://support.office.com/en-us/article/Create-a-PivotTable-to-analyze-worksheet-data-A9A84538-BFE9-40A9-A8E9-F99134456576)レスキュー! –
これは、プロセスの一部として自動的に行われるようにしたいので、VBAでやりたいと思っています。 – jufg
自分自身でピボットテーブルを作成してください。あなたはvbaソリューションを持っています –