This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Function find_str_in_a_column(str_to_find As String, col_no As Integer, wws As Worksheet) As Integer | |
'In {wws}(working worksheet), column of {col_no},RETURN the row number of the first cell which contains {str_to_find} | |
'Or return -1 if not found | |
Dim arr() | |
Dim re As Integer | |
Dim i As Integer | |
With wws | |
re = .Cells(65536, col_no).End(xlUp).Row | |
arr = .Range(.Cells(1, col_no), .Cells(re, col_no)).Value2 |