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