Concatenar
Hola
Estoy teniendo un problema para concatenar muchas celdas a la vez.
Por ejemplo:
Tengo en una columna
10
22
23
44
15
Lo quiero separar con comas, pero son como 500 numero que tengo que concatenar
10,22,23,44,15, ..........500
Muchas gracias!
Mi correo es [email protected]
Estoy teniendo un problema para concatenar muchas celdas a la vez.
Por ejemplo:
Tengo en una columna
10
22
23
44
15
Lo quiero separar con comas, pero son como 500 numero que tengo que concatenar
10,22,23,44,15, ..........500
Muchas gracias!
Mi correo es [email protected]
1 Respuesta
Respuesta de kapapri
1
Prueba esta macro.
Selecciona rango a concatenar. El resultado lo pondrá en la primera fila, columna posterior al rango.
Sub contatenarango()
'
palabra = InputBox("Ingresa separador")
largopalabra = Len(palabra)
Set Rango = Selection
a = Selection.Row
b = Selection.Column
Dim resultado As String
resultado = ""
For Each cell In Rango
celda = cell.Text
filacelda = cell.Row
filacolumna = cell.Column
resultado = resultado + celda + palabra
Next 'muevo a siguiente celda
largostring = Len(resultado)
Final = Mid(resultado, 1, largostring - largopalabra)
Cells(a, filacolumna + 1) = Final
End Sub
Selecciona rango a concatenar. El resultado lo pondrá en la primera fila, columna posterior al rango.
Sub contatenarango()
'
palabra = InputBox("Ingresa separador")
largopalabra = Len(palabra)
Set Rango = Selection
a = Selection.Row
b = Selection.Column
Dim resultado As String
resultado = ""
For Each cell In Rango
celda = cell.Text
filacelda = cell.Row
filacolumna = cell.Column
resultado = resultado + celda + palabra
Next 'muevo a siguiente celda
largostring = Len(resultado)
Final = Mid(resultado, 1, largostring - largopalabra)
Cells(a, filacolumna + 1) = Final
End Sub
