返回列表 上一主題 發帖

無條件捨去問題

如確實按無條件捨去處理, 不能用 round
  1. Sub zz()
  2. Dim a, c
  3. a = [a1].CurrentRegion
  4. For Each c In a
  5.     Debug.Print Int(c * 100) / 100
  6. Next
  7. End Sub
複製代碼

TOP

        靜思自在 : 【行善要及時】行善要及時,功德要持續。如燒開水一般,未燒開之前千萬不要停熄火候,否則重來就太費事了。
返回列表 上一主題