vba：数字格式‘Range.NumberFormatLocal 属性

'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 W