作者：乔山办公网日期：
返回目录：excel表格制作
1、四舍五入到整数还是保留几位小数？
2、选择的数是什么？在同一工作表中的吗，又粘贴到哪里？
命令按钮代码如下：
Private Sub CommandButton1_Click()
ActiveCell = Int(ActiveCell)
End Sub
那一zd列呢版？权
Sub a()
Dim myObject As Range, myCollection As Range
Set myCollection = Range("A:A")
For Each myObject In myCollection
If myObject <> "" And myObject.Value <> Int(myObject.Value) Then myObject.Value = Round(myObject.Value, 0)
Next
End Sub