Excel VBA中,怎样对一排数字去小数点?

发布网友发布时间：2022-05-10 02:56

共5个回答

热心网友时间：2023-10-24 18:59

选中后运行这个宏

Sub aaa ()
For Each x In Selection
If WorksheetFunction.IsNumber(x.Value) Then
x.Value = Int(x.Value)
End If
Next
End Sub

热心网友时间：2023-10-24 19:00

存为正常的EXCEL格式xls
然后用int即可啊。
最后再转存为csv

热心网友时间：2023-10-24 19:00

Sub 去小数()
Dim i As Range
For Each i In Sheet1.UsedRange
If i.Value <> 0 Then
i.Value2 = Int(i.Value)
End If
Next
End Sub

热心网友时间：2023-10-24 19:01

可以呀，把代码改一下
Sub 去小数()
Dim i
dim g as range
g=range("a1:c20")
for each i in g
i = int(i)
next
End sub

其中，
g=range("a1:c20")
后面的区域就是你要选定的区域，你可以根据实际情况自己修改

热心网友时间：2023-10-24 19:02

一排或一排就有办法
可以先计算出个数来,然后用FOR语句,逐个取整.
不规则的区域,想不出好办法.