En este artículo, crearemos una macro para combinar texto de dos columnas consecutivas en una sola columna.

Los datos brutos constan de nombre y apellido, que queremos fusionar en una sola columna.

ArrowRawData

Explicación del código

IntRow = Cells (Rows.Count, 1) .End (xlUp) .Row El código anterior se usa para obtener el número de fila de la última celda.

Celdas (i, 1) = Celdas (i, 1) & «» & Celdas (i, 2)

El código anterior concatena valores de la celda de la columna 1 y la columna 2.

Columns (2) .Delete El código anterior se utiliza para eliminar la segunda columna.

ArrowOutput

Siga el código a continuación

Option Explicit

Sub CombiningData()



'Declaring variables

Dim i As Integer, IntRow As Long

'Disabling screen updates

Application.ScreenUpdating = False

'Getting row number of last cell

IntRow = Cells(Rows.Count, 1).End(xlUp).Row

'Looping from 13th row to last row

For i = 13 To IntRow

'Concatenating the value of two consecutive cells

Cells(i, 1) = Cells(i, 1) & " " & Cells(i, 2)

Next

'Assigning value to cell A12

Range("A12") = "Name"

'Deleting second column

Columns(2).Delete

'Auto adjusting the size of cells in columns

Columns.AutoFit

'Enabling screen updates

Application.ScreenUpdating = True



End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]