Jak zkombinovat více sloupců do jednoho sloupce pomocí VBA v aplikaci Microsoft Excel

Anonim

V případě, že máte požadavek na kombinování více sloupců do sloupce a vy jste neměli tušení, pak je celý tento článek pro vás. V tomto článku se naučíme kombinovat více sloupců do jednoho sloupce pomocí kódu vba.

Snímek z níže:-

Následuje snímek požadovaného výstupu:-

Musíme postupovat podle následujících kroků:

  • Klikněte na kartu Vývojář
  • Ze skupiny kódů vyberte Visual Basic

Do standardního modulu zadejte následující kód

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Zde změňte název listu

Const shName2 As String = "Sheet2"

Dim arr, arrNames

S pracovními listy (shName1)

arrNames = .Range ("F1", .Cells (1, Columns.Count) .End (xlToLeft))

Pro i = 2 až .Cells (Rows.Count, 1) .End (xlUp) .Row

arr = .Cells (i, 1) .Resize (, 4)

S pracovními listy (shName2)

With .Cells (Rows.Count, 1) .End (xlUp)

.Offset (1) .Resize (UBound (arrNames, 2), 4) = arr

.Offset (1, 5) .Resize (UBound (arrNames, 2)) = Application.Transpose (arrNames)

Konec s

Konec s

další

Konec s

End Sub

Jak spustíte makro; makro přenese data z více sloupců do jednoho sloupce.

Tímto způsobem můžeme kombinovat data z více sloupců do jednoho sloupce.