Excel VBA中,怎样对一排数字去小数点?我有一张.csv格式的表格,里面有大量的小数,我需要取整.但是csv格式不能保存数字格式,所以我还不能用不显示小数点后n位的办法来处理.我现在只会这样：S

Excel VBA中,怎样对一排数字去小数点?我有一张.csv格式的表格,里面有大量的小数,我需要取整.但是csv格式不能保存数字格式,所以我还不能用不显示小数点后n位的办法来处理.我现在只会这样：S
Excel VBA中,怎样对一排数字去小数点?
我有一张.csv格式的表格,里面有大量的小数,我需要取整.但是csv格式不能保存数字格式,所以我还不能用不显示小数点后n位的办法来处理.
我现在只会这样：
Sub 去小数()
Dim i
i = ActiveCell.Value
ActiveCell.Value = int(i)
End sub
但是这个只能去掉一格的小数点,有没有办法可以选中一个区域,一次性全区掉呢?
看来我没说明白>_

Excel VBA中,怎样对一排数字去小数点?我有一张.csv格式的表格,里面有大量的小数,我需要取整.但是csv格式不能保存数字格式,所以我还不能用不显示小数点后n位的办法来处理.我现在只会这样：S
选中后运行这个宏 Sub aaa () For Each x In Selection If WorksheetFunction.IsNumber(x.Value) Then x.Value = Int(x.Value) End If Next End Sub