excel学习库-VBA入门——如何使用for循环进行遍历

我们来接着学习VBA的循环语句。

今天跟大家分享按次数循环进行遍历的用法。按次数循环语句格式如下：

for 变量=初值 TO 终值

循环体(重复执行的内容)

next

来看个实例：

在下列成绩表中语文、数据、英语中只要其中有一科及格就评定为合格，否则就不合格。

代码如下：

Sub VBAfor语句()

Dimi As Integer '声明变量 i

For i = 3To 12 '循环从3到12 ，如上图第一位学生成绩在第3行，最后一个学生在第12行，这样就从3行到12行遍历。
If Range("d" & i) >=60 Or Range("e" & i) >= 60 Or

Range("f" &i) >= 60 Then Range("g" &i) = "合格"

Else Range("g" & i) = "不合格"

End If

上面黄色部分通过IF 结合 OR 判读当前行学生的三个成绩至少有一个>=60就“合格”，否则就“不合格”

End Sub

上面程序如果学生不断追加，那么FOR 语句的终值就必须一直改。这时候我们就可以使用count 函数来获取可能变动的实际行数。count 函数在VBA 怎么写呢？不会没关系，录制下宏就有了。如下图：

我们在D1单元格输入count(a:a) 并录制宏，就得到上图右侧的VBA代码。

Range("D1").Select

ActiveCell.FormulaR1C1 ="=COUNT(C[-3])"

这样D1 的值就可以随着学生的增减自动变动了。因为我们使用count(a:a)所以只对A列数值计数所以得到11 实际最后一个学生是在12行，没关系我们只要把D1+1就可以了。这样一来，上面的For 语句的终值就可以改成 D1+1 。

最终我们就可以把上面的 For i = 3 To 12

改成 For i = 3 To range("d1")+1

代码如下：

Sub VBAfor语句()

Dim i As Integer '声明变量 i

Range("D1").Select

ActiveCell.FormulaR1C1 = "=COUNT(C[-3])"

上面两句这部分是通过录制宏得来的，这两句得到了循环要用的终值。事实上这句可以写的更精简，有更好的写法，以后我们再聊吧，目前让初学者用录的方法是最简单实用的。有同学要问直接在D1单元格写函数就可以了。没错，但写在程序中可以保证D1单元格总是写上count(A:A),不怕D1的函数被删改。

另外也是要通过本案例让大家懂得录制宏获得代码，用到自己编的程序中。

For i = 3 To range("d1")+1 '循环从3到D1单元格值+1 ，如上图第一位学生成绩在第3行，这样就从3行到D1单元格值+1行遍历。
If Range("d" & i) >= 60 Or Range("e" & i) >= 60 Or Range("f" & i) >= 60 Then Range("g" & i) = "合格"

Else Range("g" & i) = "不合格"

End If

上面黄色部分通过IF 结合 OR 判断当前行学生的三个成绩至少有一个>=60就“合格”，否则就“不合格”

End Sub

总结：

1。For 初值 TO 终值 ...Next 当中的初值和终值都是可以使用可变动的单元格或变量来表示。这样可以提高程序的灵活性。

2。对于初学者来说，不懂的部分代码使用录制宏的方式获取VBA代码是最高效的方法

今天就跟大家分享到这了，感谢各位小伙伴的支持请大家帮忙点赞、转发、收藏、在看，我将创作更多更好的内容分享给大家关注我的公众号excel应用与开发 。

一	二	三	四	五	六	日
						1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30	31

excel学习库

excel表格_excel函数公式大全_execl从入门到精通

VBA入门——如何使用for循环进行遍历2024-02-23 23:25:16