En caso de que tenga el requisito de combinar varias columnas en una columna y no tenga ni idea, este artículo completo es para usted. En este artículo, aprenderemos cómo combinar varias columnas en una columna usando código vba.
Desde abajo instantánea: -
A continuación se muestra la instantánea de la salida requerida: -
Necesitamos seguir los pasos a continuación:
- Haga clic en la pestaña Desarrollador
- Desde el grupo de código, seleccione Visual Basic
Ingrese el siguiente código en el módulo estándar
Sub MultipleColumns2SingleColumn ()
Const shName1 As String = "Sheet1" 'Cambiar el nombre de la hoja aquí
Const shName2 As String = "Sheet2"
Dim arr, arrNames
Con hojas de trabajo (shName1)
arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))
Para i = 2 Para .Cells (Rows.Count, 1) .End (xlUp) .Row
arr = .Células (i, 1) .Resize (, 4)
Con hojas de trabajo (shName2)
Con .Cells (Rows.Count, 1) .End (xlUp)
.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr
.Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)
Terminar con
Terminar con
próximo
Terminar con
End Sub
Mientras ejecuta la macro; la macro transferirá los datos de varias columnas a una sola columna.
De esta forma podemos combinar datos de varias columnas en una sola columna.
