如何在VBA中添加舍入值？

我想单独添加值，同时舍入值。 假设在12.5之后将是13和18.75将是19.我要加上13 + 18.75。 结果应该是32.我怎样才能在VBA中做到这一点？

这是我的代码：

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("I6:I" & LastRow).Formula = "=DateDif(C6, Today(),""m"")/12" Range("H6:H" & LastRow).Formula = "=DateDif(E6, Today(),""d"")/30+4" Range("J6:J" & LastRow).Formula = "=I6+H6" 

Answer 1

自从你

想要一起添加个别轮值

那么你想要这个公式

 Range("J6:J" & lastRow).Formula = "=ROUND(H6,0)+ROUND(I6,0)" 

Answer 2

尝试下面

 Range("J6:J" & LastRow).Formula = "=CEILING.MATH((I6+H6),1)" 

Answer 3

既然你只是写公式到你的dokument我会build议你这个解决scheme：

 LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("I6:I" & LastRow).Formula = "=DateDif(C6, Today(),""m"")/12" Range("H6:H" & LastRow).Formula = "=DateDif(E6, Today(),""d"")/30+4" Range("J6:J" & LastRow).Formula = "=Round(I6, 0) + Round(H6, 0)" 

我刚刚添加了Round公式与参数[值]和[位数]

请注意1.5 + 1.5将会是4，因为两个值都是四舍五入加法。

希望我能帮上忙。