Excel VBA對角線排序

Question

Click to view image

美好的一天！ 我附加的圖像包含我想要的數據的排序。 這是什麼VBA代碼？

我使用的代碼是：

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 

它只能排序2排它重置之前。 如何展開圖像中的圖像？ 謝謝！

Answer 1

喜歡分享：

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