Excel实例下载
  VBA  应用教程
    数据库SQL知识
设为首页
在单元格区域中循环
作者:bengdeng | 来源:Excel吧 | 时间:2006-03-07 | 阅读权限:游客 | 会员币:0 | 【
不少吧里的朋友,刚刚接触VBA时,都会遇到这样的问题,怎么在一个单元格区域中,对每一个单元格进行循环操作,下面就给出五种方法。

1、如果要在像A1:A10这样类型的单元格循环,我们可以:

Sub T1()
Dim I As Integer
For I = 1 To 10
    Range("A" & I) = I
Next
End Sub

2、但如果像要在A1:AA1这样类型的单元格循环,上面的方法就比较麻烦了(注意后面的AA,是麻烦不是不可以),这时我们就可以用Cells来完成:

Sub T2()
Dim I As Integer
For I = 1 To 27
    Cells(1, I) = I
Next
End Sub


3、除了用Cells外,常用的还有offset,像上面的例二,我们还可以:

Sub T3()
Dim I As Integer
For I = 1 To 27
    Range("A1").Offset(0, I - 1) = I
Next
End Sub


4、如果类似于A1:B10这样的单元格区域,如果用Cells或Offset就要用两层循环,这时我们还可以用Item属性:

Sub T4()
Dim I As Integer
Dim TMP As Range
Set TMP = Range("A1:B10")
For I = 1 To TMP.Count
    TMP.Item(I) = I
Next
End Sub


5、上面都用变量累加来实现循环,其实还可以利用For Each ... In语句来完成。

Sub T5()
Dim I As Integer
Dim TMP As Range
I = 0
For Each TMP In Range("A1:B10")
   I = I + 1
   TMP = I
Next
End Sub


而例四与例五中,循环是横向循环,要纵向循环就只好用Cells与offset加两次循环来完成了,这里就不重复了,大家可以自行试一试吧:)。
文章录入:admin | 浏览次数:
上篇文章:将数据按条件分类导出
下篇文章:什么是VBA?
相关评论(以下网友评论只代表其个人观点,不代表Excel吧的观点或立场)
相关信息

关于本站 | 留言本站 | 友情连接 | 后台管理
Copyright © 2005 - 2008 Excel吧 Inc. All Rights Reserved.
HxCms Ver9.0  闽ICP备06001689号
关闭此窗口