​​VBA实例：批量修改Excel文件字体！

转自：michaelxwang

​

'设置Excel工作簿字体为Times New Roman，大小为10

Sub opena()
Dim sht As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open Filename:="C:\test.xlsx"

For Each sht In Sheets
    sht.Activate
    Cells.Select
    With Selection.Font
        .Name = "Times New Roman"
        .Size = 10
    End With
    Range("a1").Select
    
Next
Sheets(1).Select
Range("a1").Select

ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox ("完成")
End Sub

快来试试吧。

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；