SUBTOTAL関数での選択範囲を表示する方法

質問

仕事で使う日報に、毎日あるデータを手入力しています。

入力件数が多い時は結構面倒なので、VBAで数値を日報のシートに飛ばそうと考えています。

いくつかあるデータをVBAのSUBTOTALメソッドで合計などを集計し、
各集計を指定のセルに飛ばすことはできるのですが、
SUBTOTALで指定されたセル範囲の最頻値を取り出す方法がわかりません。
MODE関数を使うということは分かるのですが、
SUBTOTALで指定されるセル範囲は毎回変わるので、
MODE関数で指定するセル範囲をSUBTOTALのセル範囲を同じになるようにできればと考えています。

どなたかお知恵を貸して頂ければと思います。
宜しくお願いいたします。

回答No.1

keithin · ベストアンサー

＞いくつかあるデータをVBAのSUBTOTALメソッドで合計などを集計し

ここからスタートするなら，そこには既に「所定の範囲を取得したSUBTOTAL関数」が用意されているのですから，美味しく利用しない手はありません

作成例：
sub macro1()
range("A:B").subtotal groupby:=1, function:=xlsum, totallist:=2, replace:=true
range("B:B").replace what:="SUBTOTAL(9,", replacement:="MODE(", lookat:=xlpart
end sub

ただし。
SUBTOTAL関数にMODE関数の機能は無いのですから，こういった細工で計算させた「最下行の総計行」は，当然正しくない計算結果を表示します。
アナタが組んだ実際の「VBAのSUBTOTALメソッドで合計などを集計し」の結果の姿に応じて，適宜削除する等の細工が必要です。

お礼

こんな簡単にできるとは思いもよりませんでした！
とても勉強になります。

本当に助かりました。ありがとうございました。