vba toplaçarpım

Merhabalar, sporculara sonuçlarına göre belirli (1-100, 2-85, 3-65, 4-55, 5-51 gibi sıfıra kadar devam ediyor) puanları atayan şayet eşitlik varsa sıralarına göre eşit sporculara denk gelen puanları toplayıp eşitlik sayısına bölen (örnek olarak 2 tane birinci varsa 100 ile 85i toplayıp ikiye...