当前位置：网站首页 > 技术分析 > 正文

VBA基本语法之For Each Next结构，都有什么特点以及使用注意事项

liebian365 2024-11-16 23:12 34 浏览 0 评论

上一章给大家分享了一下Do While循环结构的含义，以及该怎么使用，今天这一章就给大家分享一下VBA基本语法的For Each…Next的特点，使用说明等。

首先看一下For Each结构的具体含义：

For Each 元素变量 in 组合（可以是集合或者数组）

要执行的语句快

Exit For

要执行的语句快

Next 元素变量

下面就具体解释一下请看截图：

注意：For Each…..Next 要比其他循环结构灵活很多，它不需要什么循环的判断条件，特别是循环数组或者是集合的时候。还有一点再循环数组的时候不能去修改数组的值，对已经有值的数组，那也只能修改元素的属性（也就是之前举的例子，改变字体颜色等等）。

先举一个简单的例子一起看一下效果：

接下来是一个A列含有很多姓名的单元格（不考虑姓名重复问题）

我们需要做的就是使用这个刚学的循环结构去取数据，再输出到表格中。

下面解释一下代码：

代码1：

Sub fe()

Dim i As Integer, k As Integer, j As Variant, b As Integer

Dim shuzu() As Variant

b = WorksheetFunction.CountA(Range("A:A"))

ReDim shuzu(1 To b) As Variant

For k = 1 To b

shuzu(k) = Cells(k, 1)

Next

i = 1

For Each j In shuzu

Cells(i, 2) = j

i = i + 1

Next

End Sub

再举一个常见的实例（没有什么实际意义，主要是了解一下For each循环结构的使用方法）：

使用For Each…..Next 编写一个程序把1到20的整数输出到A1到A20单元格中。

代码2：

Sub sh()

Dim k As Range, j As Integer

j = 1

For Each k In Range("A1:A20")

k.Value = j

j = j + 1

Next

End Sub

注意：这里面输出的结果会在你的活动表格的单元格中，（活动就是指你现在打开，正在操作的表格），你可以试试你切换到那个sheet中，结果就输出到哪里。

今天先分享到这里，喜欢的请关注，谢谢！

明天继续分享

for_each

上一篇：动态数组，循环遍历，for each（动态数组的例子）
下一篇：C++的四类循环:Entry or Exit controlled, Ranged-based or For_each

VBA基本语法之For Each Next结构，都有什么特点以及使用注意事项

相关推荐

取消回复欢迎你发表评论:

一个小时多点，完成scrapy爬取官方网站新房的数据，50块到手

爬虫项目:实现京东全网爬虫京东爬虫跳过登录页

C语言char同时读取多个输入字符并打印

信息系统安全:软件系统安全

C语言总结_格式化打印函数、字符串、运算符

嵌入式开发C语言编程的那些编程思路与技巧

在博图中，如何对S7-1200/S7-1500 进行数据类型转换

民间石子棋玩法，摆方，简单好学，你会吗?

科普|锂电dQ/dV 与dV/dQ什么意思?怎么使用?

volatile很难?由浅入深怼到CPU汇编，彻底搞清楚它的底层原理

VBA基本语法之For Each Next结构，都有什么特点以及使用注意事项

相关推荐

取消回复欢迎 你 发表评论:

一个小时多点，完成scrapy爬取官方网站新房的数据，50块到手

爬虫项目:实现京东全网爬虫 京东爬虫跳过登录页

C语言char同时读取多个输入字符并打印

信息系统安全:软件系统安全

C语言总结_格式化打印函数、字符串、运算符

嵌入式开发C语言编程的那些编程思路与技巧

在 博图中，如何对S7-1200/S7-1500 进行数据类型转换

民间石子棋玩法，摆方，简单好学，你会吗?

科普|锂电dQ/dV 与dV/dQ什么意思?怎么使用?

volatile很难?由浅入深怼到CPU汇编，彻底搞清楚它的底层原理

取消回复欢迎你发表评论:

爬虫项目:实现京东全网爬虫京东爬虫跳过登录页

在博图中，如何对S7-1200/S7-1500 进行数据类型转换