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