Excel 循环语句主要三种写法

 本帖最后由 引子玄 于 2012-7-16 19:13 编辑

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
============================