办公软件VBA学习(With)

Sub WithTest2()
    With ThisWorkbook.Worksheets(1).Range("A1")
        .Clear
        .Value = "Excel Home"
        With .Font
            .Name = "宋体"
            .Size = 16
            .Bold = True
            .ColorIndex = 3
        End With
    End With
End Sub