[已解决]复制数值有小数时保留小数点后两位

c888

数值复制.rar (6.38 KB, 下载次数: 11)

2011-3-16 12:38 上传

点击文件名下载附件
根据列的数据格式，复制后整数的为整数，小数的保留小数点后两位。谢谢指导！

最佳答案

月排行榜 / 总排行榜

豆丁

2011-3-16 13:00

1. Sub test()
   
2. ActiveWorkbook.PrecisionAsDisplayed = True
   
3. With Range("i6:i26")
   
4.     .NumberFormat = "0.00"
   
5.     .Value = Range("c6:c26").Value
   
6.     .Value = .Value
   
7. End With
   
8. ActiveWorkbook.PrecisionAsDisplayed = False
   
9. End Sub

复制代码

跳转到最佳答案楼层

豆丁

1. Sub test()
   
2. ActiveWorkbook.PrecisionAsDisplayed = True
   
3. With Range("i6:i26")
   
4.     .NumberFormat = "0.00"
   
5.     .Value = Range("c6:c26").Value
   
6.     .Value = .Value
   
7. End With
   
8. ActiveWorkbook.PrecisionAsDisplayed = False
   
9. End Sub

复制代码

豆丁

觉得还是循环好保留好一些