VBA Range数值格式
Range.NumberFormat设置数值格式:常规、文本、数值、日期、等。
Range.NumberFormatLocal 设置本地化格式,通常用于日期显示的本地化。
示例
Sub sub3()
  Dim ws As Worksheet
  Set ws = Workbooks.Item("关关教程1.xlsx").Worksheets.Item("Sheet1")
  Dim r As Range
  '@表示文本类型
  ws.Range("C8").NumberFormat = "@"
  '设置为两位小数
  ws.Range("C9").NumberFormat = "0.00"
  '日期格式设置中文年月日
  ws.Range("C10").NumberFormatLocal = "yyyy""年""m""月""d""日"""
End Sub
 
运行效果:
三个单元格原来显示

执行上述代码,格式化后显示
