各位大佬好，想求助一个公式写法。请问如何 “将目标单元格数值向上取舍为25*10的n次方” 。万分感谢

求助ing

感觉是用CEILING（）吗？自己用了一下又没弄明白

Option Explicit
Sub 定位区间()
　Dim a, i, j, pos(20)
　For i = 0 To UBound(pos)
　　pos(i) = 25 * 10 ^ (i - 10)
　Next
　a = [a1].CurrentRegion.Offset(1).Resize(, 2).Value
　For i = 1 To UBound(a, 1) - 1
　　For j = 1 To UBound(pos)
　　　If a(i, 1) <= pos(j) Then a(i, 2) = pos(j): Exit For
　　Next
　Next
　[a2].Resize(UBound(a) - 1, 2) = a
End Sub