VBA中的循环代码的使用
作者：PythonFun
本文主要介绍了VBA中的循环代码的使用，文中通过示例代码介绍的非常详细，对大家的学习或者工作具有一定的参考学习价值，需要的朋友们下面随着小编来一起学习学习吧
最近，我在自学VBA，有了之前的Python基础，感觉学起VBA也比较轻松。毕竟VBA和Python一样都是面向对象的编程语言。通过自学，我基本上掌握了VBA的循环方法，以下是我的简单笔记和大家一起分享。
一、循环填充单元格
1.通过for循环和Cells()来填充A列1至10行单元格为1, 2, 3...10，代码如下：
Sub 填充单元格() Dim i As Integer For i = 1 To 10 Cells(i,1)= i Next i End Sub
2. 通过for循环和Range()来填充数字
Sub 填充单元格2()
Dim i As Integer
For i = 1 To 10
Range("A" & i)= i
Next i
End Sub3. 另类解法
通过定义Range对象，然后遍历对象中的元素，此种方法融合了上面二种方法。
Sub 填充单元格3()
Dim col as integer
Set col = Range("A1:A10")
For Each cell In col
cell.Value = cell.Row()
Next cell
End Sub二、循环遍历工作表
1.通过Worksheets.count来获取工作表的总数来进行for循环。 以下代码实现用for循环来把每一个工作表的第一个单元格填充为工作表的表名。
Sub 循环工作表()
Dim i As Integer
For i = 1 To Worksheets.Count '用worksheets.count获取工作表的数量
Worksheets(i).Range("A1") = Worksheets(i).Name
Next i
End Sub2. 利用for each ... in 来循环遍历工作表
这种方法的核心是定义工作表对象sht，然后对工作表集合对象进行遍历。
Sub 循环工作表2()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Range("A1") = sht.Name
Next sht
End Sub三、循环遍历工作簿
也就是遍历Excel文件，假定所有文件均已经打开。这里提供两种方法：第一种是对象法，代码如下：
Sub 循环工作簿()
For Each wb In Workbooks
For Each sht In wb.Worksheets
sht.Range("A1") = wb.Name
Next sht
Next wb
End Sub第二种是切片法，实现的功能依然是在每个工作表的A1单元格中填充当前工作表的表名。
Sub 循环工作簿()
Dim i, m As Integer
For i = 1 To Workbooks.Count
For m = 1 To Worksheets.Count
Worksheets(m).Range("A1") = Worksheets(m).Nam
Next m
Next i
End Sub四、注意事项
for循环是成对的，一定要注意加上next X， 否则程序就会报错。
VBA的循环大概分二种，一种是对象法，一种是切片法，推荐用对象法，不用考虑对象的数量。
标识单元格可以用Range和Cells两种方法，各有优劣，可以有选择地使用。
与Python编程不同的是，VBA编程中要提前定义对象类型，因此它的代码执行速度会比Pythong更快。
到此这篇关于VBA中的循环代码的使用的文章就介绍到这了,更多相关VBA 循环内容请搜索脚本之家以前的文章或继续浏览下面的相关文章希望大家以后多多支持脚本之家！