下面我们就来看看,通过规定范围内循环的程序。

动态范围?现状:

Loop through Defined Range in Excel VBA

将工作表上的一个命令按钮并添加以下代码行:

1.首先,我们声明两个Range对象。我们呼吁Range对象RNG以及细胞。

Dim rng As Range, cell As Range

2.我们初始化范围Range对象的RNG( “A1:A3”)。

Set rng = Range("A1:A3")

3.添加对于每个Next循环。

For Each cell In rng

Next cell

注:RNG以及细胞随机选择了这里,你可以使用任何名字。

请记住,是指这些名字在你的代码的其余部分。

4.接着,我们方在该范围内的每个小区。为了实现这一点,下面的代码行添加到循环:

cell.Value = cell.Value * cell.Value

结果当您单击工作表上的命令按钮:

Loop through Defined Range Result

5.如果您要检查在随机选择的范围中的每个单元,只需更换:

Set rng = Range("A1:A3")

搭配:

Set rng = Selection

6.现在,例如选择Range( “A1:A2”)。

Loop through Selection in Excel VBA

结果当您单击工作表上的命令按钮:

Loop through Selection Result