ExcelVBA中for循環(huán)語(yǔ)句的用法

./ExcelVBA中for循環(huán)語(yǔ)句的用法聽(tīng)語(yǔ)音|瀏覽：21306|更新：2015-05-3016:57|標(biāo)簽：excel分步閱讀for循環(huán)語(yǔ)句在VBA中扮演著比較重要的角色,為我們批量的處理表格數(shù)據(jù)提供了一個(gè)很好的途徑,下面小編根據(jù)自己的一些親身經(jīng)驗(yàn)為大家分享一下ExcelVBA中for循環(huán)語(yǔ)句的兩個(gè)用法吧！工具/原料officeExcel軟件具備一定的VB基礎(chǔ)更好方法/步驟1我們常用的for循環(huán)語(yǔ)句有兩種,一個(gè)是for……next結(jié)構(gòu)；一個(gè)是Foreach……next結(jié)構(gòu)。這兩種結(jié)構(gòu)主要都是針對(duì)多數(shù)據(jù)循環(huán)遍歷的時(shí)候用到的。那么下面我將分別來(lái)介紹一下兩種循環(huán)結(jié)構(gòu)的具體用法,首先還是要打開(kāi)VBA編輯器21.for……next結(jié)構(gòu)這個(gè)結(jié)構(gòu)一般是這樣的：fori=初始值to結(jié)束值step步長(zhǎng)值

……next具體解釋一下,初始值指的是循環(huán)開(kāi)始的值,結(jié)束值指的是循環(huán)結(jié)束的值,實(shí)質(zhì)上就是i值得一個(gè)判斷,如果i值在起始值和結(jié)束值之間,那么進(jìn)入循環(huán)語(yǔ)句,然后i值每運(yùn)行到next語(yǔ)句后會(huì)自動(dòng)加一個(gè)步長(zhǎng)值,直至i值超出了初始值到結(jié)束值這個(gè)范圍,循環(huán)才會(huì)結(jié)束。這里要說(shuō)明一下"step步長(zhǎng)值"往往是省略掉的,省略掉的話,步長(zhǎng)取默認(rèn)值為1。下面將以一段小實(shí)例來(lái)具體說(shuō)明這個(gè)結(jié)構(gòu)的用法：實(shí)例：在sheet1工作表中一次輸出1到10這個(gè)數(shù),顯示在第一列中。程序：Sub循環(huán)語(yǔ)句<>DimiAsIntegerFori=1To10Cells<i,1>=iNextEndSub3步長(zhǎng)為+2的for循環(huán)結(jié)構(gòu)這里我們看一下一個(gè)示例程序吧程序：Sub循環(huán)語(yǔ)句<>DimiAsIntegerFori=1To10Step2Cells<i,1>=iNextEndSub4步長(zhǎng)為-1的for循環(huán)結(jié)構(gòu)這里同樣的我們來(lái)看一下當(dāng)step值為-1的時(shí)候,程序又會(huì)是如何的呢？看下面實(shí)例程序：Sub循環(huán)語(yǔ)句<>DimiAsIntegerFori=10To1Step-1Cells<i,1>=iNextEndSub52.foreach……next結(jié)構(gòu)具體結(jié)構(gòu)：Foreach對(duì)象變量in對(duì)象集合

……next具體解釋一下,這里我們看到和上一個(gè)結(jié)構(gòu)的而不同的是上面一種結(jié)構(gòu)主要是數(shù)值變量,而這種結(jié)構(gòu)是對(duì)象變量。什么意思呢？each……in指的是在這個(gè)對(duì)象集合里面,一次將每一個(gè)對(duì)象都遍歷一邊。同樣的道理,執(zhí)行到next后對(duì)象自動(dòng)指到下一個(gè)。具體我們來(lái)看一下下面的一個(gè)實(shí)例吧實(shí)例：給一個(gè)數(shù)據(jù)區(qū)域內(nèi)的所有單元格賦值,從1開(kāi)始。分析：顯然數(shù)據(jù)區(qū)域就是一個(gè)對(duì)象集合,單元格就是這個(gè)集合里面的對(duì)象程序：Sub循環(huán)語(yǔ)句<>DimiAsIntegerForEachcInRange<"a1:c5">i=i+1c.Value=iNextEndSub6循環(huán)語(yǔ)句運(yùn)用起來(lái)是很靈活的,上面只介紹了兩種循環(huán)語(yǔ)句的基本用法,循環(huán)語(yǔ)句是可以套用的,這個(gè)就需要結(jié)合具體情況來(lái)靈活運(yùn)用了！下面我們用多循環(huán)語(yǔ)句嵌套來(lái)實(shí)現(xiàn)乘法口訣：程序：Sub循環(huán)語(yǔ)句<>Dimi,jAsIntegerFori=1To9Forj=1ToiCells<i,j>=i&"*"&j&"="&i*