posicion - Agregue el mismo texto a cada celda en una columna en Excel
numero almacenado como texto convertir a numero (10)
Acabo de escribir esto para otra respuesta: lo llamarías usando el formulario usando tu ejemplo: appendTextToRange "[theRange]", ","
.
Sub testit()
appendTextToRange "A1:D4000", "hey there"
End Sub
Sub appendTextToRange(rngAddress As String, append As String)
Dim arr() As Variant, c As Variant
arr = Range(rngAddress).Formula
For x = LBound(arr, 1) To UBound(arr, 1)
For y = LBound(arr, 2) To UBound(arr, 2)
Debug.Print arr(x, y)
If arr(x, y) = "" Then
arr(x, y) = append
ElseIf Left(arr(x, y), 1) = "=" Then
arr(x, y) = arr(x, y) & " & "" " & append & """"
Else
arr(x, y) = arr(x, y) & " " & append
End If
Next
Next
Range(rngAddress).Formula = arr
End Sub
¿Cómo puedo agregar texto a cada celda en una columna en Excel? Necesito agregar una coma (",") hasta el final.
Ejemplo:
[email protected]
convierte en [email protected],
Muestra de datos:
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
Coloque el texto / valor en la primera celda, luego copie la celda, marque toda la columna y ''pegue'' el texto / valor copiado.
Esto funciona en Excel 97 - lo siento, no hay otra versión disponible de mi lado ...
Es sencillo......
=CONCATENATE(A1,",")
Ejemplo : si [email protected] en la celda A1, escriba en otra celda = CONCATENAR (A1, ",")
[email protected] después de esta fórmula, recibirá [email protected],
Para eliminar fórmula : copie esa celda y use alt + e + s + v o pegue un valor especial.
Es una función simple "&".
=cell&"yourtexthere"
Ejemplo: tu celular dice Mickey, quieres Mickey Mouse. Mickey está en A2. En B2, escriba
=A2&" Mouse"
Luego, copia y "pega especial" para los valores.
B2 now reads "Mickey Mouse"
Escríbalo en una celda, copie esa celda, seleccione todas las celdas que desea llenar y pegue.
Alternativamente, escríbalo en una celda, selecciona el cuadrado negro en la parte inferior derecha de esa celda, arrastra hacia abajo.
No es necesario usar columnas adicionales o VBA si solo desea agregar el carácter para mostrarlo .
Como sugiere esta publicación , todo lo que necesita hacer es:
- Seleccione la (s) celda (s) a las que le gustaría aplicar el formato
- Haga clic en la pestaña
Home
- Haga clic en
Number
- Seleccione
Custom
- En el cuadro de texto
Type
, ingrese el formato deseado colocando el número cero dentro de los caracteres que desee.
Ejemplo de dicho texto para formatear:
- Si desea que la celda que tiene el valor
120.00
lea$120K
, escriba$0K
Resalta columna y luego cntrl + f. Encuentre y reemplace encuentre ".com" reemplace ".com"
y luego uno para .en find y replace find ".in" replace ".in,"
Seleccione el rango de celdas, escriba el valor y presione Ctrl + Intro. Esto, por supuesto, es cierto si quieres hacerlo manualmente. Si quiere hacerlo en código, por favor, sea más específico, ¿qué usa?
Vea si esto funciona para usted.
- Todos sus datos están en la columna A (comenzando en la fila 1).
- En la columna B, fila 1, ingrese = A1 & ","
- Esto hará que la celda B1 sea igual a A1 con una coma añadida.
- Ahora seleccione la celda B1 y arrastre desde la parte inferior derecha de la celda hacia abajo a través de todas sus filas (esto copia la fórmula y utiliza el valor de la columna A correspondiente.
¡Eso es!
bastante simple ... podrías ponerlos todos en una celda usando la función de comarcato
=CONCATENATE(A1,", ",A2,", ", and so on)