Código:
Function eXl_LimpiarNombre(ByVal entrada As String) As String
Dim Resultado As String
Dim i As Long
Dim x As String
Resultado = ""
For i = 1 To Len(entrada)
x = Mid(entrada, i, 1)
If UCase(x) Like "(A-Z )" Then
Resultado = Resultado & x
End If
Next i
eXl_LimpiarNombre = Resultado
End Function
👉 Como hacer que la UDF (User Defined Functions) esté disponible como una Función Nativa de Excel
⭐ Si te gustó, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.