本人财务岗位，非专业编程人员，请勿以专业看待哈，能用无BUG即可！均是我在工作中常用的补充功能，且具有通用性的功能。基于实用性而编写。不见理论，只需要你会复制粘贴就行。看完第一篇文章，结合之后更新的内容即可上手。

这篇文字我会不定时更新实用的功能

1、文本格式整理—— 一键调整格式

总作用：整张表使用了的区域，字体调整为微软雅黑9号字体，首行筛选状态且加粗字体

Sub 文本格式整理()
Excel.Application.ScreenUpdating = False
    ActiveSheet.UsedRange.Select
    With Selection.Font
        .Name = "微软雅黑"
        .Size = 9
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
    Rows("1:1").Select
    Selection.Font.Bold = True
    If ActiveSheet.AutoFilterMode Then
1
    Else
        Rows("1:1").AutoFilter
    End If
    Range("A1").Select
Excel.Application.ScreenUpdating = ture
End Sub

图示：