如果我们要对A1单元格的字体进行设置，可以用以下程序代码：

Sub FontSet()

Worksheets("sheet1").Range("A1").Font.Name = "宋体"

Worksheets("sheet1").Range("A1").Font.Size = 12

Worksheets("sheet1").Range("A1").Font.Bold = True

Worksheets("sheet1").Range("A1").Font.ColorIndex = 7

End Sub

    上面有很多重复的字段，我们可以改用With语句进行编写： 

Sub FontSet()

With Worksheets("sheet1").Range("A1").Font

    .Name = "宋体"

    .Size = 12

    .Bold = True

    .ColorIndex = 10

End With

End Sub


    合理合用With语句，可以减少代码的输入量，节省时间，提高编程效率。

    欢迎关注公众号：黑白鱼001