With 语句允许你为整个一系列 语句 指定一次 对象 或 用户定义的类型 。 With 语句使您的过程更快地运行并帮助您避免重复键入。

下面的示例在一系列单元格中填入数字 30，应用粗体格式，并将单元格的内部颜色设置为黄色。

Sub FormatRange() 
 With Worksheets("Sheet1").Range("A1:C10") 
 .Value = 30 
 .Font.Bold = True 
 .Interior.Color = RGB(255, 255, 0) 
 End With 
End Sub
您可以嵌套 With 语句来实现更高的效率。 下面的示例将公式插入单元格 A1 中，然后设置字体的格式。
Sub MyInput() 
 With Workbooks("Book1").Worksheets("Sheet1").Cells(1, 1) 
 .Formula = "=SQRT(50)" 
 With .Font 
 .Name = "Arial" 
 .Bold = True 
 .Size = 8 
 End With 
 End With 
End Sub
Visual Basic 概念性主题
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。