Tiesi rašė: Gal kartais žinot, kokia formulė (formulės) padėtų, norint suskaičiuoti viename ar keliuose stulpeliuose esančias pavardes "galvomis" - pavardės (t.y. asmenys) kartojasi, o reikia "vienetų"
Labai patiko per VBA susimetus tokie coda'
___________
Function CountUniqueValues(InputRange As Range) As Long
Dim cl As Range, UniqueValues As New Collection
Application.Volatile
On Error Resume Next ' ignore any errors
For Each cl In InputRange
UniqueValues.Add cl.Value, CStr(cl.Value) ' add the unique item
Next cl
On Error GoTo 0
CountUniqueValues = UniqueValues.Count
End Function
______________
Paprastais su formulemis yra sudetinga issukti nes tai tekstas.
Nežinau ar būtų efektyvi tokia formule bet reiketu numatyti išanksto kiek kartu gali aplamai pavardė pasikartoti tada galima tokai formule
=COUNTIF(B1:B9;1)+COUNTIF(B1:B9;2)/2+COUNTIF(B1:B9;3)/3 ir t.t...... - žodžiu gana neefekti formume ivertinant tai kad šalia pavardžiu stulpelio reika aplama išsiaiškinti kiek kartu ji pasikartoja - =COUNTIF($A$1:$A$9;A1)