Vba：如何选择活动单元格中的范围

您可以在 VBA 中使用以下方法从当前活动单元格中选择 Excel 中的一系列单元格：

方法 1：从活动单元格中选择较低范围

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

该宏将选择从活动单元格到列中最后使用的单元格的范围。

方法 2：从活动单元格中选择范围向上

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

该宏将选择从活动单元格到列中第一个使用的单元格的范围。

方法 3：选择活动单元格右侧的范围

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

该宏将选择从活动单元格到同一行右侧最后使用的单元格的范围。

方法 4：选择活动单元格左侧的范围

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

该宏将选择从活动单元格到同一行左侧最后使用的单元格的范围。

以下示例展示了如何在 Excel 中的以下工作表中使用每种方法：

示例 1：从活动单元格中选择较低的范围

假设当前选择了单元格C3 。

我们可以创建以下宏来选择从活动单元格到列中最后使用的单元格的范围：

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

当我们运行这个宏时，会自动选择以下范围：

请注意，现在选择了从单元格C3到列中使用的最后一个单元格的范围。

示例 2：从活动单元格向上选择范围

假设当前选择了单元格C3 。

我们可以创建以下宏来选择从活动单元格到列中使用的第一个单元格的范围：

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

当我们运行这个宏时，会自动选择以下范围：

请注意，现在选择了从单元格C3到列中使用的第一个单元格的范围。

示例 3：选择活动单元格右侧的范围

假设当前选择了单元格B2 。

我们可以创建以下宏来选择同一行右侧从活动单元格到最后使用的单元格的范围：

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

当我们运行这个宏时，会自动选择以下范围：

请注意，现在选择了从单元格B2到同一行右侧最后使用的单元格的范围。

示例 4：选择活动单元格左侧的范围

假设当前选择了单元格D6 。

我们可以创建以下宏来选择从活动单元格到同一行左侧最后使用的单元格的范围：

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

当我们运行这个宏时，会自动选择以下范围：

请注意，现在选择了从单元格D6到同一行左侧最后使用的单元格的范围。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何查找最后使用的行
VBA：如何查找最后使用的列
VBA：如何插入多行