缩短VBA中的数字

我有一个文件，有数字如

4100.0 4201.0 4300.1 

但我需要他们的格式

 410 420 430 

我想在VBA（第一次使用VBA）写一个全球性的Excelmacros来做到这一点，但似乎已经达到了路障。 这是我迄今为止：

 Private Sub CommandButton1_Click() Dim ItemNum As Range For Each num In ItemNum End Sub 

ItemNum.NumberFormat（“000”）

我已经想出了如何走过一个定义的范围，我发现range.numberformat但只能摆脱小数，而不是最后的0/1。我也不知道如何使它可以访问我所有的电子表格。

还有其他build议吗？