Kuidas ühendada mitu veergu üheks veeruks, kasutades Microsoft Excelis VBA -d

Anonim

Kui teil on nõue kombineerida mitu veergu veeruga ja teil polnud aimugi, siis on see artikkel teie jaoks. Selles artiklis õpime, kuidas ühendada mitu veergu üheks veeruks vba -koodi abil.

Allpool olev pilt:-

Järgnev on nõutava väljundi ülevaade:-

Peame järgima järgmisi samme:

  • Klõpsake vahekaarti Arendaja
  • Valige koodigrupist Visual Basic

Sisestage standardmoodulisse järgmine kood

Sub MultipleColumns2SingleColumn ()

Const shName1 As String = "Sheet1" 'Muuda lehe nime siin

Const shName2 As String = "Leht2"

Dim arr, arrNames

Töölehtedega (shName1)

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

I = 2 kuni. Lahtritesse (ridade arv, 1). Lõpp (xlUp). Rida

arr =. Lahtrid (i, 1). Suuruse muutmine (, 4)

Töölehtedega (shName2)

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

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

.Offset (1, 5). Suuruse muutmine (UBound (arrNames, 2)) = Rakendus. Ülekanne (arrNames)

Lõpeta

Lõpeta

Edasi

Lõpeta

End Sub

Makro täitmisel; makro edastab andmed mitmest veerust ühte veergu.

Sel viisil saame kombineerida mitme veeru andmed ühte veergu.