Transponener van een complete excellijst

[Arjan1970]

Mijn vraag gaat over het Transponeren binnen Excel (Microsoft 365 voor bedrijven).

Ik heb een kolom met de nodige vragen en antwoorden (betreft een excelllijst met examenvragen).
De eerste cel is de vraag, de cel daaronder staat antwoord A, de cel daaronder staat antwoord B, de cel daaronder staat antwoord C, de cel daaronder staat antwoord D, De cel daaronder is leeg.
Vervolgens staat daaronder de volgende vraag met de nodige antwoorden en een lege cel en dit alles herhaalt zich.

Nu wil ik alle vragen onder elkaar krijgen (zonder lege rijen) met achter de vraag in een aparte cel het antwoord A, daarnaast antwoord B, daarnaast antwoord C en daarnaast antwoord D.

E.e.a. kan uiteraard handmatig, maar om op deze manier dik 4000 vragen te bewerken vind ik nogal omslachtig, wellicht dat het automatisch kan gaan.

Ik verneem graag jullie hulp

[Plumo]

Hoewel ik hiervoor zelf Power Query zou gebruiken kun je dit binnen een Excel-sheet doen met de INDEX-functie.

[Ric00w]

Ik zou eerst een 'Remove duplicates' doen, deze verwijderd alle lege rijen.
Vervolgens kun je in Kolom B een IF-Functie bouwen die alle inhoud van de Even rownummers weergeeft.
In Kolom C maak je een functie die alle oneven rownummers weergeeft.
Kopieer de waarden uit Kolom B naar D en De waarden uit Kolom C naar E, maar dan 1 cel hoger.
Eventueel kun je dan opnieuw alle lege rijen verwijderen.

[Lustucru]

Powerquery, index, of als je weet hoe je een macrootje moet maken een klein stukje VBA:

Visual Basic:

Option Explicit

Sub SortOfTranspose()
    Dim Source As Range
    Dim Cell As Range
    Dim OutputRow As Integer
    Dim OutputColumn As Integer
    
    On Error GoTo nop
    Set Source = Range("A1:A47")
    OutputRow = 1
    OutputColumn = 1
    
    For Each Cell In Source
        If Cell.Value = "" Then
            OutputRow = OutputRow + 1
            OutputColumn = 1
        Else
            Cells(OutputRow, OutputColumn) = Cell.Value
            OutputColumn = OutputColumn + 1
            Cell.Value = ""
        End If
    Next Cell
    
    
    Exit Sub
nop:
    MsgBox Err.Description
    
End Sub

Pas hier het bronbereik aan naar wens en eventueel de startrij en kolom van de output en minder dan een seconde later is het klaar.

[Arjan1970]

Ik ga er mee aan de slag....kijken of het me gaat lukken.
Zoniet, dan meld ik mij wel weer

[Arjan1970]

Het is gelukt met de macro....thnx