代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()
  Dim myRange As Range
  Set myRange = Range("A1:F3")    '指定任意单元格区域
  MsgBox "下面将单元格区域 " & myRange.Address(False, False) _
    & " 的格式删除。"
  myRange.ClearFormats  '删除格式
  MsgBox "下面将单元格区域 " & myRange.Address(False, False) _
    & " 自动套用<会计1>的格式。"
  myRange.AutoFormat xlRangeAutoFormatAccounting1
  Set myRange = Nothing
End Sub

注释：

设置单元格格式不只可以设置为会计，日期等均可以设置，根据既定的格式更改代码，变成自己所需要的格式内容。

VBA编辑神器放送

VBA编程神器 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用

私信回复 代码助手 即可获得

VBA密码破解 代码混淆保护加密 代码库输入提示

本提示数据库可完全自定义!

本人微信公众号 EXCEL880 每天分享Excel实战技术私信回复 教程 可领取7天免费教程