Transponener van een complete excellijst

Pagina: 1
Acties:

Vraag


Acties:
  • 0 Henk 'm!

  • Arjan1970
  • Registratie: Februari 2023
  • Laatst online: 10-02-2023
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

Alle reacties


Acties:
  • 0 Henk 'm!

  • Plumo
  • Registratie: Juli 2021
  • Laatst online: 08-04 23:53
Hoewel ik hiervoor zelf Power Query zou gebruiken kun je dit binnen een Excel-sheet doen met de INDEX-functie.

Acties:
  • 0 Henk 'm!

  • Ric00w
  • Registratie: November 2017
  • Laatst online: 15-04 19:56
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.

Acties:
  • 0 Henk 'm!

  • Lustucru
  • Registratie: Januari 2004
  • Niet online

Lustucru

26 03 2016

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

Visual Basic:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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.

De oever waar we niet zijn noemen wij de overkant / Die wordt dan deze kant zodra we daar zijn aangeland


Acties:
  • 0 Henk 'm!

  • Arjan1970
  • Registratie: Februari 2023
  • Laatst online: 10-02-2023
Ik ga er mee aan de slag....kijken of het me gaat lukken.
Zoniet, dan meld ik mij wel weer

Acties:
  • 0 Henk 'm!

  • Arjan1970
  • Registratie: Februari 2023
  • Laatst online: 10-02-2023
Het is gelukt met de macro....thnx
Pagina: 1