Find a matching suburb in an address - excel

Question

I have an Excel sheet with a list of addresses on each line
i.e.
COLUMN A
My Company 123 Big Street Ashgrove QLD 4111
A Better Compant PO Box 123 Sandgate QLD 4111
I have another sheet with every QLD suburb in it in alphabetical order in a named range called rSuburbs
i.e.
Ashgrove
BBBB
CCC
Sandgate
Zilmere
What formula can I write to find the closest match and dump it out, i.e. like this:
COLUMN A COLUMN B
My Company 123 Big Street Ashgrove QLD 4111 Ashgrove
A Better Compant PO Box 123 Sandgate QLD 4111 Sandgate

Answer 1

Try this formula in B2 copied down
=LOOKUP(2^15,SEARCH(" "&rSuburbs&" "," "&A2&" "),rSuburbs)
Using " "& ensures that you don't get partial matches

Answer 2

Assuming your list of suburbs is in column K2:6 with the heading suburbs in K1:
{=INDEX(K:K,LARGE(IFERROR(FIND($K$2:$K$6,A2)*0+ROW(A$2:A$6),0),1))}
Array formulas must be confirmed with ctrl+shift+enter -- do not try to enter the squiggly braces manually!
This will return the desired output.
Basically, figure out if each of the list is in the text in column A, return the row number of the suburb if it is, or zero if it isn't, and take the suburb of the largest index you get.

Answer 3

If you are interested in a vba solution this will print the suburb name in Column B, amend to match your workbook.
Option Explicit
Sub splitlr()
Dim wb As Workbook
Dim ws As Worksheet
Dim s As String, str As String
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim lr As Long
Dim a As Long
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
lr = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
With ws
a = 1
Do Until a = lr
s = .Range("A" & a).Text
i = Len(s)
j = InStrRev(s, " ") - 1
k = InStrRev(s, " ", j) - 1
l = InStrRev(s, " ", k)
str = Mid(s, l, (i - k))
.Range("B" & a).Value = str
a = a + 1
Loop
End With
End Sub