Как да комбинирате няколко колони в една колона с помощта на VBA в Microsoft Excel

Anonim

В случай, че имате изискване за комбиниране на няколко колони в колона и нямате представа, тогава цялата тази статия е за вас. В тази статия ще научим как да комбинираме няколко колони в една колона, използвайки vba код.

Отдолу моментна снимка:-

Следва моментната снимка на изискващия изход:-

Трябва да следваме следните стъпки:

  • Кликнете върху раздела Разработчик
  • От групата кодове изберете Visual Basic

Въведете следния код в стандартния модул

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Променете името на листа тук

Const shName2 As String = "Sheet2"

Dim arr, arrNames

С работни листове (shName1)

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

За i = 2 To. Клетки (Rows.Count, 1) .End (xlUp) .Row

arr = .Клетки (i, 1). Преоразмеряване (, 4)

С работни листове (shName2)

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

.Офсет (1). Преоразмеряване (UBound (arrNames, 2), 4) = arr

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

Край с

Край с

Следващия

Край с

End Sub

Докато изпълнявате макроса; макросът ще прехвърли данните от множество колони в една колона.

По този начин можем да комбинираме данни от няколко колони в една колона.