Excel VBA Diagonale Sortierung

Question

Click to view image

Guten Tag! Das Bild, das ich angehängt habe, enthält die Sortierung, die ich für meine Daten haben möchte. Was ist der VBA-Code dafür?

Der Code, den ich verwenden ist:

For b = 1 To 30 
    If a < 2 Then 
     Cells(b, a).Value = 1 
     a = a + 1 
    Else 
     Cells(b, a).Value = 1 
     a = 1 
    End If 
Next b 

Es kann nur sort für 2 Zeilen, bevor es zurücksetzt. Wie erweitere ich es wie das im Bild? Danke!

Answer 1

So:

For b = 1 To 30 
    For a = 1 To 3 
    If a = 1 Then 
     Cells(b, a).Value = 1    
    Elseif a = 2 Then 
     Cells(b, a).Value = 1 

    Else 
     Cells(b, a).Value = 1    
    End If 
    Next a 
Next b