Attribute VB_Name = "testcellalign2"
Sub テスト()
    
    Range("A1:B3").Value = "日本語"
    
    Range("A1:A3").IndentLevel = 1
    Range("B1:B3").IndentLevel = 3
    
    Range("A1:B1").HorizontalAlignment = xlLeft
    Range("A2:B2").HorizontalAlignment = xlRight
    Range("A3:B3").HorizontalAlignment = xlDistributed
            
    
    Range("A5:B7").Value = "日本語"
        
    Range("A5:B5").HorizontalAlignment = xlLeft
    Range("A6:B6").HorizontalAlignment = xlRight
    Range("A7:B7").HorizontalAlignment = xlDistributed
            
    Range("A5:A7").IndentLevel = 1
    Range("B5:B7").IndentLevel = 3
        
End Sub