[SOLUCIONADO] macro para crear nueva columna usando valores de otras dos

[marianosanzl]

Muy buenos días,

a ver si me podéis ayudar, estaría muy agradecido.

Tengo una tabla excel con 15,000 filas de datos, todos ellos texto.

Necesito, una macro que inserte una columna justo después de una llamada "KKS", el nombre de la nueva columna sería el mismo "KKS".

En cada celda de esta nueva columna debería tomar los textos de la correspondiente antigua columna "KKS", añadiendo delante el texto correspondiente de una columna adyacente llamada "Unit ID".

Ejemplo de una de las filas:
"Unit ID"= 10
"KKS" (antigua)= MBA10AT001
"KKS" (nueva)= 10MBA10AT001

Lo de los colores es sólo para resaltar como se "suman" los valores.

Muchas gracias por adelantado por vuestra ayuda.
Mariano

[Triby]

Suponiendo que la columna Unit ID es la D y KKS es la E (4 y 5, respectivamente), entonces la nueva KKS será la F (6).

Código VBA:

' Este código debe estar en la misma hoja y no en módulos
Sub creaColumna()
    Dim fila as Long
    ' Lo primero es establecer el título de la nueva columna
    Cells(1, 6).Value = "KKS"
    ' Inicias en la fila 2 y hasta que se encuentre un valor vacío
    fila = 2
    Do While Not IsEmpty(Cells(fila, 5).Value)
         ' El operador & es para unir cadenas (AKA "concatenar")
         Cells(fila, 6).Value = Cells(fila, 4).Value & Cells(fila, 5).Value
         fila = fila + 1
    Loop
End Sub
 

Ahora solo ejecuta la macro y listo!