[[20210909140853]]　『同じcodeのデータを相乗平均する』（Shiro）　ページの最後に飛ぶ

『同じcodeのデータを相乗平均する』（Shiro）

1行目は項目行です。2行目から1500行目までA列には8桁のコードNo.
B列には数値。
コードNo.は1つの物もありますが、2個以上同じものが多数あります。
C列に同じコードNo.で、B列の数値の相乗平均値をGEOMEAN関数を使い自動で
算出するマクロを作成したい。
相乗平均値は同じコードNo.のかたまりの最下行に表示。
数値はあらかじめコードNo.を基準に並べ替え済み。同じコードNo.のものは
ひとかたまりに整理されています。

ご指導をお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

まずご自身で挑戦されたものをご提示ください。
回答側へのヒントにもなります。

ご自身では挑戦されない作成依頼であればマクロ実行後の希望シートレイアウトをお示しください。
（めざめるパワー） 2021/09/09(木) 15:34

失礼しました。同じコードの範囲指定と同じコードの最下行のセルの指定が分かりませんでした。
よろしくお願いいたします。

   A              B      C
 Code	        Data  相乗平均

 53386695	 1.24	 1.24

 53386798	 1.21    1.21

 53387606	 1.86	 1.86

 53387616	 1.21	
 53387616	 1.17	
 53387616	 0.93	
 53387616	 0.93	
 53387616	 0.99	 1.04

 53387627	 0.92    0.92

 53387677	 0.99	 0.96

 53387732	 0.68	 0.68

 53387743	 1.05	 1.05

 53387744	 1.16	 1.16

 53395336	 0.99	 0.99

 53395345	 0.86	
 53395345	 0.84	 0.85

 53395346	 0.86	
 53395346	 1.44	
 53395346	 1.14	
 53395346	 1.30	 1.16

 53395353	1.45	 1.45

 53395354	0.84	 0.84

（Shiro） 2021/09/09(木) 21:58

GEOMEAN関数？
意味も、使い方も、全く知りませんが

 Sub test()
   Dim r As Range, f As Range, c As Range

    Cells(1).Subtotal GroupBy:=1, Function:=xlSum, TotalList:=2

    Set r = Cells(1).CurrentRegion
    r.Rows(r.Rows.Count).Clear

    Set f = r.SpecialCells(xlCellTypeFormulas)
    For Each c In f
        c.Offset(-1, 1).Formula = "=GEOMEAN(" & c.DirectPrecedents.Address & ")"
    Next

    f.EntireRow.Delete

 End Sub

（マナ） 2021/09/09(木) 22:06

ご回答ありがとうございます。
問題なく、思い通りの結果が得られました。
データが多いので助かりました。感謝申し上げます。
一行一行ずつ解読し、勉強したいと思います。

（Shiro） 2021/09/09(木) 23:39

幾何平均は、金融商品のリターンの評価等によく
使われるようです。ある投資顧問会社の過去３年
のリターン率が2%、3%、4%という場合、単純に
合計して3で割った算術平均だと、3%ですが、
幾何平均だと、2.8844になり、幾何平均は算術平均と同じになるか、小さい数字になります。同じ数字になるのは、平均対象の数字が全て同じ場合のみです。
投資顧問会社がリターン率の数字を出してきたとき、その数字は幾何平均か？まさか算術平均じゃないよね？と聞くと、
この客にはヘタな商品は勧められないな、とキチンと対応される(という話を聞いたことがあります)らしいです。
（OK） 2021/09/10(金) 01:06

私の説明だと、誤解を生む可能性がありますので、
↓のサイトをご参照ください。あまりよく検索したわけ
ではないので説明しきれてるかはわかりませんが。

https://globis.jp/article/1785
（OK） 2021/09/10(金) 01:15

幾何平均のご説明までありがとうございます。実際私が使っている数値も単位のない数値ではなく、
伝導率(%)になります。今まで手計算していましたので、かなりの効率アップとなりました。
ありがとうございます。
（Shiro） 2021/09/10(金) 10:38

コメント返信：

[ 一覧(最新更新順) ]

[[20210909140853]] 『同じcodeのデータを相乗平均する』（Shiro） ページの最後に飛ぶ

[[20210909140853]]　『同じcodeのデータを相乗平均する』（Shiro）　ページの最後に飛ぶ