Excel中使用VBA你不可不知道循环语句，干货分享
liebian365 2024-11-16 23:13 48 浏览 0 评论
概述
如果在VBA程序中，需要多次执行同一任务（即重复同一段代码），则可以使用循环来完成。
VBA循环类型包括：
- For循环For Loop
- Do While循环Do While Loop
- Do Until循环Do Until Loop
下面分别讨论每种循环类型。
For循环
For循环采用两种不同的形式，即For ... Next循环和For Each循环。
For ... Next循环
For ... Next循环使用一个变量，该变量遍历指定范围内的一系列值，对每个值执行循环体中的代码，如下所示：
示例中的For ... Next循环设置变量i的值为1、2、3、…、10，并且对于每一个值，都执行同一段代码。因此，在上面的例子中，循环将数组iArray的每个元素值加到变量Total中。
上面的示例中没有指定步长，因此循环从1增长到10的过程中，使用默认步长1。但是，也可以使用不同的步长来执行循环，使用Step关键字实现这一功能，如下所示：
在上面的示例中，步长被指定为0.1，因此每次循环时，变量d的值依次设置为0.0、0.1、0.2、0.3、…、9.9、10.0。
也可以使用负步长，如下所示：
在上面的示例中，步长被指定为-1，因此循环将变量i依次设置为值10、9、8、…，1。
For Each循环
For Each循环类似于For ... Next循环，但是For Each循环遍历一组对象中的每个对象，而不是获取变量的一系列值。例如，以下代码使用For Each循环列出当前Excel工作簿中每个工作表：
Exit For语句
Exit For语句用于提前退出For循环，该语句将导致VBA跳出循环并继续执行循环体外的下一行代码。例如，在数组中搜索特定值时，使用循环检查数组的每个元素，一旦找到目标值，就不需要再继续搜索，此时可以提前退出循环。
下面的示例Exit For语句的使用，代码循环遍历100个数组元素，并将每个元素与值dVal进行比较，如果找到dVal值，循环将提前退出：
Do While循环
当指定的条件求值为True时，Do While循环重复执行一段代码。如下子程序所示，Do While循环用于打印Fibonacci序列的所有值，直到当前值大于1000时停止循环：
同以上可以看出，条件iFib_Next<1000在循环开始时被测试。因此，如果iFib_Next的第一个值大于1000，则根本不会执行循环。
还可以把Do While循环的条件测试放在循环的末尾，这将导致循环至少执行一次，而不管条件最初的计算结果是否为True。
以下代码显示了Do While循环的另一种形式，在循环末尾测试条件：
Do Until循环
Do Until循环与Do While循环非常相似，重复执行一段代码，直到指定的条件计算为True。如下子程序所示，使用Do Until循环从工作表a列的所有单元格中提取值，直到遇到空单元格为止：
在上面的例子中，由于条件IsEmpty(Cells(iRow，1))处于Do Until循环的开始，因此只有遇到的第一个单元格非空时，才会进入循环。
与Do While循环相同，如果希望至少进入一次循环，而不管初始条件如何，在这种情况下，条件可以放在循环的末尾，如下所示：
相关推荐
- 深度解密epoll 如何工作的?（epoll基本处理流程）
-
epoll...
- 大乐透第19082期:头奖开出7注1000万分落六地 奖池41亿元
-
2019年7月17日晚开奖的体彩超级大乐透第19082期开奖号码为：前区06、18、20、21、31，后区03、04。本期大乐透前区号码五区比为1:0:3:0:1，二区和四区号码没有给出。当期前区和值...
- 【开奖】4月27日周六:福彩、体彩（2021年4月27日体彩开奖结果）
-
4月27日开奖福彩3D第2019110期：61222选5第2019110期：0812202122排列3第19110期：303排列5第19110期：30305大乐透第19047期：0304...
- “红狒狒”落户哈尔滨铁路局（哈尔滨铁路红肠）
-
这几天，“红人”“红狒狒”在牡丹江机务段可引起了不小的轰动，众粉丝争相与其拍照留念，在该段人气爆棚！“红狒狒”到底何许人也？“红狒狒”，中文名：和谐3D型电力机车；绰号：红狒狒、番茄；制造商：大连机...
- 2D、3D、2.5D，做游戏还是搞噱头?玩家都晕了
-
前言游戏类型就像某种潮流，一种流行罢，另一种接棒成为主流。前两年的新作大多以“开放世界”为标签，在追求纯沙盒的过程中打造出一些细致的分类，比如说“类GTA沙盒”。诚然，纯碎的沙盒游戏并不多见，业内只有...
- 《战神4》PC版宣传片发布 GTX 1070即可60帧畅玩
-
在今年10月的时候索尼PlayStation官方正式宣布圣莫尼卡2018年的《战神4》将于2022年1月14日推出PC版本，官方在今天公布了一段PC版宣传片，并且公开了游戏的配置需求。下面让我们一起来...
- 男星深情好丈夫形象崩塌，半夜搂美女坐大腿，举止亲密
-
近日，于晓光被拍到深夜在酒吧玩，结束后与一名女子一起上车离开。上车后，女子直接坐在了他腿上，他也顺势搂着美女，美女满脸笑容地坐在他腿上玩手机离开。可能有人会好奇，于晓光是谁呢？于晓光是韩国艺人秋瓷炫的...
- d3d12dll丢失怎么修复?d3d12dll加载失败怎么解决?
-
d3d12.dll丢失怎么修复？d3d12.dll加载失败怎么解决？很多朋友想要运行游戏的时候都会遇到这个问题，这种情况该怎么办呢？今天系统之家小编给朋友们讲讲具体的解决方法，操作其实还蛮简单的。...
- 许多玩家反馈《生化4RE》PC一直崩溃 无法进入游戏
-
今日（3月24日），卡普空《生化危机4：重制版》正式发售，然而有部分PC玩家遇到了游戏崩溃等问题。很多玩家在贴吧发帖称游戏遇到了严重的崩溃问题，且经常反复，报错代码普遍为FatalD3Derror...
- 微软正式推出适用于WSL Linux的D3D12 GPU视频加速技术
-
今天，微软正式向WindowsSubsystemforLinux(WSL)用户发布了Direct3D12GPU视频加速支持。在微软通过WSL允许在Linux下使用Open...
- 《怪物猎人:崛起》曙光系统报错“Fatal d3d error”的解决办法
-
《怪物猎人：崛起》曙光系统报错“Fatald3derror”的解决办法不少小伙伴反应《怪物猎人：崛起》DLC曙光预载以后打不开游戏，出现了Fatald3derror类似的错误代码，这类问题的解...
- Mac+双屏，前端程序员的专业配置 - Loctek 乐歌 D3D 双屏电脑显示器支架
-
做FE也有一段日子了，电脑屏幕每天在设计稿、浏览器、IDE、即时通讯工具、Terminal、邮箱之间切换。虽然mac的工作区带来了很多灵活，但是依然略显不足。于是入手支架，把公司配的电脑和显示器发挥起...
- RPC 的原理和简单使用（rpc详解）
-
RPC的概念RPC，RemoteProcedureCall，翻译成中文就是远程过程调用，是一种进程间通信方式。它允许程序调用另一个地址空间（通常是共享网络的另一台机器上）的过程或函数。在调用的...
- 大厂开源的golang微服务rpc框架 — kitex
-
提前rpc估计所有的开发同学都知道，不知道的也无所谓，毕竟我也好几年没用了，今天带大家在复习一下。RPC(RemoteProcedureCall)：远程过程调用，...
- 干货!一文掌握Protobuf所有语言所有用法，快收藏
-
说实话，Protobuf这个库，让人相见时难别亦难，东风无力百花残，每次等到要用它的时候，总感觉还没有完全掌握它的用法，而实际上等去百度或者谷歌的时候，教程都是多么的凌乱不堪。学会它，最直接关系到的，...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- wireshark怎么抓包 (75)
- qt sleep (64)
- cs1.6指令代码大全 (55)
- factory-method (60)
- sqlite3_bind_blob (52)
- hibernate update (63)
- c++ base64 (70)
- nc 命令 (52)
- wm_close (51)
- epollin (51)
- sqlca.sqlcode (57)
- lua ipairs (60)
- tv_usec (64)
- 命令行进入文件夹 (53)
- postgresql array (57)
- statfs函数 (57)
- .project文件 (54)
- lua require (56)
- for_each (67)
- c#工厂模式 (57)
- wxsqlite3 (66)
- dmesg -c (58)
- fopen参数 (53)
- tar -zxvf -c (55)
- 速递查询 (52)