'Range.NumberFormatLocal 属性
Sub 获取单元格设置数字格式()
For Each Rng In [a1:a3]
Cells(Rng.Row, 2) = Rng.NumberFormatLocal '获取单元格的格式代码
Next Rng
End Sub
Sub 给单元格设置数字格式()
For Each Rng In [a1:a3]
Rng.NumberFormatLocal = "0.00"
Next Rng
End Sub
100.00 |
0.20 |
1200.00 |
Sub 保存1111()
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious)
a = Application.CountA(Worksheets("记录保存").[a:a])
Range([a5], es).Copy