Kako združiti več stolpcev v en stolpec z uporabo VBA v programu Microsoft Excel

Anonim

Če imate zahtevo po združevanju več stolpcev v stolpec in niste imeli pojma, je ta članek za vas. V tem članku se bomo naučili, kako združiti več stolpcev v en stolpec s kodo vba.

Posnetek od spodaj:-

Sledi posnetek zahtevanega izhoda:-

Slediti moramo naslednjim korakom:

  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

V standardni modul vnesite naslednjo kodo

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Tukaj spremenite ime lista

Const shName2 As String = "Sheet2"

Dim arr, arrNames

Z delovnimi listi (shName1)

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

Za i = 2 Za. Celice (vrstice. Število, 1). Konec (xlUp).

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

Z delovnimi listi (shName2)

Z .Cells (vrstice.Count, 1). End (xlUp)

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

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

Končaj s

Končaj s

Naslednji

Končaj s

End Sub

Med izvajanjem makra; makro bo prenesel podatke iz več stolpcev v en sam stolpec.

Na ta način lahko združimo več podatkov o stolpcih v en sam stolpec.