|
龙送农 发表于 2014-1-8 16:27 ![](static/image/common/back.gif)
谢谢老师!如果在C4:T200内,数组怎样写? - Sub A列保留两位小数()
- Dim arr(), rng, i&, j%
- arr = Range("C4:T200").Value
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If Len(arr(i, j)) > 0 Then arr(i, j) = Round(arr(i, j), 2)
- Next
- Next
- Range("C4:T200") = arr
- End Sub
复制代码 |
|