by Merrill Kuske (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 23rd June 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This program iterates through a range on an Excel Worksheet to find each occurrence of a given word, in this instance ORIG, then adds to a
API Declarations
Dim c As Object
Range("g9:g500").Select 'This range is variable upon your needs
ORIG = 0 'Set counter to 0
For Each c In Range("Count")'Find range and instance
If c.Value = "ORIG" Then
ORIG = ORIG + 1
End If
Next c
MsgBox "There are " & ORIG & " cell values for Originals in this range."
End Sub
No comments have been posted about This program iterates through a range on an Excel Worksheet to find each occurrence of a given word. Why not be the first to post a comment about This program iterates through a range on an Excel Worksheet to find each occurrence of a given word.