Excel vraagje

[Waelvis]

Ik heb een hele waslijst data in 1 kolom. En ik wil die naar 4 kolommen krijgen.

A
B
C
D
A
B
C
D
A
B
C
D

Moet dus worden:

A B C D
A B C D
A B C D

Momenteel kopieer ik die kolom 4x en druk ik telkens 4x op pijltje naar beneden en dan op delete..
Maar dat is enorm tijdrovend.

Iemand een idee hoe dit sneller zou kunnen?

 

[SilentSpring]

Misschien dat je met transponeren iets kan?

TRANSPONEREN, functie - Microsoft Ondersteuning

Syntaxis: TRANSPONEREN(matrix)

support.microsoft.com

 

[Waelvis]

Ik heb het intussen zelf gevonden.

Ik hen gewerkt met vb code

Option Explicit
Sub movetocolumns()
Dim i As Integer, iRow As Integer
Dim arrSource As Variant
iRow = 1
With ActiveWorkbook.Worksheets("Sheet1")
    arrSource = Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
   
    For i = 1 To (UBound(arrSource) - UBound(arrSource) Mod 4) Step 4
        .Cells(iRow, 2) = arrSource(i, 1)
        .Cells(iRow, 3) = arrSource(i + 1, 1)
        .Cells(iRow, 4) = arrSource(i + 2, 1)
        .Cells(iRow, 5) = arrSource(i + 3, 1)
        iRow = iRow + 1
    Next i
    Select Case UBound(arrSource) Mod 4
        Case 1
            .Cells(iRow, 2) = arrSource(i, 1)
        Case 2
            .Cells(iRow, 3) = arrSource(i + 1, 1)
            .Cells(iRow, 4) = arrSource(i + 2, 1)
            .Cells(iRow, 5) = arrSource(i + 3, 1)
        Case Else
    End Select
End With
End Sub