Attribute VB_Name = "testcellalign3"
Sub テスト()
    
    Range("A1:B2").Value = "日本語"
    
    Range("A1:B2").HorizontalAlignment = xlDistributed
    Range("A1:B1").AddIndent = False
    Range("A2:B2").AddIndent = True
        
End Sub