通过

使用活动单元格

ActiveCell 属性返回一个代表活动单元格的 Range 对象。 可以应用Range对象的任意属性或方法到活动单元格，如下面示例所示。 可以选择一个或多个工作表单元格，仅选定区域的一个单元格可以是ActiveCell。

Sub SetValue() 
 Worksheets("Sheet1").Activate 
 ActiveCell.Value = 35 
End Sub

注意 仅当活动单元格位于的工作表是活动工作表时，才能使用活动单元格。

移动活动单元格

使用 Range .Activate 方法来指定哪些单元格是活动单元格。 例如，以下过程可让 B5 成为活动单元格，然后设置其格式为加粗。

Sub SetActive_MakeBold() 
 Worksheets("Sheet1").Activate 
 Worksheets("Sheet1").Range("B5").Activate 
 ActiveCell.Font.Bold = True 
End Sub

注意 若要选择单元格区域，请使用 Select 方法。 要将单个单元格设置为活动单元格，请使用Activate方法。

使用 Offset 属性来移动活动单元格。 以下过程将文本插入到选定区域中的活动单元格，然后向右移动此活动单元格的一个单元格，而无需更改所选内容。

Sub MoveActive() 
 Worksheets("Sheet1").Activate 
 Range("A1:D10").Select 
 ActiveCell.Value = "Monthly Totals" 
 ActiveCell.Offset(0, 1).Activate 
End Sub

选择包围此活动单元格的单元格

CurrentRegion 属性返回由空白行和列限定的单元格区域或“岛”。 在以下示例中，所选内容扩展以涵盖包含紧邻活动单元格数据的单元格。 此区域随后格式化为 Currency 样式。

Sub Region() 
 Worksheets("Sheet1").Activate 
 ActiveCell.CurrentRegion.Select 
 Selection.Style = "Currency" 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。