Excel VBA - 圆形功能

Question

我想创建一个宏来编辑我错误的ERP数据包生成的价目表。我目前得到175,42美元等，我想将它们舍入到175,4 $（取决于小数点后二位）。

  J           K
175,42      175,4 
193,76      193,8

dim i as integer
For i = 16 to 25
   Range("K" & i).Select = "=ROUND(J & i;1)"
Next i

所以我认为这应该贯穿K16：K25并使用圆函数，但它似乎给出了一个错误，我猜它是圆函数。

Answer 1

将您的代码更改为

Range("K" & i).Formula = "=ROUND(J" & i & ";1)"

Answer 2

试试这个。 VBA有自己的Round功能。

现在已经过测试并为我工作了！

dim i as integer
For i = 16 to 25
   Range("K" & i) = Round(Range("J" & i), 1) 
Next i