Excel formula: Count cells that end with

Count cells that end with

While working with Excel, we are able to count values in a data set based on a given criteria by using the COUNTIF function. COUNTIF returns the number of values in a specified range based on a given condition. This step by step tutorial will assist all levels of Excel users in counting values that end with a specific text or character.

Figure 1. Final result: Count cells that end with “er”

Final formula: =COUNTIF(B3:B7,"*er")

Syntax of COUNTIF Function

=COUNTIF(range,criteria)

Parameters:

range – the data range that will be evaluated using the criteria
criteria – the criteria or condition that determines which cells will be counted

Setting up Our Data

Our table contains a list of Animals (column B). Cell E2 contains the criteria that we want to apply which is cells ending with “er”. In cell E3, the count based on the given criteria will be recorded.

Figure 2. Sample data to count cells that end with “er”

Count cells that end with “er”

In order to determine the number of cells that end with “er”, we follow these steps:

Step 1. Select cell E3

Step 2. Enter the formula: =COUNTIF(B3:B7,"*er")

Step 3: Press ENTER

Figure 3. Using COUNTIF and asterisk “*” to count cells that end with “er”

Our range for the COUNTIF function is the range B3:B7 which contains our data for “Animals”. The criteria is “*er” which means that we want to count the animals whose names end with “er”. The asterisk “*” is a wildcard in Excel and it means that there could be any number of characters before “er”.

As a result, our formula returns 2, which corresponds to two values that end with “er”: hamster and rooster.

Most of the time, the problem you will need to solve will be more complex than a simple application of a formula or function. If you want to save hours of research and frustration, try our live Excelchat service! Our Excel Experts are available 24/7 to answer any Excel question you may have. We guarantee a connection within 30 seconds and a customized solution within 20 minutes.

Did this post not answer your question? Get a solution from connecting with the expert.

Another blog reader asked this question today on Excelchat:

Debug the code (ran in vba) Dim arr(6 To 14, 3 To 11, 0 To 10) Dim arr1(6 To 14, 3 To 11, 0 To 10) Private Sub CommandButton1_Click() removecommments populatearray attempts = 1 Do While Not (complete() Or attempts > 15) parsegrid putcomments Sheet12.Cells(2, 7).Value = attempts attempts = attempts + 1 Loop End Sub Function complete() As Boolean emptycells = 0 For r = 6 To 14 For c = 3 To 11 If Sheet1.Cells(r, c).Value = "" Then emptycells = emptycells + 1 End If Next Next If emptycells <> 0 Then complete = True Else complete = False End If Sheet1.Cells(1, 7).Value = emptycells End Function Function parsegrid() For r = six To 14 For c = three To 11 zx = populateprobables(r, c) Next Next putvalues End Function Function populateprobables(ByVal rx As Integer, ByVal ry As String) As Variant If Sheet1.Cells(rx, ry).Value <> "" Then arr1(rx, ry, 0) = Sheet1.Cells(rx, ry).Value Else For cc = 3 To 11 If Sheet1.Cells(rx, cc).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rx, cc).Value) = 0 End If Next For rr = 6 To 14 If Sheet1.Cells(rr, ry).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rr, ry).Value) = 0 End If Next For cc = Application.WorksheetFunction.RoundDown(ry / 3, 0) * 3 To (Application.WorksheetFunction.RoundDown(ry / 3, 0) * 3) + 2 For rr = Application.WorksheetFunction.RoundDown(rx / 3, 0) * 3 To (Application.WorksheetFunction.RoundDown(rx / 3, 0) * 3) + 2 If Sheet1.Cells(rr, cc).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rr, cc).Value) = 0 End If Next Next End If End Function Function putvalues() For r = 6 To 14 For c = 3 To 11 Count = 0 For x = 1 To 10 If arr1(r, c, x) <> 0 Then Count = Count + 1 thevalue = arr1(r, c, x) End If Next If Count = 1 Then arr1(r, c, 0) = thevalue Sheet1.Cells(r, c).Value = thevalue End If Next Next End Function Function populatearray() For r = 6 To 14 For c = 3 To 11 For x = 1 To 9 arr1(r, c, x) = x Next Next End Function Function putcomments() For r = 6 To 14 For c = 3 To 11 arrtxt = "" If arr1(r, c, 0) = 0 Then For x = 1 To 9 If arr1(r, c, x) <> 0 Then arrtxt = arrtxt & "-" & arr1(r, c, x) End If Next If Sheet1.Cells(r, c).Comment Is Nothing Then Else Sheet1.Cells(r, c).Comment.Delete End If Sheet1.Cells(r, c).AddComment ("values possible are" & arrtxt) Sheet1.Cells(r, c).Comment.Visible = False End If Next Next End Function Function removecomments() For r = 6 To 14 For c = 3 To 11 If Sheet1.Cells(r, c).Comment Is Nothing Then Else Sheet1.Cells(r, c).Comment.Delete End If Sheet1.Cells(1, 7).Value = "" Sheet1.Cells(2, 7).Value = "" Next Next End Function Private Sub CommandButton2_Click() removecomments End Sub

An Excelchat Expert solved this problem in 17 mins!

The following code has errors when it runs. I need to fix the code so that there are no errors and the array shown in the worksheet fills correctly (sudoku!) Dim arr(6 To 14, 3 To 11, 0 To 10) Dim arr1(6 To 14, 3 To 11, 0 To 10) Private Sub CommandButton1_Click() removecommments populatearray attempts = 1 Do While Not (complete() Or attempts > 15) parsegrid putcomments Sheet12.Cells(2, 7).Value = attempts attempts = attempts + 1 Loop End Sub Function complete() As Boolean emptycells = 0 For r = 6 To 14 For c = 3 To 11 If Sheet1.Cells(r, c).Value = "" Then emptycells = emptycells + 1 End If Next Next If emptycells <> 0 Then complete = True Else complete = False End If Sheet1.Cells(1, 7).Value = emptycells End Function Function parsegrid() For r = six To 14 For c = three To 11 zx = populateprobables(r, c) Next Next putvalues End Function Function populateprobables(ByVal rx As Integer, ByVal ry As String) As Variant If Sheet1.Cells(rx, ry).Value <> "" Then arr1(rx, ry, 0) = Sheet1.Cells(rx, ry).Value Else For cc = 3 To 11 If Sheet1.Cells(rx, cc).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rx, cc).Value) = 0 End If Next For rr = 6 To 14 If Sheet1.Cells(rr, ry).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rr, ry).Value) = 0 End If Next For cc = Application.WorksheetFunction.RoundDown(ry / 3, 0) * 3 To (Application.WorksheetFunction.RoundDown(ry / 3, 0) * 3) + 2 For rr = Application.WorksheetFunction.RoundDown(rx / 3, 0) * 3 To (Application.WorksheetFunction.RoundDown(rx / 3, 0) * 3) + 2 If Sheet1.Cells(rr, cc).Value <> "" Then arr1(rx, ry, Sheet1.Cells(rr, cc).Value) = 0 End If Next Next End If End Function Function putvalues() For r = 6 To 14 For c = 3 To 11 Count = 0 For x = 1 To 10 If arr1(r, c, x) <> 0 Then Count = Count + 1 thevalue = arr1(r, c, x) End If Next If Count = 1 Then arr1(r, c, 0) = thevalue Sheet1.Cells(r, c).Value = thevalue End If Next Next End Function Function populatearray() For r = 6 To 14 For c = 3 To 11 For x = 1 To 9 arr1(r, c, x) = x Next Next End Function Function putcomments() For r = 6 To 14 For c = 3 To 11 arrtxt = "" If arr1(r, c, 0) = 0 Then For x = 1 To 9 If arr1(r, c, x) <> 0 Then arrtxt = arrtxt & "-" & arr1(r, c, x) End If Next If Sheet1.Cells(r, c).Comment Is Nothing Then Else Sheet1.Cells(r, c).Comment.Delete End If Sheet1.Cells(r, c).AddComment ("values possible are" & arrtxt) Sheet1.Cells(r, c).Comment.Visible = False End If Next Next End Function Function removecomments() For r = 6 To 14 For c = 3 To 11 If Sheet1.Cells(r, c).Comment Is Nothing Then Else Sheet1.Cells(r, c).Comment.Delete End If Sheet1.Cells(1, 7).Value = "" Sheet1.Cells(2, 7).Value = "" Next Next End Function Private Sub CommandButton2_Click() removecomments End Sub

An Excelchat Expert solved this problem in 21 mins!

I have formatted a column with text not number so that I can enter 0 before value. And my column fill with hundreds of cells with numbers and I want to count the number of cells fill with numbers. I applied the formula =count(A1:A200) but results came 0. Please help in this regards.

An Excelchat Expert solved this problem in 26 mins!