Table of contents
在本教程中，我们将介绍如何使用 VBA 我们利用循环来防止重复做同样的事情。 在EXCEL中工作时 微软Excel 我们可能会发现，我们必须无数次地执行同样的任务。 我们可以通过使用循环来轻松实现这一目标。 VBA 在这篇文章中，我们将展示 6 在EXCEL中循环浏览行的例子 VBA 我们将在整个例子中使用的循环是' 下一个循环 '.
下载实践工作手册
我们可以从这里下载实践工作手册。
VBA在Range.xlsm中循环浏览行数在Excel中用VBA在范围内循环浏览行的6个例子
为了说明本教程的例子，我们将使用下面的数据集。 该数据集包含以下两个月的销售金额：1. 5名销售人员 .
1.在Range中使用VBA，用Range变量来循环浏览行数
在第一个例子中，我们将使用range变量来循环浏览范围内的行，使用 VBA 我们将在EXCEL中应用一个 VBA 循环在以下数据集。
让我们看看执行这个例子的步骤。
步骤。
- 首先，进入活动的工作表' '。 范围变量 '.
- 此外。 右键点击 并选择选项''。 查看代码 '。 你也可以按 符号 + F11 来打开它。
- 上述动作为该工作表打开了一个代码窗口。
- 此外，在代码窗口中输入代码。
Sub VBA_Loop_through_Rows() Dim w As Range For Each w In Range("B5:D9").Rows w.Cells(1).Interior.ColorIndex = 35 Next End Sub - 然后，点击 运行 或按 F5 来运行该代码。
- 最后，我们会得到如下截图的结果。
阅读更多：Excel VBA：通过范围内的列进行循环（5个例子）。
2.应用VBA在带有数字变量的范围内循环查看行数
在一个范围内循环浏览行的另一个选择是选择变量。 在第二个例子中，我们将应用 VBA 在下面的数据集中，以数字变量为范围循环浏览行。
让我们来看看做这个方法的步骤。
步骤。
- 首先。 右键点击 在名为''的活动工作表上。 数值 '.
- 下一步，选择选项' 查看代码 '.
- 这个动作将为该工作表打开一个代码窗口。 你也可以按 符号 + F11 来打开该代码窗口。
- 在该窗口中输入以下代码。
Sub VBA_Numeric_Variable() Dim w As Integer With Range("B5").CurrentRegion For w = 1 To .Columns.Count .Columns(w).NumberFormat = "$0.00" Next End With End Sub - 之后，点击 运转 或按下 F5 键来运行该代码。
- 最后，我们可以看到下图这样的结果。 上面的代码将数字的格式改为小数点。
阅读更多：用VBA在Excel中的范围内循环浏览行和列（5例）。
Excel VBA在用户选择的范围内循环查看范围内的行
在第三个例子中，我们将使用 VBA 因此，用户将能够在数据集的一个选定区域内应用循环。
让我们看看这个例子的相关步骤。
步骤。
- 在开始时，选择单元格区域( D5:D9 ).
- 下一步。 右键点击 在名为''的活动工作表上。 用户选择 '.选择选项' 查看代码 '.
- 上述命令将打开一个 VBA 你也可以按以下键来打开该代码窗口 符号 + F11 在该空白代码窗口中插入以下代码。
Sub VBA_User_Selection() Dim w As Variant Set xRange = Selection For Each w In xRange MsgBox "cell value = " & w.Value Next w End Sub - 然后，要运行该工作表的代码，请点击 运转 或按下 F5 钥匙。
- 因此，出现一个信息框，显示所选范围的第一个值。
- 此外，如果你点击 认可 它将返回所选范围的第二个值，即单元格 D6 .
- 这个过程将持续到所选范围的最后一个值，即单元格 D9 .
阅读更多。 如何使用VBA在Excel中用数据计算范围内的行数（5个宏）
类似读物
- 如何使用VBA在Excel中从活动单元格中选择范围（3种方法）
- Excel 宏程序：用动态范围对多列进行排序（4种方法）
- 如何在Excel VBA中把范围转换成数组（3种方法）
4.用VBA在动态范围内循环浏览行数
在第四个例子中，我们将应用 VBA 循环浏览动态范围内的行。 这个例子与之前的例子略有不同。 我们将能够为excel工作表定制循环中的范围。 我们将使用以下数据集来说明这种方法。 在以下数据集中，我们将填充范围内的值( B8:C12 )，有一个特定的值。
只要通过以下步骤来执行这个方法。
步骤。
- 首先，输入值 6 在细胞中 B1 和 C 在细胞中 B2 .
- 其次。 右键点击 在活动单元格上，选择选项''。 查看代码 '.
- 该命令将打开一个 VBA 另一种打开代码窗口的方法是按下 符号 + F11 .
- 第三，在该代码窗口插入以下代码。
Sub Dynamic_Range() Dim xRange As String xRange = "B8:" + Worksheets("动态范围").Cells(2, 2).Value + _ CStr(3 + Worksheets("动态范围").Cells(1, 2).Value) For Each Row In Range(xRange) For Each Cell In Row Cell.Value = "$2500.00" Next Cell Next Row End Sub - 现在，要运行该代码，请点击 运行 或按下 F5 钥匙。
- 其结果是，数据集填充的数值是 $2500.00 以下列方式进行。
注意：
在上面的图片中，值 6 代表范围的前两行( B8:B9 ).
- 最后，输入值 9 在细胞中 B1 而不是 6 我们可以在下面的图片中看到结果。
5.插入VBA来循环浏览整个范围内的每一行
在第五个例子中，我们将看到我们如何应用 VBA 这个例子将从选定的一行或多行中找到一个特定值的位置。
因此，让我们看看执行这个例子的步骤。
步骤。
- 首先是。 右键点击 在名为''的活动工作表上。 整行 '.选择选项' 查看代码 '.
- 上述命令打开了一个空白的 VBA 我们也可以通过按以下方式获得这个代码窗口 符号 + F11 .
- 接下来，在该代码窗口插入以下代码。
Sub VBA_Loop_Entire_Row() Dim w As Range For Each w In Range("5:9") If w.Value = "Chris" Then MsgBox "Chris found at " & w.Address End If Next w End Sub - 然后，点击 运行 或按下 F5 键来运行该代码。
- 在上面的图片中，突出显示的值是' 克里斯 '表示我们要搜索的值。 范围值' 5:9 '表示我们将搜索单元格范围内的值( B5:B9 ).
- 最后，一个信息框显示，值为''。 克里斯 '位于单元格中的 B6 .
阅读更多：如何在Excel中为范围内的每一行使用VBA
6.用Excel VBA循环浏览范围内的每第n行
在最后一个例子中，我们将应用 VBA 循环浏览每一个 n-th 在下面的数据集中，我们将对数据范围内的奇数行应用颜色阴影。
因此，让我们看看执行这一方法的步骤。
步骤。
- 首先。 右键点击 在名为''的活动工作表上。 第n行 '.选择选项' 查看代码 '.
- 接下来，它打开一个空白的 VBA 我们也可以通过按以下方式获得这个代码窗口 符号 + F11 .
- 然后，接下来在该代码窗口中输入以下代码。
Sub ShadeRows1() Dim r As Long With Range("B5").CurrentRegion For r = 1 To .Rows.Count If r / 2 = Int(r / 2) Then 'even rows .Rows(r).Interior.ColorIndex = 43 End If Next End With End Sub - 现在，点击 运行 或按下 F5 键来运行该代码。
- 最后，我们可以看到，上面的代码只从我们的数据集中删除了奇数行。
阅读更多：Excel VBA 循环播放范围直到空单元格（4例）。
总结
总而言之，本教程为你提供了 6 在范围内通过行进行循环的例子有 VBA 下载本文中的练习表，测试一下你的技能。 如果你有任何问题，请在下面的方框中留言。 我们的团队会尽快回复你的信息。 请注意更多创造性的内容。 微软Excel 未来的解决方案。
