-------------------------------------------------------------------------------------------------------------------------------------
For 변수의 시작조건 To 변수의 끝나는 조건 Step 매단계의 격차
        실행문
Next 변수
-------------------------------------------------------------------------------------------------------------------------------------

이하 예제.. ^__^*

출처 : http://www.excellove.com/board/bbs/view.php?id=qa&no=30183&keyword=순환문&sn=on&ss=on&sc=on

Dim MyCol As New Collection
Dim rngDb As Range
Dim rngC As Range
Dim i As Integer

'특정 영역 안에서 셀들을 순환할 때..
For Each rngC In rngDb
        MyCol.Add Item:=rngC.Value, key:=CStr(rngC.Value)
Next rngC


'배열 변수를 순차적으로 호출할 때..
For i = 1 To MyCol.Count
        With Range("A65536").End(xlUp)
                .Offset(1, 0) = MyCol(i)
                .Offset(1, 1) = Application.CountIf(rngDb, .Offset(1, 0).Value)
        End With
Next i

-------------------------------------------------------------------------------------------------------------------------------------
Do While 조건
        실행문
Loop
-------------------------------------------------------------------------------------------------------------------------------------

예제 없음.. ㅋㅋ