[[20211216163535]]　『条件に一致する最終行だけに、合計（Sumifs)を入ａx（ちなこ）　ページの最後に飛ぶ

『条件に一致する最終行だけに、合計（Sumifs)を入れるVBA』（ちなこ）

上記の質問をした者ですが、仕様が変更となりました。

A列　　　B列　　C列　D列　　E列
北海道　小学校　10
北海道　小学校　24
北海道　中学校　32
名古屋　小学校　11
名古屋　小学校　14
埼玉　　小学校　15
埼玉　　中学校　12
埼玉　　高校　　11
東京　　小学校　12
千葉　　中学校　32

のようなデータで、

北海道　小学校　10
北海道　小学校　24　34
北海道　中学校　32　32　66
名古屋　小学校　11
名古屋　小学校　14　25　25
埼玉　　小学校　15　15
埼玉　　中学校　12　12
埼玉　　高校　　11　11　38
東京　　小学校　12　12　12
千葉　　中学校　32　32　32

のような感じで
都道府県の毎の一番下の行に都道府県の人数の合計
都道府県の中での学校毎の一番下の行に学校の人数の合計
をような方法を探しています。

途中まで書いたコードです。

Dim LR As Variant

 LR = Cells(1, "A").SpecialCells(xlLastCell).Row
For i = 2 To LR

  Cells(i, "D").Value = WorksheetFunction.SumIfs(Range("C:C"), Range("A:A"), Cells(i, "A"))

Cells(i, "E").Value = WorksheetFunction.SumIfs(Range("C:C"), Range("A:A"), Cells(i, "C"), Range("B:B"), Cells(i, "B"))

Next i

だたこれだと、すべての行にSUMISの条件が入ってしまうので、
条件の中での最終行かを判断して、IFで対応する方法が検討していますが、
その判断の方法が分かりません。
（前回教えて頂いた下の行から検索して、というのは私には難しかったです）

すみませんが、ご教授の程よろしくお願いいたします。

＜使用 Excel：unknown、使用 OS：unknown ＞

＞下の行から検索して、というのは私には難しかったです

Dictionaryが難しいということですね。
なら、WorksheetFunction.Countifで判定してはどうでしょうか。

（マナ） 2021/12/16(木) 16:56

マナさん

またまたご対応頂きありがとうございます。
Countifで判定というのは、
最初に出た行を基準にして、
カウントイフで何個あるか調べて、
その何個目の行を見る、
というイメージでしょうか？
（自分でも言っていることを理解できてないかもです）
（ちなこ） 2021/12/16(木) 17:03

Countifがイメージしにくいなら
仕様変更して、ピボットテーブルで集計してはどうでしょうか。
レイアウトも、今より見やすいものになると思います。

（マナ） 2021/12/16(木) 17:23

マナさん
その後CSVデータとしてインポートするデータなので、
ピボットテーブル化はできません。
でも確かにデータとしては見やすいですよね。。。
そもそもインポート先のシステムで自動で計算してくれよ、とも思いますが。。。笑
（ちなこ） 2021/12/16(木) 17:26

その行から最終行までの範囲でCountifし、結果が１かどうかで判定

（マナ） 2021/12/16(木) 17:51

 数式ではダメなんですか？

 データは2行目からだとして

 D2 =IF(OR(A2<>A3,B2<>B3),SUM($C$2:C2)-SUM($D$1:D1),"")　
 E2 =IF(A2<>A3,SUM($C$2:C2)-SUM($E$1:E1),"")
 下コピー

 少なくとも例示通りにはなります。

 以上
（笑） 2021/12/16(木) 18:37

 >上記の質問をした者ですが、仕様が変更となりました。
 一言書いて終わらせてください。
 回答者に失礼になりますよ。
（亀吉） 2021/12/16(木) 19:53

マナさん
お教え頂いたCOUNTIFSの方法で解決しました。
天才すぎる。
ありがとうございました。

他の方もありがとうございます。
（ちなこ） 2021/12/17(金) 10:51

コメント返信：