Attribute VB_Name = "testcellalign6"
Sub テスト()
    
    Range("A2:D2").Value = "日本語"
    
    Range("A2").Orientation = -90
    Range("B2").Orientation = 0
    Range("C2").Orientation = 90
    Range("D2").Orientation = xlVertical
        
End Sub