MS Excel

Udělal bych pomocí kontingenční tabulky.
Pokud jsou data pokaždé někde jinde tak bych je vždy naskládal do jiného listu tak abych je mohl používat v KT.citovat

vlastní fcí - makremcitovat

@Opičák
Pokud jste schopni napsat
=SUMIF(stranky!B:B;A2;stranky!C:C)/COUNTIF(stranky!B:B;pracovni!A2)
v listu
proč totéž neuděláte v kódu? Použití cyklu může být značně zdlouhavé.

Když použiju struktury fce SUMIF
Function PRUMERIF(Oblast As Range, Kriterium, Optional Soucet As Range)
Set Oblast = Intersect(Oblast, Oblast.Parent.UsedRange)
If Soucet Is Nothing Then
Set Soucet = Oblast
Else
Set Soucet = Intersect(Soucet, Soucet.Parent.UsedRange)
End If

With Application.WorksheetFunction
If .CountIf(Oblast, Kriterium) = 0 Then
PRUMERIF = CVErr(xlErrDiv0)
Else
PRUMERIF = .SumIf(Oblast, Kriterium, Soucet) / .CountIf(Oblast, Kriterium)
End If
End With 'application.WorksheetFunction

Set Oblast = Nothing
Set Soucet = Nothing
End Function

Zápis
Set Oblast = Intersect(Oblast, Oblast.Parent.UsedRange)
slouží k omezení oblasti, pokud je zadáno
stranky!B:B
Některým fcím dělá 1000000 řádků problém, tímto jsem je omezil, takže tento zápis můžu bez problému použít
Zrovna v tomto případě by se asi nic nedělocitovat

@ eLCHa

If Soucet Is Nothing Then
Set Soucet = Oblast
Else
Set Soucet = Intersect(Soucet, Soucet.Parent.UsedRange)
End If
Set Soucet = Intersect(Soucet, Soucet.Parent.UsedRange)

Rád čtu Vaše reakce a rád se poučím (jde to, ale dře to )
tak tomu vůbec nerozumím.
Proč je tam IF THEN ELSE, když po podmínce je stejně
Set Soucet = Intersect(Soucet, Soucet.Parent.UsedRange)citovat

@ eLCHa
ANO, souhlasím. Já jsem se hned v úvodu divil, proč makrem, ale zadavatel to tak toužil mít. Fci AVERAGEIF se přiznám, že jsem nkdy nepoužil (ke své škodě) a tak jsem o ní vlastně ani nevěděl. To je nejjednodušší řešení.
Je to samozřejmě řešitelné i KT, jak napsal cmuch, to bych uměl, ale v zadání byl ještě ten požadavek, aby bylo použito pojmenovaných oblastí, které mohou různě "cestovat" po listu. I tento důvod bych pochopil ale jak dostanu (je-li to možné) pojmenované oblasti do KT ? citovat