Juntar dos letras que están en diferentes columnas en Excel

Te preparo una macro y te la envío

Saludos. Dante Amor

Esta es la macro, cambia Hoja1 por el nombre de tu hoja que tiene los datos y cambia hoja2 por el nombre de otra hoja para poner el resultado.

Sub juntar2letras()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
    k = 1
    For j = 1 To h1.Cells(i, Columns.Count).End(xlToLeft).Column Step 2
        h2.Cells(i, k) = h1.Cells(i, j) & h1.Cells(i, j + 1)
        h2.Cells(i, k).NumberFormat = "00"
        k = k + 1
    Next
Next
End Sub

Saludos.Dante Amor
Si es lo que necesitas.

Hola Dante muy buen día... mil gracias por responder eres una de las personas que en un numero importante de ocasiones me haz ayudado...

No esta corriendo el macro. Al parecer es un problema con mi archivo.

Sub juntar2letras()

'Por.DAM

Set h1 = Sheets("SinEM4") Aquí me marca el problema

Set h2 = Sheets("SinEM3")

h2.Cells.ClearFor i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row

k = 1

For j = 1 To h1.Cells(i, Columns.Count).End(xlToLeft).Column Step 2

h2.Cells(i, k) = h1.Cells(i, j) & h1.Cells(i, j + 1)

h2.Cells(i, k).NumberFormat = "00"

k = k + 1

Next

Next

End Sub

Me pone que el tiempo de espera es demasiado o algo por el estilo.

Espero me puedas ayudar.

Puedes comprimir tu archivo y enviármelo para revisarlo

Listo ya esta enviado....

Finalizo la pregunta?

Te envié unos comentarios, cuando quede tu información correcta, entonces finaliza la pregunta.