Sub 数字にカンマを入れる()

    Range("A1").Style = "Comma [0]"
    
End Sub