Excel - intercalar asteriscos entre cada caracter texto

   
Vista:

intercalar asteriscos entre cada caracter texto

Publicado por Gustavo (1 intervención) el 31/10/2007 18:13:02
si alguien pudiera ayudarme, necesito la forma de agregar un asterisco entre cada caracter de determinado texto en una celda, por ejemplo: si ingreso "abc123", que me lo convierta a " *a*b*c*1*2*3* "
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:intercalar asteriscos entre cada caracter texto

Publicado por JuanC (792 intervenciones) el 31/10/2007 21:39:09
con una pequeña macro se puede hacer...

'//By JuanC - Oct. 2007

Option Explicit

Sub test()
Dim l&, t$, i&
Dim cell As Range
For Each cell In [A1:A10]
l = Len(cell)
If l > 1 Then
For i = 1 To l
t = t & Mid(cell, i, 1) & "*"
Next
t = "*" & t
cell = t
t = ""
End If
Next
End Sub

Saludos desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar