how to extract multiple words from sentence that have same ending to a new column separated by commas

[ruj]

I have an issue whereby for example i have a sentence in column A that says for "hello ID users tbzoo, rjkth, mnkz, plzoo, rtzoo and fghzt" and i would like to create a new column B that extracts all the words in column A that end with zoo and are separated by a comma eg column B would have tbzoo,plzoo,trzoo. So far the formula i have come up with using MID and search only returns the first word that ends in zoo and not all of them. Please help! Thank you

 

[Peter_SSs]

Welcome to the MrExcel board!

You could consider a user-defined function like this. To implement ..
1. Right click the sheet name tab and choose "View Code".
2. In the Visual Basic window use the menu to Insert|Module
3. Copy and Paste the code below (you can use the icon at the top right of the code pane below) into the main right hand pane that opens at step 2.
4. Close the Visual Basic window.
5. Enter the formula as shown in the screen shot below and copy down as in B1:B3. The function allows you to set the word ending and also the text to insert between the found words if you want. The default is a comma followed by a space but can be set otherwise as in the B6 formula.
6. Your workbook will need to be saved as a macro-enabled workbook (*.xlsm)

Function WordEnds(s As String, wordend As String, Optional delim As String = ", ") As String
  Dim RX As Object, itm As Object
  
  Set RX = CreateObject("VBScript.RegExp")
  RX.Global = True
  RX.Pattern = "\b[^ ]*?" & wordend & "\b"
  For Each itm In RX.Execute(s)
    WordEnds = WordEnds & delim & itm
  Next itm
  WordEnds = Mid(WordEnds, Len(delim) + 1)
End Function

ruj.xlsm
	A	B
1	hello ID users tbzoo, rjkth, mnkz, plzoo, rtzoo and fghzt	tbzoo, plzoo, rtzoo
2
3	I went to the zoo yesterday	zoo
4
5
6	hello ID users tbzoo, rjkzt, mnkz, plzoo, rtzoo and fghzt	rjkzt-fghzt
Sheet1

Cell Formulas
Range	Formula
B1:B3	B1	=WordEnds(A1,"zoo")
B6	B6	=WordEnds(A6,"zt","-")

 

[ruj]

Thank you soo soo much Peter! It worked perfectly. super grateful for your help here!

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.