循环语句主要三种写法

引子玄

Sub 非循环()
Range("c1") = Range("a1") * Range("b1")
Range("c2") = Range("a2") * Range("b2")
Range("c3") = Range("a3") * Range("b3")
Range("c4") = Range("a4") * Range("b4")
Range("c5") = Range("a5") * Range("b5")
End Sub
==================================
Sub 循环办法一()
Dim x As Integer
For x = 1 To 5 Step 1
Range("c" & x) = Range("a" & x) * Range("b" & x)
Next x
End Sub

Sub 循环办法一()
Dim x As Integer
For x = 5 To 1 Step -1
Range("c" & x) = Range("a" & x) * Range("b" & x)
Next x
End Sub

刚学习了罗老师的第一种介绍后的练习，讲课效果很好
---------------------------------------------------------------
Sub 循环办法二()

Dim x As Integer
x = 0
Do
x = x + 1
Cells(x, 3) = Cells(x, 1) * Cells(x, 2)
Loop Until x = 5
End Sub

Sub 循环办法二()
Dim x As Integer
x = 0
Do While x < 5
x = x + 1
Cells(x, 3) = Cells(x, 1) * Cells(x, 2)
Loop
End Sub

Sub 循环办法二()
Dim x As Integer
Do
x = x + 1
    If Cells(x + 1, 1) <> Cells(x, 1) + 1 Then
       Cells(x, 3) = "断点"
       Exit Do
    End If

Loop Until x = 5
End Sub
------------------------------------------------------
Sub 循环办法三()
For Each cell In Range("C1").Resize(5, 1)
cell.Value = cell.Offset(0, -1) * cell.Offset(0, -2)
Next
End Sub
(注：此例由wajour 提供)

Sub 循环办法三()
Dim x As Range
For Each x In Range("a1:b5,d8:f9")
    If x = "" Then
       x = 0
    End If
Next x
End Sub
============================

EH2003

学习一下了。
这个只是，1至5，还可以这样。就不受条件限制了：
Sub 循环办法一()
Dim x As Integer
For x = 1 To Worksheets("sheet1").[a65536].End(xlUp).Row Step 1
Range("c" & x) = Range("a" & x) * Range("b" & x)
Next x
End Sub

wajour

1. Sub caldemo()
   
2. For Each cell In Range("C1").Resize(5, 1)
   
3. cell.Value = cell.Offset(0, -1) * cell.Offset(0, -2)
   
4. Next
   
5. End Sub
   

复制代码

引子玄

EH2003 发表于 2012-7-15 23:39
学习一下了。
这个只是，1至5，还可以这样。就不受条件限制了：
Sub 循环办法一()

第1种循环还可以这样写：

Sub 循环办法一()
Dim x As Integer
For x = 5 To 1 Step -1
Range("c" & x) = Range("a" & x) * Range("b" & x)
Next x
End Sub

（Integer是整数型，自己根据对象情况定义。在网页抓取中，经常要用到循环语句，非常实用，才学）

EH2003

循环.rar (13.93 KB, 下载次数: 105)

2012-7-16 00:03 上传

点击文件名下载附件

EH2003

引子玄 发表于 2012-7-15 23:56
第1种循环还可以这样写：

Sub 循环办法一()

要考虑不确定因素，才能满足要求。

wajour

wajour 发表于 2012-7-15 23:55

....楼下重复三花了

引子玄

wajour 发表于 2012-7-15 23:55

视频里关于ＯＦＦＳＥＴ的循环语句公式，其写法始终运行不了，幸好还是你给出的代码，帮解决了问题．多谢
花了两天，总算把＂循环语句＂学下来了．

wajour

引子玄 发表于 2012-7-16 19:11
视频里关于ＯＦＦＳＥＴ的循环语句公式，其写法始终运行不了，幸好还是你给出的代码，帮解决了问题．多 ...

我也很喜欢用for.. each..next  引用起来比较方便

7176386

很全，很详细，很强大，感谢楼主分享