Als je een vereiste hebt voor het combineren van meerdere kolommen tot een kolom en je had geen idee, dan is dit hele artikel iets voor jou. In dit artikel gaan we leren hoe je meerdere kolommen kunt combineren tot één kolom met behulp van vba-code.
Van onderstaande momentopname: -
Hieronder volgt de momentopname van de vereiste uitvoer: -
We moeten de onderstaande stappen volgen:
- Klik op het tabblad Ontwikkelaar
- Selecteer in de codegroep Visual Basic
Voer de volgende code in de standaardmodule in:
Sub MultipleColumns2SingleColumn()
Const shName1 As String = "Blad1" 'Wijzig de bladnaam hier
Const shName2 As String = "Blad2"
Dim arr, arrNamen
Met werkbladen (shName1)
arrNames = .Range("F1", .Cells(1, Columns.Count).End(xlToLeft))
For i = 2 To .Cells(Rijs.Count, 1).End(xlUp).Rij
arr = .Cellen(i, 1).Resize(, 4)
Met werkbladen (shName2)
Met .Cells(Rows.Count, 1).End(xlUp)
.Offset(1).Resize(UBound(arrNames, 2), 4) = arr
.Offset(1, 5).Resize(UBound(arrNames, 2)) = Application.Transpose(arrNames)
Eindigt met
Eindigt met
Volgende
Eindigt met
Einde sub
Terwijl u de macro uitvoert; de macro zal de gegevens van meerdere kolommen naar een enkele kolom overbrengen.
Op deze manier kunnen we gegevens uit meerdere kolommen combineren in een enkele kolom.
