Concatenar valor celda con valores celdas columnas
Se requiere una macro que concatene el valor de una celda con columnas: Los datos está en la misma hoja
Hoja 1 columnas
G K L M N
1 A 10 8 6 7
2 B 5 20 30 40
3 D 8 50 60 70
4 Z 11 80 90 100
5 Y 14 110 120 140
Al ejecutar la macro debe concatenar los valores de K;L;M;N con los valores de G de su respectiva fila, es decir, dar como resultado:
Hoja 1 columnas
G K L M N
1 A 10A 8A 6 A 7A
2 B 5B 20B 30B 40B
3 D 8D 50D 60D 70D
4 Z 11Z 80Z 90Z 100Z
5 Y 14 Y 110Y 120Y 140Y
1 respuesta
H o l a:
Te anexo la macro
Sub Concatena()
'Por.Dante Amor
For i = 1 To Range("G" & Rows.Count).End(xlUp).Row
Cells(i, "K") = Cells(i, "K") & Cells(i, "G")
Cells(i, "L") = Cells(i, "L") & Cells(i, "G")
Cells(i, "M") = Cells(i, "M") & Cells(i, "G")
Cells(i, "N") = Cells(i, "N") & Cells(i, "G")
Next
MsgBox "Fin"
End Sub
Buenas tardes Dante Amor: Reciba un cordial y respetuoso saludo
Observaciones respetuosas: Se me olvido indicar que el No. de columnas es variado, es decir, empieza desde K hasta encontrar la última columna con dato. Lo otro, es que en una fila puede tener un solo dato o varios, en el caso expuesto arriba todas tienen 4 datos, esto puede ser varible.
Gracias,
H o l a:
Te anexo la macro actualizada
Sub Concatena()
'Por.Dante Amor
For i = 1 To Range("G" & Rows.Count).End(xlUp).Row
For j = Columns("K").Column To Cells(i, Columns.Count).End(xlToLeft).Column
Cells(i, j) = Cells(i, j) & Cells(i, "G")
Next
Next
MsgBox "Fin"
End SubPrueba y me comentas.
Agradezco nuevamente su ayuda,
Realice un ajuste (ver anexo), pero si no hubiera sido por su excelente ayuda, no hubiera solucionado este problem,
Buen día
For I = 1 To Range("G" & Rows.Count).End(xlUp).Row
For j = Columns("AD").Column To Columns("BF").Column
If Cells(I, j) <> "" Then
Cells(I, j) = Cells(I, j) & " " & Cells(I, "G")
End If
Next
Next
