Want To Find Many Words At a Time ,MultiSearch Function

[amolpomane]

Hello All,

I have my Search Query Report of Adwords with me ,it contains more than 5000 search queries and I have a list of around 20-30 words that I need to find in this list ,I want to find all search queries or data that contain a word given.

Basically I want a multisearch function that will find all 20 values and will show the result.I have both coloumns in one sheet only .


Can you help me ?

 

[hurgadion]

Hi,
let Your Data (Queries) be in Column A and let a word be in B1, then try the code:

Sub Finding()
Dim tbl, tblh, i&, j&, x&, word As String

word = Cells(1, 2).Value
a = Cells(Rows.Count, 1).End(xlUp).Row

tbl = Application.Transpose(Range("A1:A" & a))

For i = LBound(tbl) To UBound(tbl)
  tblh = Split(tbl(i), " ")
  For j = LBound(tblh) To UBound(tblh)
    If tblh(j) = word Then x = x + 1
  Next j
Next i

MsgBox x
End Sub

Best regards.

 

[amolpomane]

I tried it ,But it just gives me a number of times a word present in this list .I want those rows also which contains the list numbers ,this code is working for a single word only ,I want to search a multiple words at a time and ,want searched rows .

 

[hurgadion]

It may be more complicated. Would you like to give a pictorial Example ?