Range("B1").Select
Range("B1").Value="O"
With Selection.Font
.Name = "新明细体"
.FontStyle = "加粗"
.Size = 16
End With
Range("C2").Select
Range("C2").Value="X"
With Selection.Font
.Name = "楷体"
.FontStyle = "常规"
.Size = 14
End With