Sådan kombineres flere kolonner til en enkelt kolonne ved hjælp af VBA i Microsoft Excel

Anonim

Hvis du har et krav om at kombinere flere kolonner med kolonnen, og du ikke havde en anelse, er hele denne artikel noget for dig. I denne artikel vil vi lære at kombinere flere kolonner til en kolonne ved hjælp af vba -kode.

Nedenstående snapshot:-

Følgende er snapshot af krav om output:-

Vi skal følge nedenstående trin:

  • Klik på fanen Udvikler
  • Vælg Visual Basic fra kodegruppen

Indtast følgende kode i standardmodulet

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Skift arknavn her

Const shName2 As String = "Sheet2"

Dim arr, arrNames

Med regneark (shName1)

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

For i = 2 Til. Celler (rækker.Tælling, 1). Afslut (xlUp) .Række

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

Med regneark (shName2)

Med .Celler (rækker.Tælling, 1) .Slut (xlUp)

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

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

Afslut med

Afslut med

Næste

Afslut med

Afslut Sub

Når du udfører makroen; makroen vil overføre dataene fra flere kolonner til en enkelt kolonne.

På denne måde kan vi kombinere flere kolonnedata i en enkelt kolonne.