Sacar todos los elementos distintos de una celda

hola, Favio !

... necesito sacar de una celda unicamente datos que no esten repetidos, por ejemplo si en una celda tengo:
ZONA A ZONA A ZONA B ZONA C ZONA C ZONA C, necesito EXTRAER unicamente uno de cada zona
o sea que el resultado sería así: ZONA A ZONA B ZONA C y a esas zonas que saco, colocarlas en alguna celda a eleccion...

si suponemos que en 'A1' tienes el texto original expuesto: -> ZONA A ZONA A ZONA B ZONA C ZONA C ZONA C
y que los 'casos' va a ser siempre extraer la zona 'X' sin repeticiones ['X' equivale a un solo caracter]
y si seguimos suponiendo que la/s celda/s 'a eleccion' pueden ser a partir de 'C1' -?-
-> prueba con la siguiente propuesta:

[B1] =sustituir(sustituir(a1,"ZONA ","")," ","")
[B2] =sustituir(b1,izquierda(b1),"")
[B3] vas copiando/arrastrando la formula en 'B2' hasta... ?

[C1] =si(largo(b1),"Zona "&izquierda(b1),"")
[C2] vas copiando/arrastrando la formula en 'B2' hasta... ?

toma en cuenta los siguientes 'convencionalismos':
- mi sistema usa coma en el separador de argumentos
- la funcion sustituir(...) es 'sensible' al texto en may/min/usculas

si los casos 'de la realidad' son diferentes de los supuestos anteriores...
va a ser necesario que los expongas +/- 'con lujo de detalles' :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Suponiendo que (siempre) los "fragmentos" de texto están formados por "ZONA
" + una letra + un espacio (p.e.: "ZONA B ")...

En un módulo ordinario:

Function zonas(origen As String) As String
Dim cadena$
Dim zona$
Dim n As Integer
For n = 6 To Len(origen) Step 7
zona = Mid(origen, n, 1)
If InStrRev(cadena, zona) = 0 Then cadena = cadena & zona
Next n
For n = 1 To Len(cadena)
zonas = zonas & "ZONA " & Mid(cadena, n, 1) & " "
Next n
End Function

En la celda que quieras el resultado: =zonas(A1)

NOTA: En este ejemplo A1 contiene el texto original.

Saludos desde Tenerife.
*******************************************
"Favio" escribió en el mensaje
news:eW980m%

Hola amigos, tengo el siguiente problema: necesito sacar de una
celda únicamente datos que no estén repetidos, por ejemplo si en una celda
tengo: ZONA A ZONA A ZONA B ZONA C ZONA C ZONA C, necesito EXTRAER
únicamente uno de cada zona, o sea que el resultado sería así: ZONA A ZONA
B
ZONA C y a esas zonas que saco, colocarlas en alguna celda a elección.
Desde
ya, muchas gracias.