Excel 2007 マクロ 表の集計

質問

Excel 2007 マクロ 表の集計

「Sheet１」に2つの表があります。
<元データ>の項目ごとに<集計結果>の
計の列に数字が反映されるようにしたいと考えています。

表の画像を添付します。

<元データ>の項目のアルファベットごとに<集計結果>の
項目に分かれます。

マクロの記録では下記にようになりました。

Sub Macro1()
'
' Macro1 Macro
'

'
Range("B15").Select
ActiveCell.FormulaR1C1 = "=R[-12]C+R[-11]C+R[-10]C"
Range("B16").Select
ActiveCell.FormulaR1C1 = "=R[-10]C+R[-9]C"
Range("B17").Select
ActiveCell.FormulaR1C1 = "=R[-9]C+R[-8]C+R[-7]C"
Range("B18").Select
End Sub

どのようにすれば、マクロでアルファベットごとに集計できるのでしょうか。

よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

Sub Macro1()
range("B15:B17").formula = "=SUMIF($A$3:$A$10,LEFT(A15)&""*"",$B$3:$B$10)"
End Sub
などのようで良さそうです。

数式の入れ方と，実際にセルに入った数式も分析して，参考にしてみてください。

お礼

ご回答ありがとうございます。数式の入れ方を勉強します。

回答No.2

web2525

今回の計算はSUMIFやSUMPRODUCT関数で表現可能です

エクセルの基本の関数式で実現可能なものをマクロ化する意図が不明ですが、関数を利用せずにマクロにこだわるのは何か理由があるのでしょうか?

お礼

マクロ化によって実務の効率化を考えています。