VBA 更改单元格内容并设置字体颜色和加粗

Sub ChangeCellContent()

' 指定位置单元格
Range('A1').Select

' 修改内容和格式
With Selection
    .Value = '正在筛选科室工单数据中，请不要进行其他操作'
    .Font.Color = vbRed
    .Font.Bold = True
End With

End Sub