缩短VBA中的数字

Question

我有一个包含

等数字的文档

4100.0
4201.0
4300.1

但是我需要它们的格式为

410
420
430

我正在尝试在VBA中编写一个全局excel宏（第一次使用VBA）来执行此操作，但似乎遇到了障碍。这就是我到目前为止所做的：

Private Sub CommandButton1_Click()

Dim ItemNum As Range

For Each num In ItemNum


End Sub

ItemNum.NumberFormat（“000”）

我已经想出了如何走过一个定义的范围，我找到了range.numberformat，但是只删除了小数，而不是最终的0/1。我也无法弄清楚如何让所有人都可以访问它我的电子表格。

还有其他建议吗？