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