Attribute VB_Name = "testcellalign4"
Sub テスト()
    
    Range("A1:A3").Value = "宮里藍、史上最年少で初優勝。日本女子プロ"
    
    Range("A2").WrapText = True
    Range("A3").ShrinkToFit = True
        
End Sub