|
▼VBA初心者 さん:
再掲します。
1.A列を D列にコピペ
2.D列を選択して データタブ 重複の削除(先頭がタイトル行にチェック)
アップされた例なら D1:D7 に縮まります。
3.E1にB1のタイトル項目をコピー
3.E2:E7を選択し =SUMIF(A:A,D2,B:B) これをタイプして Ctrl/Enter。
4.D:E列を選択して Ctrl/c 。そのまま 形式を指定して【値】貼り付け。
5.そのまま Ctrl/x。
6.A1を選択して Ctrl/v。
この操作をマクロ記録し、それを(かなり)お化粧直ししたのが以下のコードです。
Sub Sample()
Columns("A").Copy Range("D1")
Columns("D").RemoveDuplicates Columns:=1, Header:=xlNo
Range("E1").Value = Range("B1").Value
With Range("D2", Range("D" & Rows.Count).End(xlUp))
.Offset(, 1).Formula = "=SUMIF(A:A,D2,B:B)"
.Offset(, 1).Value = .Offset(, 1).Value
End With
Columns("D:E").Cut Range("A1")
End Sub
|
|