How to count if cells contain any date/data in Excel?
Have you even met problems to count number of cells containing any date or data in a specific range in Excel? In this article, I will introduce ways to count if cells contain any date/data in Excel.
- Count if cells contain any date in Excel
- Count if cells contain any data with COUNTA function in Excel
- Count and select cells if contains any data in a specified range (only one click)
This method will introduce a VBA Macro to count cells containing dates in a specific range in Excel.
Step 1: Open the Microsoft Visual Basic for Applications window with pressing the Alt + F11 keys at the same time.
Step 2: Click the Insert > Module, and then paste the following VBA code into the Module window:
VBA: Count if cells contain any date
Function TypeCell(pRange As Range) As Variant
Dim xArr() As Variant Dim xRng As Range Application.Volatile ReDim xArr(pRange.Cells.Count - 1) As Variant xCount = 0 For Each xRng In pRange xArr(xCount) = VarType(xRng) xCount = xCount + 1 Next TypeCell = xArr End Function
Step 3: In a blank cell enter the formula =SUM(IF(TypeCell(A1:E15)=7,1,0)), and then press the Ctrl + Shift + Enter keys in a meantime.
Note: In the formula of =SUM(IF(TypeCell(A1:E15)=7,1,0)), the A1:E15 is the specific range we will count number of cells containing dates, you can change it based on your needs.
Now you will get the number of cells containing dates in the specific range.
The COUNTA function will help you figure out the number of cells with any data in a specific range in Excel easily.
In a blank cell enter the formula =COUNTA(A1:E15), and press the Enter key. In the formula, the range A1:E15 is the specific range you will count numbers of cells with data, and you can change it as you need.
Note: After selecting the specific range, we can get the cell number with any data in the Status Bar easily too.
If you have Kutools for Excel installed, you can apply its Select Nonblank Cells utility to count and select cells if contains any data quickly in a certain range with only one click.
And then all cells with data in the specified range are selected, and a dialog box will pop up and show how many nonblank cells have been selected. See screenshot:
Click the OK button to close this dialog box.
Best Office Productivity Tools
Supercharge Your Excel Skills with Kutools for Excel, and Experience Efficiency Like Never Before. Kutools for Excel Offers Over 300 Advanced Features to Boost Productivity and Save Time. Click Here to Get The Feature You Need The Most...
Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier
- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!