Dim u As Long
Range("A1", "I5").Value = u
u = Round(u, 4)

四捨五入したいのに全部ゼロになる!