|
|
#3
06-01-2021, 04:36 PM
|
||||
|
||||
I think you need to iterate through the array and test each value
Code:
Sub CountIt()
Dim arr() As String, i As Integer, iCount As Integer
arr = Split("1,Dog,2,Apple,3.7,22,Green", ",")
For i = LBound(arr) To UBound(arr)
If IsNumeric(arr(i)) Then iCount = iCount + 1
Next i
MsgBox "Array contains " & iCount & " numbers", vbOKOnly
End Sub
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
| Tags |
| count, counta |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Counting footnotes in Word | Sylvain | Word VBA | 0 | 03-10-2021 06:45 AM |
| Counting Consecutive Periods In Rows Using Numbers | Yaaseen23 | Excel | 18 | 03-24-2017 11:15 AM |
| counting "x" in a cell and sum the numbers in weekday | rayramirezdvm | Excel | 4 | 04-02-2015 02:58 PM |
| Counting unique visitors by ward, counting monthly visits by status, editing existing workbook | JaxV | Excel | 9 | 11-14-2014 12:25 AM |
| Word counting macro for newly added portion? | New Daddy | Word VBA | 24 | 09-30-2013 07:30 PM |
Windows 10 
Office 2016
Threaded Mode