Concatenar dos columnas (no adyacentes) con macros
Los molesto con la siguiente solicitud de ayuda con una macro.
La idea es concatenar los valores de dos columnas no adyacentes (B y D) en una tercera columna. Esta tercera columna debe generarse en la columna A, sin borrar los otras datos, o sea que ay que desplazarla.
Viendo diferentes foros y por conceptos propios llegue a esta macro pero no me modifica los valores de la primera columna.
Sub concatenar()
Dim cola As Variant
Dim colb As Variant
Range("A2").Select
For Each cola In Range("A2:A186")
For Each colb In Range("B2:B186")
ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[4],RC[9])"
ActiveCell.Offset(1, 0).Select
Next
Next
Range("A187").Select
End Sub
1 Respuesta
Respuesta de Luis Mondelo
1