Toon posts:

Transponener van een complete excellijst

Pagina: 1
Acties:

Vraag


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


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

  • Ric00w
  • Registratie: November 2017
  • Laatst online: 11:26
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
  • 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


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

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


Tweakers maakt gebruik van cookies

Tweakers plaatst functionele en analytische cookies voor het functioneren van de website en het verbeteren van de website-ervaring. Deze cookies zijn noodzakelijk. Om op Tweakers relevantere advertenties te tonen en om ingesloten content van derden te tonen (bijvoorbeeld video's), vragen we je toestemming. Via ingesloten content kunnen derde partijen diensten leveren en verbeteren, bezoekersstatistieken bijhouden, gepersonaliseerde content tonen, gerichte advertenties tonen en gebruikersprofielen opbouwen. Hiervoor worden apparaatgegevens, IP-adres, geolocatie en surfgedrag vastgelegd.

Meer informatie vind je in ons cookiebeleid.

Sluiten

Toestemming beheren

Hieronder kun je per doeleinde of partij toestemming geven of intrekken. Meer informatie vind je in ons cookiebeleid.

Functioneel en analytisch

Deze cookies zijn noodzakelijk voor het functioneren van de website en het verbeteren van de website-ervaring. Klik op het informatie-icoon voor meer informatie. Meer details

janee

    Relevantere advertenties

    Dit beperkt het aantal keer dat dezelfde advertentie getoond wordt (frequency capping) en maakt het mogelijk om binnen Tweakers contextuele advertenties te tonen op basis van pagina's die je hebt bezocht. Meer details

    Tweakers genereert een willekeurige unieke code als identifier. Deze data wordt niet gedeeld met adverteerders of andere derde partijen en je kunt niet buiten Tweakers gevolgd worden. Indien je bent ingelogd, wordt deze identifier gekoppeld aan je account. Indien je niet bent ingelogd, wordt deze identifier gekoppeld aan je sessie die maximaal 4 maanden actief blijft. Je kunt deze toestemming te allen tijde intrekken.

    Ingesloten content van derden

    Deze cookies kunnen door derde partijen geplaatst worden via ingesloten content. Klik op het informatie-icoon voor meer informatie over de verwerkingsdoeleinden. Meer details

    janee