Comments on: Find the nth Word in a String http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/ Hundreds of Excel Tips & Tricks Wed, 10 Mar 2010 07:03:23 +0000 http://wordpress.org/?v=2.9.1 hourly 1 By: Rick Rothstein (MVP - Excel) http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/comment-page-1/#comment-1376 Rick Rothstein (MVP - Excel) Sun, 13 Dec 2009 05:13:18 +0000 http://www.automateexcel.com/?p=1101#comment-1376 Here is a much shorter function to do this... Function Find_Nth_Word(Phrase As String, N As Long) As String On Error Resume Next Find_Nth_Word = Split(WorksheetFunction.Trim(Phrase))(N - 1) End Function Here is a much shorter function to do this…

Function Find_Nth_Word(Phrase As String, N As Long) As String
On Error Resume Next
Find_Nth_Word = Split(WorksheetFunction.Trim(Phrase))(N – 1)
End Function

]]> By: Jon Peltier http://www.automateexcel.com/2008/10/31/find-the-nth-word-in-a-string/comment-page-1/#comment-988 Jon Peltier Fri, 31 Oct 2008 16:52:48 +0000 http://www.automateexcel.com/?p=1101#comment-988 This might be simpler and more reliable: Function Find_Nth_Word(sPhrase As String, iWord As Long) As String Dim vPhrase As Variant Dim iLen As Long sPhrase = Trim$(sPhrase) Do iLen = Len(sPhrase) sPhrase = Replace(sPhrase, " ", " ") If iLen = Len(sPhrase) Then Exit Do Loop vPhrase = Split(sPhrase, " ") If iWord - 1 <= UBound(vPhrase) Then Find_Nth_Word = vPhrase(iWord - 1) End If End Function This might be simpler and more reliable:

Function Find_Nth_Word(sPhrase As String, iWord As Long) As String
Dim vPhrase As Variant
Dim iLen As Long

sPhrase = Trim$(sPhrase)
Do
iLen = Len(sPhrase)
sPhrase = Replace(sPhrase, ” “, ” “)
If iLen = Len(sPhrase) Then Exit Do
Loop
vPhrase = Split(sPhrase, ” “)
If iWord – 1 <= UBound(vPhrase) Then
Find_Nth_Word = vPhrase(iWord – 1)
End If
End Function

]]>