Excel中VBA中for循環(huán)語句的使用方法

　　for循環(huán)語句在VBA中扮演著比較重要的角色，為我們批量的處理表格數(shù)據(jù)提供了一個(gè)很好的途徑，今天，學(xué)習(xí)啦小編就教大家在Excel中VBA中for循環(huán)語句的使用方法。

　　Excel中VBA中for循環(huán)語句的使用步驟如下：

　　我們常用的for循環(huán)語句有兩種，一個(gè)是for ……next結(jié)構(gòu);一個(gè)是For each……next結(jié)構(gòu)。這兩種結(jié)構(gòu)主要都是針對多數(shù)據(jù)循環(huán)遍歷的時(shí)候用到的。那么下面我將分別來介紹一下兩種循環(huán)結(jié)構(gòu)的具體用法，首先還是要打開VBA編輯器。

　　1.for……next結(jié)構(gòu)

　　這個(gè)結(jié)構(gòu)一般是這樣的：

　　for i=初始值 to 結(jié)束值 step 步長值

　　……

　　next

　　具體解釋一下，初始值指的是循環(huán)開始的值，結(jié)束值指的是循環(huán)結(jié)束的值，實(shí)質(zhì)上就是i值得一個(gè)判斷，如果i值在起始值和結(jié)束值之間，那么進(jìn)入循環(huán)語句，然后i值每運(yùn)行到next語句后會(huì)自動(dòng)加一個(gè)步長值，直至i值超出了初始值到結(jié)束值這個(gè)范圍，循環(huán)才會(huì)結(jié)束。這里要說明一下”step 步長值“往往是省略掉的，省略掉的話，步長取默認(rèn)值為1。下面將以一段小實(shí)例來具體說明這個(gè)結(jié)構(gòu)的用法：

　　實(shí)例：在sheet1工作表中一次輸出1到10這個(gè)數(shù)，顯示在第一列中。

　　程序：

　　Sub 循環(huán)語句()

　　Dim i As Integer

　　For i = 1 To 10

　　Cells(i, 1) = i

　　Next

　　End Sub

　　步長為+2的for循環(huán)結(jié)構(gòu)

　　這里我們看一下一個(gè)示例程序吧

　　程序：

　　Sub 循環(huán)語句()

　　Dim i As Integer

　　For i = 1 To 10 Step 2

　　Cells(i, 1) = i

　　Next

　　End Sub

　　步長為-1的for循環(huán)結(jié)構(gòu)

　　這里同樣的我們來看一下當(dāng)step值為-1的時(shí)候，程序又會(huì)是如何的呢?

　　看下面實(shí)例程序：

　　Sub 循環(huán)語句()

　　Dim i As Integer

　　For i = 10 To 1 Step -1

　　Cells(i, 1) = i

　　Next

　　End Sub

　　2.for each……next結(jié)構(gòu)

　　具體結(jié)構(gòu)：

　　For each 對象變量 in 對象集合

　　……

　　next

　　具體解釋一下，這里我們看到和上一個(gè)結(jié)構(gòu)的而不同的是上面一種結(jié)構(gòu)主要是數(shù)值變量，而這種結(jié)構(gòu)是對象變量。什么意思呢?each……in指的是在這個(gè)對象集合里面，一次將每一個(gè)對象都遍歷一邊。同樣的道理，執(zhí)行到next后對象自動(dòng)指到下一個(gè)。具體我們來看一下下面的一個(gè)實(shí)例吧

　　實(shí)例：給一個(gè)數(shù)據(jù)區(qū)域內(nèi)的所有單元格賦值，從1開始。

　　分析：顯然數(shù)據(jù)區(qū)域就是一個(gè)對象集合，單元格就是這個(gè)集合里面的對象

　　程序：

　　Sub 循環(huán)語句()

　　Dim i As Integer

　　For Each c In Range("a1:c5")

　　i = i + 1

　　c.Value = i

　　Next

　　End Sub

　　循環(huán)語句運(yùn)用起來是很靈活的，上面只介紹了兩種循環(huán)語句的基本用法，循環(huán)語句是可以套用的，這個(gè)就需要結(jié)合具體情況來靈活運(yùn)用了!

　　下面我們用多循環(huán)語句嵌套來實(shí)現(xiàn)乘法口訣：

　　程序：

　　Sub 循環(huán)語句()

　　Dim i, j As Integer

　　For i = 1 To 9

　　For j = 1 To i

　　Cells(i, j) = i & "*" & j & "=" & i * j

　　Next

　　Next

　　End Sub