如何不通过循环对整个区域向上取整数

散叶

例如：用 Application.Ceiling 方法对Range("A1:C5")区域的数字向上取整数，因为区域块比较多，一次次循环太麻烦。

大灰狼1976

1. Sub test()
   
2. [a1:c5] = [ceiling(a1:c5,1)]
   
3. End Sub

复制代码

散叶

大灰狼1976 发表于 2024-3-22 12:04

不对哦，a1:c5整个区域的值全部变成a1单元格的取整后的数值。

ykcbf1100

供参考。。。

1. Sub test()
   
2.     Dim rng As Range
   
3.     Set rng = Range("A1:C5")
   
4.     Dim cell As Range
   
5.     For Each cell In rng
   
6.         cell.Value = Application.Ceiling(cell.Value)
   
7.     Next cell
   
8. End Sub
   

复制代码

大灰狼1976

散叶 发表于 2024-3-22 12:27
不对哦，a1:c5整个区域的值全部变成a1单元格的取整后的数值。

版本的原因，我这边是OK的，不行的话就循环吧。
估计这个在你那边也一样：[a1:c5] = [-int(-a1:c5)]

散叶

大灰狼1976 发表于 2024-3-22 12:47
版本的原因，我这边是OK的，不行的话就循环吧。
估计这个在你那边也一样：[a1:c5] = [-int(-a1:c5)]

多谢，还是不行，只能循环了。