ＫＥＹが変わるまで加算する方法

質問

どなたかご存じでしたらご回答よろしくお願いします。
Ａ列をＫＥＹとしてＢ列～ＡＦ列までに０又は１が入るエクセルシートが下記のようにあります。
【質問】
　Ａ列のＫＥＹが変わるまで、Ｂ列～ＡＦ列までの各列毎に加算し、
　ＫＥＹが変わるとＡＧ列にＡ列のＫＥＹとＡＨ列～ＢＬ列に加算合計をのせる方法が知りたいです。

【エクセルシート(一部抜粋)】
Ａ　BCD E F GH I J K L MN OP QR ST UV W XY ZAAABACADAEAF
　　　　　　　　　　　　　　　　　　　　　　　：
12　0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 1 0 0
12　0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0 1 0 0
12　1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 0 1
13　0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 1 1
13　0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 1 0 1 0 0 0
13　0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0
14　1 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 1
14　0 0 0 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1
15　1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 1 0 1 0 0 0 0 0
　　　　　　　　　　　　　　　　　　　　　　　：

【エクセルシート(一部抜粋)】
AG　AHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBL
　　　　　　　　　　　　　　　　　　　　　　　　　　：
12　 1 0 2 1 0 0 0 0 1 0 0 0 1 0 0 0 2 0 0 1 1 0 0 0 2 0 1 2 2 0 1
13　　0 1 0 0 1 0 0 1 1 1 0 1 0 0 1 0 1 0 1 0 1 0 1 0 1 1 0 1 1 2 1
14 　 1 0 0 1 1 0 0 0 1 0 0 2 0 0 0 0 0 0 2 0 0 0 0 1 1 0 0 1 0 0 2
15　　1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 1 0 1 0 0 0 0 0
　　　　　　　　　　　　　　　　　　　　　　　　　　：
【注意事項】
　　・使用するエクセルは２０１０です。
　　・A列は昇順で並んでいます。

以上、よろいくお願いします。

回答No.1

keithin · ベストアンサー

キーごとぐるぐる巡回するみたいな非効率はしません。

sub macro1()
’１行目はふつーにタイトル行にする。してあるなら以下省略。
　range("1:1").insert shift:=xlshiftdown
　range("A1") = "head"
　range("AG:BL").clearcontents

’キーを抽出し、集計する。
　range("A:A").advancedfilter action:=xlfiltercopy, copytorange:=range("AG1"), unique:=true
　range("AH2:BL" & range("AG65536").end(xlup).row).formula = "=SUMIF($A:$A,$AG2,B:B)"

’片づけ
　range("1:1").delete shift:=xlshiftup
end sub

お礼

早速のご回答ありがとうございます。
教えていただいたマクロを実行したら
一発で得たい結果が得られました。
ありがとうございます。

回答No.3

KURUMITO

回答No2です。A1２セルはAI2セルの誤りです。

回答No.2

KURUMITO

A列からAFセルまでのデータが2行目から下方にあるとしてAG列は作業列とします。
AG2セルには次の式を入力して下方にドラッグコピーします。

=IF(A2="","",IF(COUNTIF(A$2:A2,A2)=1,MAX(AG$1:AG1)+1,""))

AH2セルには次の式を入力して下方にドラッグコピーします。

=IF(ROW(A1)>MAX(AG:AG),"",INDEX(A:A,MATCH(ROW(A1),AG:AG,0)))

これでA列でのダブりのないデータが表示されますのでA1２セルには次の式を入力してBM2セルまで横にドラッグコピーしたのちに下方にもドラッグコピーします。

=SUMIF($A:$A,$AH2,B:B)

お礼

回答ありがとうございます。
マクロを使わないやり方ですね。
教えて頂いた通りに入力して
得たい結果になりました。
ありがとうございました。