Kako kombinirati više stupaca u jedan stupac pomoću VBA u programu Microsoft Excel

Anonim

U slučaju da imate zahtjev o kombiniranju više stupaca u stupac, a niste imali pojma, onda je cijeli ovaj članak za vas. U ovom ćemo članku naučiti kako kombinirati više stupaca u jedan stupac pomoću vba koda.

Snimak odozdo:-

Slijedi snimak potrebnog izlaza:-

Moramo slijediti korake u nastavku:

  • Kliknite karticu Developer
  • Iz grupe kodova odaberite Visual Basic

Unesite sljedeći kôd u standardni modul

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Ovdje promijenite naziv lista

Const shName2 As String = "List 2"

Dim arr, arrNames

S radnim listovima (shName1)

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

Za i = 2 prema. Ćelijama (redovi.broj, 1) .kraj (xlUp) .red

arr =. Ćelije (i, 1). Promijeni veličinu (, 4)

S radnim listovima (shName2)

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

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

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

Završi s

Završi s

Sljedeći

Završi s

Kraj podm

Dok izvršavate makro; makronaredba će prenijeti podatke iz više stupaca u jedan stupac.

Na ovaj način možemo kombinirati podatke više stupaca u jedan stupac.