Excel VBA学习笔记(六):VBA中的循环语句

bigegpt 2024-12-25 10:24 74 浏览

介绍四种循环语句的语法：

一、For 循环语法： For 变量=数值 to 数值 Step 步值

“需要执行的语句"

Next 变量

Next 后面的”变量名“，经常被省略。Step 步值，省略不写的情况下，变量每次循环后，数值增加1；写上Step 2，那么每次循环变量+2。步值也可以为负数，如Step -1 ，变量在赋值时，先赋值大数值，往小方向变化。

For i = 10 To 2 Step -1     '倒序循环
  Set Rng = Cells(i, n)           ' i 为行号，从下往上，i 值不断减小
  If Rng = Rng.Offset(-1) Then   '当前单元格与其上单元格相同就合并单元格
    Rng.Offset(-1).Resize(2).Merge
  End If
Next

二、For Each 循环：For Each 变量 IN 对象集合

“需要执行的语句"

Next 变量

"IN 对象集合"，因为是在“对象集合”中循环，这里的变量不同上面的FOR循环语句，上面的FOR循环语句中的变量代替数值；这里的变量可能是某个值，也可能是对象（通常的对象类型：单元格、工作表）。

示例1、变量代表数组中的某个值

For Each pa In Array("[一-龢]{2,4}(?=支)", "[一-龢]{2,4}(?=办)")
        .Pattern = pa
    For i = 1 To UBound(arr)
    If .test(arr(i, 1)) Then
      arr(i, 1) = .Execute(arr(i, 1))(0)
    End If
    Next i
Next pa

此示例中的变量"pa" 不能声明为As String，会报错。就不要用DIM声明。

示例2、变量为单元格

dim rng as Range     '声明为单元格
// 依据 f2:f23 单元格的内容生成多个工作表，名称就是f2:f23 单元格的内容
  For Each rng In [f2:f23]    'rng 单元格对象
    Worksheets.Add after:=Sheets(1)  '增加一张工作表，放在第1张工作表之后
    Sheets(2).Name = rng
  Next rng       '可只写 Next

For 或 For Each 都是限定范围的循环语句，Do ... Loop 循环属于无限定范围的循环语句（无限循环）。为了使循环有意义，需加条件让循环退出，于是就有

三、Do While 条件表达式（表达式的值要为逻辑值，为TRUE才执行循环）

“需要执行的语句"

LOOP

注意，循环体里的语句，必定会对条件产生影响，导致条件能不成立，不然就成死循环了。

四、 Do

“需要执行的语句"

LOOP Until 条件（表达式的值要为逻辑值，为TRUE就会退出循环）

同样要注意避免产生死循环。

While 与 Until 都可写在 DO 的后面或是 Loop 后面，功效是一样的。只是通常写法：While写在Do后，Until 写在 Loop后。

r语言dim函数

Excel VBA学习笔记(六):VBA中的循环语句

相关推荐

idea本地配置连接远程hadoop集群的一些网络问题解决汇总

Ceph运维手册(基于P版本)

无缓存不行?例行升级的入门级阿斯加特AN2 SSD装机点评

大数据开发前要做什么准备?8台Hadoop服务器进行集群规划前配置

Tensorflow分类loss函数总结 tensorflow绘制loss曲线

R语言学习笔记(七) -离散型数据的模型预测2

iOS Runtime详解

7 个对 Java 意义重大的性能指标，你知道几个?

PHP 远程调试最佳实践

Laravel框架使用图片处理简单教程