下位10％の平均値 - 100人の3教科テスト結果がA1:C100にあるとして、3教科の重みづけを与えた時に（例えば、25%,25%,... - Yahoo!知恵袋

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q11265350296 の続きなので、データもこれと同じとして回答します。 前回同様、A1～C1に重み、A2～C101に点数を入れるとします。 使い方は、 =AveragePW(A1:C1,A2:C101,10%,1) 最終パラメータは、1:下位、0:上位、です。 ' Function AveragePW(WeightArea As Range, DataArea As Range, Rate As Double, _ Optional Flag As Boolean) As Double Dim DataArray() As Double Dim RInp As Long Dim Colu As Integer Dim Sum As Double ' RInp = Data