Değişkenlere göre gruplandırma yapma veya benzemeyenleri sayma

[orhanbaba]

Örneğin 2 grupta çalışan personeli isimleri yinelenenleri dikkate almadan sayım yapabilirmiyiz. Örnek linkte verilmiştir.
www.tarimsal.net/dosyalar/personel.xlsx

 

[YUSUF44]

Tek formülle nasıl olur bilmiyorum. Makroyla yapmak için aşağıdaki kodları kullanabilirsiniz:

Sub tid()
[E4] = ""
[F4] = ""
son = Cells(Rows.Count, "A").End(3).Row
For i = 3 To son
    If WorksheetFunction.CountIf(Range("A3:A" & i), Cells(i, "A")) = 1 Then
        If Cells(i, "B") = "Bitkisel" Then [E4] = [E4] + 1
        If Cells(i, "B") = "Hayvancılık" Then [F4] = [F4] + 1
    End If
Next

End Sub

Ya da C sütununu yardımcı sütun olarak kullanarak aşağıdaki şekilde olabilir.
C4 hücresine aşağıdaki formülü yazıp aşağı doğru kopyalayın. Böylece ismin ilk geçtiği yerde 1 yazacak, diğerleri boş kalacak:

=EĞER(EĞERSAY($A$4:A4;A4)=1;1;"")

E3 hücresine aşağıdaki formülü yazın ve F3 hücresine kopyalayın:

=ETOPLA($B$4:$B$15;E3;$C$4:$C$15)

 

[orhanbaba]

Teşekkürler fonksiyon 2 aşamalıda olsa işimi gördü.

 

[Necdet]

Merhaba,

Bence Pivot Table (Özet Tablo) kullanın.

 

[sakman26]

...........

 

[bzace]

Merhabalar,
Alternatif olsun.
Bitkisel içindir.

[SIZE="3"]=TOPLA((ÇOKEĞERSAY(A4:A15;A4:A15;B4:B15;E3)*(B4:B15=E3))^(1-(B4:B15=E3)*2))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR][/SIZE]

Saygılar,
Şeşen