Filtrage et puis le comptage de valeurs distinctes

C'est pour Excel: j'ai été chargé de comptage distinct des dossiers après j'ai filtré les données. J'ai 330 lignes avec Une colonne contenant le nom et dans la Colonne B j'ai le nom d'un test qui a été fait pour chaque "nom", dont chaque " nom " pourrait avoir pris plusieurs itérations de la même test. Les résultats du test sont dans la Colonne C. 

Col A -Student  Col B -Exam          Col C - Grade
Student 1       Exam 1              .80
Student 2       Exam 1              .50
Student 3       Exam 1              .90
Student 2       Exam 1              .75
Student 4       Exam 1              .90
Student 5       Exam 1              .55
Student 2       Exam 2              .90
Student 1       Exam 2              .90
....            ....                ...

Si je filtre col B pour Examen 1, je veux compter le nombre unique d'élèves qui ont pris de l'Examen 1.

InformationsquelleAutor Deon | 2009-11-06
  1. 3

    Trouvé ceci:

    =SUMPRODUCT((A1:A30000<>"")/COUNTIF(A1:A30000,A1:A30000&""))

    sur le Forum Excel

    Testé sur votre exemple, et .. ça marche 🙂

    InformationsquelleAutor Grendler
  2. 1

    Tableau entré

    {=SUM(IF(FREQUENCY(IF(LEN(A1:A8)>0,MATCH(A1:A8,A1:A8,FALSE),""),IF(LEN(A1:A8)>0,MATCH(A1:A8,A1:A8,FALSE),""))*(B1:B9="Examen
    1")>0,1))}

    De noter que, puisque la FRÉQUENCE renvoie une fiche de plus que la plage source, que la colonne B de la gamme est en fait B1:B9 et cela ne fonctionne que si B9 n'est pas égal à l'Examen 1.

    Si vous voulez de la base de l'état sur ce qui est filtré, plutôt que sur une certaine colonne à chaque fois, je ne sais pas d'une façon de le faire avec une formule. Si vous n'êtes pas opposés à VBA, vous pouvez utiliser cette simple UDF.

    Public Function CountUniqueFiltered(rColumn As Range) As Long
    Dim rCell As Range
    Dim colUnique As Collection

    Set colUnique = New Collection

    For Each rCell In rColumn.Cells
        If Not rCell.EntireRow.Hidden Then
            On Error Resume Next
                colUnique.Add rCell.Value, CStr(rCell.Value)
            On Error GoTo 0
        End If
    Next rCell

    CountUniqueFiltered = colUnique.Count
End Function
    • Que faire si je veux filtrer par grade/Col C? C'est juste un exemple simplifié de la feuille de données, le véritable feuille de calcul a au moins 50 colonnes de données différentes et si je filtre sur l'une de ces colonnes, j'ai besoin de l'distinctes colonne 'nom', de changer et d'être en mesure de fournir un distinctes 'nom' comte. Je suis en utilisant les suivants à compter d'une colonne filtrée, mais vous ne savez pas si je peux utiliser une version modifiée de verson à déterminer distinct:=SUMPRODUCT(SUBTOTAL(9,OFFSET(U8:U331,ROW(U8:U331)-MIN(ROW(U8:U331)),,1)),--(U8:U331>=$I$3)). Apprécier tous les conseils que vous pouvez fournir.
    • Votre post n'dire "fitlered" n'est-ce pas? Je ne sais pas d'un moyen de formules, mais édité ma réponse avec VBA.
    • Merci!!!! Je suis allé de l'avant et utilisé le code VBA et il fonctionne très bien.
    InformationsquelleAutor Dick Kusleika
  3. 0

    Je ne suis pas sûr de la façon la colonne B est à côté d'ici, mais...

    select distinct column_A, count(*)
from table
where column_C = 'A+'
group by column_A
    InformationsquelleAutor thursdaysgeek
  4. 0

    En ligne avec thursdaysgeek

    strFile = Workbooks(1).FullName
''Note HDR=Yes, so column names can be used
strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

Set cn = CreateObject("ADODB.Connection")
cn.Open strCon
Set rs = CreateObject("ADODB.Recordset")

strSQL = "SELECT DISTINCT Student, Exam FROM [Sheet4$] " _
       & "WHERE Exam='Exam 1'"

rs.Open strSQL, cn

For i = 0 To rs.Fields.Count - 1
    Sheets("Sheet5").Cells(1, i + 1) = rs.Fields(i).Name
Next

Sheets("Sheet5").Cells(2, 1).CopyFromRecordset rs
    InformationsquelleAutor Fionnuala