Could use some Excel help... SOLVED and THANK YOU

I have no idea what you're asking... Maybe I'm slow, but you have 1 word in column X and are returning 2 words in column B?

Some sort of If statement may help???

Here's a starting point, but there are problems with it. It picked up the ran inside of Frank, so in order to keep that from happening I had to put a space in front of and in back of the words in column x. This means it won't pick up the first or last word in the sentence. Also, it is case specific, so it will not pick up the first word in the sentence. Also, I have extra commas.

=IFERROR(MID(A1,FIND($X$1,A1),LEN($X$1)),"")&","&IFERROR(MID(A1,FIND($X$2,A1),LEN($X$2)),"")&","&IFERROR(MID(A1,FIND($X$3,A1),LEN($X$3)),"")&","&IFERROR(MID(A1,FIND($X$4,A1),LEN($X$4)),"")&","&IFERROR(MID(A1,FIND($X$5,A1),LEN($X$5)),"")

Results:
,, drove ,,
walked ,,,,
, flew ,,,
,, drove , ran ,

Removing all of the commas:
=IFERROR(MID(A1,FIND($X$1,A1),LEN($X$1)),"")&IFERROR(MID(A1,FIND($X$2,A1),LEN($X$2)),"")&IFERROR(MID(A1,FIND($X$3,A1),LEN($X$3)),"")&IFERROR(MID(A1,FIND($X$4,A1),LEN($X$4)),"")&IFERROR(MID(A1,FIND($X$5,A1),LEN($X$5)),"")

Results:
drove
walked
flew
drove ran

VBA:
Function GetWords(x As Range, List As Range)
GetWords = ""
For Each y In List.Cells
If InStr(x.Text, " " + y.Text + " ") > 0 Then
If Len(GetWords) > 1 Then
GetWords = GetWords + ", "
End If
GetWords = GetWords + y.Text
End If
Next
End Function

Excel:
=GetWords(A1,$B$1:$B$5)

This doesn't account for multiple uses of the same word but could be easily modified if needed.

First, thanks for the help.

I took some time at lunch to look at it and using VBA I keep getting a blank cell? I copied the above function exactly.

Perhaps I'm doing something wrong. I don't have that much experience with VBA and have done almost no programming since undergrad years (pushing two decades).

quote:

---

msuhunter

---

Working now, thanks a million!