Excel - extraer las primeras letras

hola, como extraeria las letras de inicio,
ejemplo :
a1 = maria ruiz ------- b1 = mr
a1 = maria victoria ruiz ------- b1 = mvr
a1 = maria victoria ruiz castellanos ----- b1 = mvrc
osea una sola funcion que de resultado para cualquiera de los 3 casos mencionados.
gracias

Hola Karina

'//Texto completo en cualquiera de las tres formas
A1 = maria victoria ruiz castellanos

'//Resultado final (1er letra, 2da, 3ra y 4ta)
B1 = EXTRAE(ESPACIOS(A1);1;1) & SI(ESERROR(C1);"";C1) & SI(ESERROR(D1);"";D1) & SI(ESERROR( E1);"";E1)

'//Fórmulas adicionales
'//Letra correspondiente al 1er espacio (2da letra)
C1 = EXTRAE(ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1))+1;1)

'//Letra correspondiente al 2do espacio (3er letra)
D1 = EXTRAE(ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1))+1)+1;1)

'//Letra correspondiente al 3er espacio (4ta letra)
E1 = EXTRAE(ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1);HALLAR(" ";ESPACIOS(A1))+1)+1)+1;1)

Espero haber sido claro...

Saludos desde Baires, JuanC

Gracias, vaya formula la copie y resulto.
saludos
karina

Hola Karina.

Te tengo una funcion de excel inventada, copia la misma y pegala en un modulo de Visual Basic. (Herramientas - Macro - Editor de Visual Basic, luego Insertar - Modulo)

Function PRIMERAS(TEXTO As String)
Dim NOMBRES(100) As String 'GUARDA DE 0 A 100 ESPACIOS ES DECIR 101 ESPACIOS PARA PALABRAS O NOMBRES
TEXTO = Trim(TEXTO)
C = 0 'CONTADOR DE PALABRAS QUE CONTIENE LA CELDA
For I = 1 To Len(TEXTO)
A = Mid(TEXTO, I, 1)
If A <> " " Then
NM = NM + A
Else
NOMBRES(C) = NM
C = C + 1
NM = ""
End If
Next I
NOMBRES(C) = NM
For I = 0 To C
PRIMLETRAS = PRIMLETRAS + Mid(NOMBRES(I), 1, 1) 'EXTRAE LA PRIMERA LETRA DE CADA PALABRA
Next I
PRIMERAS = PRIMLETRAS
End Function

en la hoja de excel escribe un nombre en A1
ejm.
A1 = KARINA DEL ROCIO MENDEZ ULLOA

y en B1 la formula =PRIMERAS(A1)

Espero que te cubra tus espectativas.

Javier M