エクセルの集計機能

質問

エクセルの集計機能を使って、県別に集計をしたいのですが、パソコンによって一部違って表示されます。
------A -----B--------------------A-----B
1----- 県名　 数　　としたところ、1-----県名　数　
2----- 東京　 5　　___________________　2-----集計　　
3----- 埼玉　 3　　___________________ 3-----東京　5
_________　　　　　　　　　　　　　　　　　 4-----埼玉　3
_________　　　　　　　　　　　　　　　　　 5-----集計　8
となったり、２行目の集計行が出来なかったりします。
２行目に余分な集計行が出来てしまうのはどうしてなのでしょうか。
マクロを組んだので、どのパソコンでも同じ行番号にデータが入るようにしたいのですが、分かりませんでしょうか。

回答No.1

hana-hana3

＞２行目に余分な集計行が出来てしまうのはどうしてなのでしょうか。

SUBTOTALが使われているのでは無いですか？
マクロを組んだのなら何が起きるか予測は可能なはずですよ。

マクロを修正して貰いたいのであれば必要なマクロコードを添付して下さい。

補足

回答ありがとうございました。お返事が遅くなってしまい、大変申し訳ありませんでした。

質問の補足なのですが、県名がグループの基準ではないですね。もう1つ左に地区の列があって、地区ごとで集計するのが正しいでしょうか。

　　　　A　　　　　B　　　　C　　 ⇒　　　　　A　　　B　　　C
1　　地区　　　県名　　　数　　 ⇒　　　　地区　　県名　　数
2　　　関東　　東京　　　5　　　⇒　　　　集計
3　　　関東　　埼玉　　　3　　　⇒　　　　関東　　東京　　5
4　　　関東集計　　　　　8　　　⇒　　　　関東　　埼玉　　3
5 ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ 関東集計　　　　8

マクロは以下の通りです。
マクロを組まなくても、項目行の下に余分な「集計」がされてしまい、違うパソコンでやると「集計」行が出来ません。

Range("C3").Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(4, 5, 6, 7, _
8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, _
35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, _
61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, _
87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104), Replace:=True, _
PageBreaks:=False, SummaryBelowData:=True
ActiveWindow.SmallScroll Down:=27
End Sub

宜しくお願い致します。