Γενικά, μπορούμε να εφαρμόσουμε το ΛΕΙΤΟΥΡΓΙΑ λειτουργία (=MODE(A1:A16)) για να βρείτε τον πιο κοινό αριθμό από μια περιοχή. Αλλά αυτή η λειτουργία MODE δεν λειτουργεί με συμβολοσειρές κειμένου. Για να εξαγάγετε την τιμή που εμφανίζεται περισσότερο, μπορείτε να εφαρμόσετε τον ακόλουθο τύπο πίνακα. Παρακαλώ κάντε ως εξής:

Σε ένα κενό κελί εκτός από τα δεδομένα, εισαγάγετε τον παρακάτω τύπο και πατήστε Shift + Ctrl + Enter κλειδιά μαζί.

=INDEX($A$1:$A$16,MODE(MATCH($A$1:$A$16,$A$1:$A$16,0)))

Η φόρμουλα είναι πολύ περίπλοκη για να θυμάστε; Αποθηκεύστε τον τύπο ως καταχώριση αυτόματου κειμένου για επαναχρησιμοποίηση με ένα μόνο κλικ στο μέλλον! Διαβάστε περισσότερα ...     Δωρεάν δοκιμή

Εάν έχετε εγκαταστήσει το Kutools για Excel, μπορείτε εύκολα να το εφαρμόσετε Βρείτε την περισσότερη τιμή κόμμα τύπος για να λάβετε γρήγορα την πιο συχνή τιμή από μια λίστα ή στήλη στο Excel.

1. Επιλέξτε ένα κενό κελί στο οποίο θα τοποθετήσετε την τιμή που βρέθηκε και κάντε κλικ στο Kutools > Βοηθός τύπου> Βοηθός τύπου.

2. Στο παράθυρο διαλόγου Formula Helper, επιλέξτε Lookup από το Τύπος τύπου αναπτυσσόμενη λίστα, κάντε κλικ για να επιλέξετε Βρείτε την πιο κοινή τιμή στο Επιλέξτε έναν τύπο πλαίσιο λίστας, καθορίστε τη λίστα / στήλη στο Σειρά και κάντε κλικ στο Ok κουμπί. Δείτε το στιγμιότυπο οθόνης:

Και τότε θα δείτε ότι η πιο κοινή / συχνή τιμή έχει βρεθεί και τοποθετηθεί στο επιλεγμένο κελί. Δείτε το στιγμιότυπο οθόνης:

Με τον ακόλουθο κώδικα VBA, δεν μπορείτε να βρείτε μόνο την πιο εμφανιζόμενη τιμή, αλλά και να μετρήσετε τον αριθμό των φορών για την πιο κοινή λέξη.

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.

Κωδικός VBA: Βρείτε την πιο κοινή τιμή από μια λίστα

Sub FindFrequency()
'Update 20140326
Dim Rng As Range
Dim WorkRng As Range
Set dic = CreateObject("scripting.dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xMax = 0
xOutValue = ""
For Each Rng In WorkRng
    xValue = Rng.Value
    If xValue <> "" Then
        dic(xValue) = dic(xValue) + 1
        xCount = dic(xValue)
        If xCount > xMax Then
            xMax = xCount
            xOutValue = xValue
        End If
    End If
Next
MsgBox "The most common value is: " & xOutValue & " Appeared " & xMax & " Times"
End Sub

3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει να επιλέξετε το εύρος που θέλετε να χρησιμοποιήσετε. Δείτε το στιγμιότυπο οθόνης:

4. Και στη συνέχεια κάντε κλικ στο κουμπί OK, θα λάβετε ένα πλαίσιο προτροπής που θα εμφανίζει τις ακόλουθες πληροφορίες: