Sub 小数点を表示する_四捨五入()

    Range("A1") = Round(Range("A1"), 1)

End Sub