Disaggregating data

[afndst]

Hello

Does anyone know VBA code to transform X into Y?

[TABLE="width: 192"]
<colgroup><col width="64" span="3" style="width: 48pt; text-align: right;"> </colgroup><tbody>[TR]
[TD="class: xl64, width: 64, align: right"]X[/TD]
[TD="class: xl64, width: 64, align: right"]F[/TD]
[TD="class: xl64, width: 64, align: right"]Y[/TD]
[/TR]
[TR]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]1[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD="align: right"]3[/TD]
[TD="align: right"]1[/TD]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD="align: right"]3[/TD]
[/TR]
</tbody>[/TABLE]
Regards

António Teixeira

 

[Norie]

Try this.

Sub Disaggregate()
Dim arrIn As Variant
Dim arrOut()
Dim I As Long
Dim J As Long
Dim cnt As Long

    arrIn = Range("A2:B4")
    
    ReDim arrOut(1 To Application.Sum(Application.Index(arrIn, , 2)), 1 To 1)
    
    For I = LBound(arrIn) To UBound(arrIn)
    
        For J = 1 To arrIn(I, 2)
            cnt = cnt + 1
            
            arrOut(cnt, 1) = arrIn(I, 1)
        Next J
    
    Next I
    
    Range("C2").Resize(UBound(arrOut)).Value = arrOut
    
End Sub

 

[afndst]

Hello

It works perfectly.

Thank you very much

Try this.

Sub Disaggregate()
Dim arrIn As Variant
Dim arrOut()
Dim I As Long
Dim J As Long
Dim cnt As Long

    arrIn = Range("A2:B4")
    
    ReDim arrOut(1 To Application.Sum(Application.Index(arrIn, , 2)), 1 To 1)
    
    For I = LBound(arrIn) To UBound(arrIn)
    
        For J = 1 To arrIn(I, 2)
            cnt = cnt + 1
            
            arrOut(cnt, 1) = arrIn(I, 1)
        Next J
    
    Next I
    
    Range("C2").Resize(UBound(arrOut)).Value = arrOut
    
End Sub