[已解决]用BVA在本单元格内（本列）保留两位小数

龙送农

用BVA在本单元格内（本列）保留两位小数

最佳答案

月排行榜 / 总排行榜

xdragon

2014-1-8 15:21

1. Sub A列保留两位小数()
   
2.    r& = Cells(Rows.Count, 1).End(3).Row
   
3.    For i& = 1 To r
   
4.       Cells(i, 1) = Round(Cells(i, 1), 2)
   
5.    Next
   
6. End Sub

复制代码

数据多的改用数组

跳转到最佳答案楼层

xdragon

1. Sub A列保留两位小数()
   
2.    r& = Cells(Rows.Count, 1).End(3).Row
   
3.    For i& = 1 To r
   
4.       Cells(i, 1) = Round(Cells(i, 1), 2)
   
5.    Next
   
6. End Sub

复制代码

数据多的改用数组

龙送农

xdragon 发表于 2014-1-8 15:21
数据多的改用数组

谢谢老师！如果在C4：T200内，数组怎样写？

xdragon

龙送农 发表于 2014-1-8 16:27
谢谢老师！如果在C4：T200内，数组怎样写？

1. Sub A列保留两位小数()
   
2.   Dim arr(), rng, i&, j%
   
3.   arr = Range("C4:T200").Value
   
4.   For i = 1 To UBound(arr)
   
5.     For j = 1 To UBound(arr, 2)
   
6.       If Len(arr(i, j)) > 0 Then arr(i, j) = Round(arr(i, j), 2)
   
7.     Next
   
8.   Next
   
9.   Range("C4:T200") = arr
   
10. End Sub

复制代码