Meerder kolommen onder elkaar toevoegen?

[Mandrake466]

Ik wil in Excel meerdere kolommen met tekst of cijfers onder elkaar zetten in 1 kolom. Met kopiëren plakken duurt het te lang. Ik heb dit gevonden maar ik snap het toch niet helemaal:
http://answers.microsoft....-8dfc-68b599b31bf5?auth=1

Plaatjes zeggen meer dan woorden:
Dit heb ik nu


Zo moet het worden:


Ik heb het maar een kleurtje gegeven zodat het wat duidelijk wordt.

De nieuwe kolom met alle kolommen (onder elkaar) hoeft niet perse op kolom A te komen. Mag ook bv kolom E of anders zijn.

[ Voor 6% gewijzigd door Mandrake466 op 08-09-2016 19:14 ]

[Panzer_V]

Kwestie van e.e.a. in VBA programmeren en er een loopje van maken dat keurig alle kolommen afwerkt. Als je geen kennis hebt van zelf programmeren in VBA heeft het geen nut als ik hier extra uitleg ga geven.

In dat geval rest niets anders dan met de hand e.e.a. kopiëren of de data direct op een het juiste format laten aanleveren.

Kan je wel in VBA programmeren en heb je wat pointers nodig reageer dan even. Dan zal ik je ze geven.

[Mandrake466]

Ik kan helemaal niet programmeren helaas.

Ik dacht dat er misschien een foefje in Excel zelf zou zitten.

[Paultje3181]

Nee, die zit er niet rechtstreeks.Maar hij is redelijk eenvoudig hoor:

Visual Basic:

Dim i as long
Dim LastRow As Long
Dim LastCol As Integer
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
     LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
    End With
 

En vervolgens een do while i <= LastCol waarin je Columns(i).EntireColumn.Copy enColumns(i).EntireColumn.Paste op LastRow+1. Vervolgens LastRow opnieuw bepalen, i =i +1 en loop