Codigo Concatenación VBA

[juanigto]

Estimados Amigos:

La verdad es que estuve buscando bastante, pero no encuentro ni se me ocurre como resolver mi problema.

Quiero concatenar dos columnas ( La A y la C) y que me arroje el resultado en la B.

El codigo que estuve probando fue : 

 

Sub Contar()

On Error Resume Next

Dim base As Byte
Dim i As Byte

base = Range("Contar").Count         'Contar es el rango dinamico que estoy utilizando , en este caso sería la ultima fila'
 
 For i = 2 To base
 
 Cells(i, 2) = Cells("Ai") & Cells("Ci")
  
 Next i

End Sub

 

 

Desde ya si a alguien se le ocurre algo les agradezco mucho!

 

 

 

Book1.xlsx

[Dr Hyde]

prueba este codigo

Sub concatenar()
Set datos = Range("a1").CurrentRegion
Set datos = datos.Offset(1, 0).Resize(datos.Rows.Count - 1, datos.Columns.Count)

For i = 1 To datos.Rows.Count
    datos.Cells(i, 2) = datos.Cells(i, 1) & datos.Cells(i, 3)
Next i
End Sub

 

[juanigto]

Perfecto. Anduvo!!.

Muchas gracias!