insertar un símbolo fijo al principio de cada celda

Solo consultas sobre Funciones y Fórmulas Excel.
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Responder
diegolzgz
Miembro Nuevo
Miembro Nuevo
Mensajes: 1
Registrado: 08 Jul 2019 08:39

insertar un símbolo fijo al principio de cada celda

Mensaje por diegolzgz » 08 Jul 2019 08:43

Buenos días,
Me gustaría saber como insertar un símbolo fijo al principio de cada celda de una columna en concreto, siempre y cuando no empiecen por ese símbolo.
Mi problema es el siguiente: Tengo una columna (80.000 filas) en la que algunos textos empiezan por el signo @ y otros no, para que haya igual criterio y luego las estadísticas me salgan bien, quiero que empiecen todo por @.
¿Me podríais ayudar?



Avatar de Usuario
ServandoV
Miembro Frecuente
Miembro Frecuente
Mensajes: 3979
Registrado: 14 May 2012 20:02
Ubicación: México

Re: insertar un símbolo fijo al principio de cada celda

Mensaje por ServandoV » 08 Jul 2019 11:46

Hola Diego:

Hay cosas que no comentas y que es necesario conocer...
¿Las líneas que no tienen @ al inicio, todas tienen otro caracter a reemplazar?

Lo ideal sería que subieras una muestra de tu archivo (no imagen) en este mismo post con unos cuantos registro representativos de lo que tienes. Si contiene información confidencial, inventa otra pero que lo que nos muestres sea similar a lo real.

Saludos
Servando Villalón



Leopoldo Blancas
Miembro Frecuente
Miembro Frecuente
Mensajes: 472
Registrado: 11 Ene 2019 00:48

Re: insertar un símbolo fijo al principio de cada celda

Mensaje por Leopoldo Blancas » 08 Jul 2019 12:32

Hola,

Suoponiendo que es la Columna "D" y empueza en "D1"

Utiliza esta macro:

Código: Seleccionar todo

Sub CambiaInicio()
    Dim Celda As Range, uF&
    uF = Range("D" & Rows.Count).End(xlUp).Row
    For Each Celda In Range("D1:D" & uF)
        If Mid(Celda, 1, 1) <> "@" Then
            Celda = "@" & Celda
        End If
    Next Celda
End Sub
Solo que las celdas deben de estar formateadas como "Texto"

Saludos.



Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
Mensajes: 5556
Registrado: 26 Mar 2005 18:31

Re: insertar un símbolo fijo al principio de cada celda

Mensaje por Héctor Miguel » 08 Jul 2019 21:14

hola, a todos !
diegolzgz escribió:
08 Jul 2019 08:43
... una columna (80.000 filas) en la que algunos textos empiezan por el signo @ y otros no.. quiero que empiecen todo por @...
80000 filas no es un volumen pesado para el siguiente truco:
suponiendo que "una columna" es "B" y las +/-80000 filas son [B2:B80000]

corre la siguiente instruccion (p.ej. desde la ventana de inmediato):

Código: Seleccionar todo

[b2:b80000] = [transpose(transpose(if(left(b2:b80000)<>"@","@"&b2:b80000,b2:b80000)))]
nota que son 4 referencias al rango (por si necesitas adaptarlo a tu modelo real ?)



Leopoldo Blancas
Miembro Frecuente
Miembro Frecuente
Mensajes: 472
Registrado: 11 Ene 2019 00:48

Re: insertar un símbolo fijo al principio de cada celda

Mensaje por Leopoldo Blancas » 08 Jul 2019 22:24

Hola Héctor Miguel,

Me que de :shock: :shock: :shock: :shock: ..........Excelente.

Saludos



Responder