Waarde van kolommen over meerdere rijen verdelen, met dezelfde rijwaarde ervoor

[Coachmans81]

Ik ben bezig geweest om bepaalde gegevens die ik in excel heb staan naast elkaar te krijgen. Punt is, dat het aantal rijen niet altijd hetzelfde is, omdat er op verschillende momenten een extractie vanuit een database wordt gemaakt en er dus veranderende gegevens zijn. Echter wil ik wel elke keer dezelfde logica op toepassen. Bijgaan heb ik een excel bijgevoegd, waar een voorbeeld in staat met 3 rijen en 4 kolommen gegevens.
In werkelijkheid zijn het dus een onbekend aantal rijen en 40 kolommen met daarbij behorende waarden.
Ik verwacht dat hier een macro gebruikt zal moeten gaan worden, maar mijn kennis van macro's is te beperkt om dit zelf op te kunnen lossen.

Ik heb een voorbeeld bestandje gemaakt om aan te duiden wat ik bedoel.

Bekijk bijlage Omzetten gegevens excel.xlsx

 

[JeanPaul28]

Dat kan volgens mij met index formule

 

[gast0660]

Hoi,
Welkom op dit forum
Werkt een oplossing met draaitabellen niet voor u? zie voorzetje

 

[Coachmans81]

Dat kan volgens mij met index formule

In dit voorbeeld heb ik niet per Sc nummer een 4-tal regels met daarachter A, B, C,D. Dat is juist de uitdaging en dan de juiste waardes erachter.

 

[Coachmans81]

Hoi,
Welkom op dit forum
Werkt een oplossing met draaitabellen niet voor u? zie voorzetje

Dank je, overigens was ik al eens lid onder andere naam, maar kon ermee niet inloggen
Draaitabel werkt niet, omdat ik de kolomnamen er niet achter krijg, dus in dit geval A, B, C en D.

 

[JeanPaul28]

Post dan eens een uitdagend voorbeeld

 

[snb]

Deze vorm van normalisatie doe je met:

Sub M_snb()
  sn = Blad1.Cells(1).CurrentRegion
  ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1) - 1, 2)
  
  For j = 0 To UBound(sp)
    x = j \ (UBound(sn, 2) - 1) + 2
    y = j Mod (UBound(sn, 2) - 1) + 2
    sp(j, 0) = sn(x, 1)
    sp(j, 1) = sn(1, y)
    sp(j, 2) = sn(x, y)
  Next
    
  Blad1.Cells(20, 1).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

P.S. In je voorbeeldbestand moet je kolom F wel eerst even leegmaken.

 

[Coachmans81]

Deze vorm van normalisatie doe je met:

Sub M_snb()
  sn = Blad1.Cells(1).CurrentRegion
  ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1) - 1, 2)
  
  For j = 0 To UBound(sp)
    x = j \ (UBound(sn, 2) - 1) + 2
    y = j Mod (UBound(sn, 2) - 1) + 2
    sp(j, 0) = sn(x, 1)
    sp(j, 1) = sn(1, y)
    sp(j, 2) = sn(x, y)
  Next
    
  Blad1.Cells(20, 1).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

P.S. In je voorbeeldbestand moet je kolom F wel eerst even leegmaken.

Dat doet inderdaad wat ik zocht. Is het ook nog mogelijk om de nieuwe data in een nieuw tabblad te plaatsen?

 

[snb]

Svp niet citeren (quoten) !
Kan zomaar met:

Sub M_snb()
  sn = Blad1.Cells(1).CurrentRegion
  ReDim sp((UBound(sn) - 1) * (UBound(sn, 2) - 1) - 1, 2)
  
  For j = 0 To UBound(sp)
    x = j \ (UBound(sn, 2) - 1) + 2
    y = j Mod (UBound(sn, 2) - 1) + 2
    sp(j, 0) = sn(x, 1)
    sp(j, 1) = sn(1, y)
    sp(j, 2) = sn(x, y)
  Next
    
  Sheets.Add.Cells(1).Resize(UBound(sp) + 1, UBound(sp, 2) + 1) = sp
End Sub

 

[Coachmans81]

Top, dank je wel!