Extract first 3 Characters from each word

[jarett]

Trying to extract the first three characters from each word in a cell, I was reading this article to extract the first character. Not sure if I could use this with some revision to get what I need. This is what I am trying to do
Cell A1 = Electric Blue/ Electric Blue Tonal Blend
Desired output = Ele Blu Ele Blu Ton Ble
I am indifferent on the "/" being left in and I would rather do away with the spaces in the output.
How to extract first letter of each word from cell?

 

[lrobbo314]

How about this?

Book3 (version 2).xlsb
	A	B
1	Electric Blue/ Electric Blue Tonal Blend	Ele Blu Ele Blu Ton Ble
Sheet6

Cell Formulas
Range	Formula
B1	B1	=TEXTJOIN(" ",1,LEFT(FILTERXML("<a><b>" & SUBSTITUTE(A1," ","</b><b>") & "</b></a>","//b"),3))

 

[Fluff]

How about

Fluff.xlsm
	A	B
1
2	Electric Blue/Electric Blue Tonal Blend	Ele Blu Ele Blu Ton Ble
Test

Cell Formulas
Range	Formula
B2	B2	=TEXTJOIN(" ",,LEFT(FILTERXML("<k><m>"&SUBSTITUTE(SUBSTITUTE(A2,"/"," ")," ","</m><m>")&"</m></k>","//m"),3))

 

[Joe4]

If you like using the UDF, try this modification:

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 3) & " "
        Next I
    Else
        GetFirstLetters = Left(arr, 3) & " "
    End If
    
    GetFirstLetters = Trim(GetFirstLetters)
    
End Function

 

[jarett]

If you like using the UDF, try this modification:

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 3) & " "
        Next I
    Else
        GetFirstLetters = Left(arr, 3) & " "
    End If
   
    GetFirstLetters = Trim(GetFirstLetters)
   
End Function

This one worked great, thanks.

 

[Joe4]

You are welcome.
Glad we were able to help!