Hvordan kombinere flere kolonner til én kolonne ved hjelp av VBA i Microsoft Excel

Anonim

Hvis du har et krav om å kombinere flere kolonner med kolonnen og du ikke hadde peiling, er hele denne artikkelen noe for deg. I denne artikkelen skal vi lære å kombinere flere kolonner til en kolonne ved hjelp av vba -kode.

Nedenfor øyeblikksbilde:-

Følgende er øyeblikksbildet av krever utdata:-

Vi må følge trinnene nedenfor:

  • Klikk på kategorien Utvikler
  • Velg Visual Basic fra kodegruppen

Skriv inn følgende kode i standardmodulen

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Endre 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 (Rader, Antall, 1). Slutt (xlUp) .Rad

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

Med regneark (shName2)

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

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

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

Slutt med

Slutt med

Neste

Slutt med

Slutt Sub

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

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