Buscar y remplazar
Publicado por wernser412 (25 intervenciones) el 13/06/2021 00:05:59
Tengo en una celda digamos en A1 = 2laweb32delprogramador9
Quiero hacer que en la cadena de texto de A1 ,que todos los números se reemplacen con la palabra "Chevere" dandome este resultado =cheverelawebcheverecheveredelprogramadorchevere
No se mucho de programacion espero que me ayuden
A1= 2laweb32delprogramador9
Resultado lo pondria en A3=cheverelawebcheverecheveredelprogramadorchevere
Quiero hacer que en la cadena de texto de A1 ,que todos los números se reemplacen con la palabra "Chevere" dandome este resultado =cheverelawebcheverecheveredelprogramadorchevere
No se mucho de programacion espero que me ayuden
1
2
3
4
5
6
7
8
9
10
11
Function aaa(numero As String)
Dim n As Long, x As Long, y As String
For n = 1 To Len(numero)
x = Val(Mid(numero, n, 1))
Select Case x
Case 0 To 9
y = InStr(numero, x)
End Select
Next
aaa = Replace(numero, y, "chevere")
End Function
A1= 2laweb32delprogramador9
Resultado lo pondria en A3=cheverelawebcheverecheveredelprogramadorchevere
Valora esta pregunta
0
