VBA Code to Count Cells with Specific Criteria in Excel

This code counts the number of cells in the selected range that meet a specific criteria

VBA Code:

Sub CountCellsByCriteria()
    Dim cell As Range
    Dim count As Integer
    Dim criteria As String
    
    count = 0
    criteria = "Criteria"
    
    For Each cell In Selection
        If cell.Value = criteria Then
            count = count + 1
        End If
    Next cell
    
    MsgBox "Count: " & count
End Sub

Join Our Telegram Group

Join Our WhatsApp Group

Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact · Excel Course

Leave a Comment Cancel reply