Separar letras de celda

Buenas tardes, aquí con un trabajo que no he conseguido realizar.

Tengo una fila con datos, de los cuales tengo que separar las letras en la columnas contiguas.

De este problema tengo que realizar lo siguiente:

Hoja 01

1) Tengo que separar solo las consonantes y unir las tres primeras consonantes de las letras separadas. Ejemplo:

CAMISA=CMS

Pero si existe otro valor igual le asigne una secuencia numérica.

(CAMISETA=CMS)), pero como se repite debería pasar a (CMS001) y sucesivamente.

Hoja 02

2) Separar letras y unir las tres primeras. Ejemplo:

CAMISA=CAM

Pero si existe otro valor igual le asigne una secuencia numérica. (CAMARA=CAM), pero como se repite debería pasar a (CAM001) y sucesivamente.

Hoja 03

3) Existen Valores con tres o mas palabras, debe quedar así:

CAMISA POLO 38=CAMP38

Ojala me haya explicado bien, por su valiosa ayuda y tiempo, Muchas Gracias.

Adjunto Archivo.

Separar Letras.xls

Revisa el adjunto.

Separar Letras.xls

Wow... muy buen reto!

Mi solucion no requirio de programar simplemente usar funciones y listo! Hago uso de la funcion "ExtraerPatron" la cual me permite hacer uso de expresiones regualares en Excel sin necesidad de tener que programar, el unico requisito para tener diponible la funcion y ver como funciona mi solucion es descargarse el complemento que puse en el area de aportes, instalarlo y listo, cualquier problema de este tipo puede ser facilmente resuelto sin necesidad de programar!

aqui el link del complemento:

https://www.ayudaexcel.com/foro/threads/mx-utilities-el-complemento-de-excel-que-hace-el-trabajo-mas-facil.36961/

Saludos!

P.D.

Por cierto me he dado cuenta que puedo mejorar mi funcion de ExtraerPatron, en este caso me llevo mas pasos ya que debo poner un separador (en este caso "|") para que me devuelva todas las coincidencias. No se por que microsoft no permite usar expresiones regulares en la interfaz de usuario? en fin,,, no necesito esperar a que MS decida implementar dicha funcionalidad.

Separar Letras.xls

Buena la Solución de @digitalboy, pero en el trabajo me obligan a trabajar con VBA, entonces la solución que me brinda [uSER=46507]@Macro Antonio[/uSER] se adapta a lo que realizo, pero como se lo puedo realizar para que no tenga que ser fija la fila, es decir; puedo encontrarme en otra fila ya la operación ya no me la realiza.

Gracias.

Separar Letras01.xls

Revisa el adjunto.

Separar Letras01.xls

Buena la Solución de @digitalboy, pero en el trabajo me obligan a trabajar con VBA, entonces la solución que me brinda [uSER=46507]@Macro Antonio[/uSER] se adapta a lo que realizo

Es una pena... aun asi fue divertido e interesante poder probar la funcionalidad de mi complemento en este problema. Si logro disponer de algo de tiempo lo que resta del fin de semana y aun no cierran el tema... quizas pueda brinda la solucion empleando VBA!

Aun que la verdad creo que ya la solucion del colega MacroAntonio resolvera sin duda tu problema!

Saludos!

En mi intento lo estaba realizando, pero me demoraba ("Con decir que aun no terminaba con la tarea"), ahora veo que no se nada en comparación de los MAESTROS en VBA, la verdad estoy muy agradecido de formar parte de este foro aunque sea solo para hacer consultas.

Algún día, espero llegar a ser la mitad de los MAESTROS.

Muchas Gracias, por la ayuda.

Tema Solucionado.

Hola! aqui esta mi aportacion haciendo uso de la clase clsString... la verdad debo reconocer que me sorprendio la simplicidad con la que [uSER=46507]@Macro Antonio[/uSER] resolvió el problema (ya estuve estudiando el codigo, primero extrae los caracteres y luego hace el conteo,,, ja quien lo hubiera pensado). Me gusta esa simplicidad, he aprendido mas de lo pensaba de este tema!

Saludos!

Separar Letras.xls

[uSER=128107]@kanll[/uSER]

Aunque ya diste por solucionado el tema, con posterioridad has recibido una nueva respuesta.

¿Te sirvió la ayuda? ¿Cerramos el tema?

Saludos

Muy buenas amigos @digitalboy y [uSER=46507]@Macro Antonio[/uSER], la solución es muy útil a las necesidades que tengo, pero al ejecutar el código note;

1) Que no enumera desde el principio, es decir;

CAMISA=CAM

CAMISETA=CAM-001

Cuando debería se así;

CAMISA=CAM-001

CAMISETA=CAM-002

2) También me genera un nuevo libro cuando debería crear la secuencia al lado de donde se selecciona los datos y respetando los espacios vacíos. ya que el orden debe ser igual.

Muy agradecido por la ayuda, pero si es posible ayudar con esas observaciones....

Mientras, Voy a intentar generar una combinación de las dos respuestas.

Muchas Gracias y disculpen las molestias.