如何使用 VB 在 Excel 中實現迴圈

它不必那麼麻煩，也就是說，你不需要複製，你可以分配乙個值。

此外，如果公式中有錯誤，則應為 range（cells（n， 9），cells（n， 9））。select

sub macro1()

macro1 macro

dim n as integer

for n = 1 to 4000 step 1cells(n, 9).value2 = range("e1").value2

next end sub

sub macro1()

dim n as integer

for n = 1 to 4000

cells(n, 12) = cells(1, 5)next end sub

僅此而已。

如果你的程式中有錯誤，它應該是。

range(cells(n, 12),cells(n, 12)).select

或 range（"l"&n).select

range(cells(i, n)).選擇 to range（."i" & n).當然，建議你使用樓上的方法，但樓上對於初學者來說有點困難。

從錄製巨集開始是個好主意，所以你應該掌握範圍（"i" & n).select

這樣寫的。

1、do while...loop：當條件為 true 時迴圈，在進入迴圈之前檢查條件。

2、do...loop while：當條件為真時，迴圈至少執行一次後檢查條件。

3、do until...loop：當迴圈條件為false時，進入迴圈前檢查條件。

4、do..loop until：當迴圈的條件為 false 時，在迴圈執行至少一次後檢查條件。

5、while...wend：當條件為 ture 時迴圈。

6、for...next：指定迴圈數，並使用計數器重複該語句。

7、for each...next：對於集合中的每個項或陣列中的元素，重複每個語句。

8、for each...in：從集合中獲取每個元素。

9. 迴圈巢狀：這意味著乙個小迴圈可以包含在乙個大迴圈中。

10.強行退出迴圈知道這麼多，呵呵11

在上一節中，我們討論了 select case 控制語句，在本節中，我們討論了 for next 迴圈語句。 我們來談談迴圈語句的使用，如果讓你計算從 1 到 10 的每個數字加了多少 5，愚蠢的方法是 1+5、2+5、3+5......10+5，忘掉愚蠢的方法，終於解決了問題，但是如果加到1000呢？ 有同學問，誰這麼無聊，也沒什麼好補充的，但是要知道，在實際應用中會用到很多情況。

比如圖書館裡有幾萬本書，你想在資料庫裡找到《三毛流浪記》，思路一定是把資料庫裡的每乙個數字都讀出來，然後比一比，是不是《三毛流浪》，如果不是，就讀下一本，然後比對，直到比對成功， 你會找到它，如果你讀了最後乙個或者沒有比較，那就意味著這個資料庫裡沒有書。有這麼多資料，你如何一一比較它們？ 今天的 for next 語句是為了幫助你，讓我們來看看它的執行順序：

迴圈變數，對於下乙個語句來說，迴圈是否完成取決於它來執行，初始值是從哪裡開始，最終值是在哪裡結束，上面的例子，從1到10每個數字加到5,1是初始值，10是最終值。 步數就是間隔多少，俗話說就是從起點到終點，每一步有多長，你要從起點走10公尺，一次走一公尺，你需要走十步，每步要走2公尺， 只需要走5步，一步走一公尺在**表演中是第1步，一步走兩公尺是第2步。在程式的一般情況下，是步驟1，所以這個步驟可以省略而不寫，直接預設為1，所以**經常是這樣寫的：

然後這個"Next 迴圈變數"這意味著，如果繼續返回執行 for 迴圈變數 = 初始值到最終值，什麼時候不會執行？ 就是這樣"迴圈變數"當達到最終值時，將不再執行中間值。 如果把 1+5 放在上面，2+5 ......10+5 示例是用 ** 實現的，如下所示：

迴圈語句包括 for-next、while-wend 和 do-loop 語句。

讓我向您介紹這些語句的簡單用法：

for-next 語句：

對於變數 = 初始值到最終值 [步長]。

迴圈體。 next

當迴圈變數的值在初始值到最終值的範圍內時，迴圈體中的語句塊執行一次，初始值增加乙個步長。 如果迴圈變數的值不在初始值到最終值的範圍內，則退出迴圈並執行下乙個語句。 用於挖掘思想線的 for 迴圈語句的流程圖。

其中，步長可以省略，省略時，步長=1

例如：private sub form activate（）。

for i = 1 to 5 step 1

print i

nextend sub

在此示例中，執行程式後，將在表單上寫入以下文字：

分析：變數 i 從初始值 1 迴圈到最終值 5 迴圈 5 次，每次輸出 i 的值，將 i 的值加到步驟 1 的值上所以，但是在第二個迴圈中，i 的值變為 2

在第 5 個週期之後，i 的值變為 5重新迴圈時，i 變為 6，並且 5 的最終值被過度檢查，因此迴圈結束，vb 在下乙個語句之後開始執行 **。

do-loop 語句：

DO 迴圈體。

[exit do]

do 和 loop 之間的迴圈。 exit do 語句是可選的，因為它設定為在滿足某些條件（即退出迴圈）時執行 exit do 語句。

例如：private sub form activate（）。

dim i as integer

i = 1do

print i

i = i + 1 '每個週期將 i 的值增加 1

if i > 5 then exit do '當 i 的值大於 5 時（即，在迴圈 5 之後），退出迴圈。

loopend sub

它的工作原理與上面的示例相同。

以上說明絕對不是抄襲的，給點辛苦也沒關係，謝謝

既然我在這裡，我就給你乙個非常簡單和簡單的假裝是乙個燃燒的匹配挖掘迴圈語句：1 100 自加。

結果，它是");

int sum = 0;

int i;

for (i = 1; i<=100; i++)sum = sum + i;;

for迴圈中的VB迴圈使用最多，當你使用它時，現在就學習它，或者你現在就學習它，或者你現在就學習它，如果你不練習，你會在短時間內忘記它。

VB有兩種主要的迴圈結構，即DO....loop 和 for....next

1、do...迴圈結構。

do...迴圈語句有四種形式，其中一種是迴圈形式

do while 迴圈條件。

語句組。 loop

do...迴圈垂直懺悔的第二種形式是：

do 語句組。

loop while 迴圈條件 這種形式的迴圈正文語句至少執行一次。

還有兩種做....loop 的迴圈形式為：

Do Until 迴圈條件。

語句組。 loop 和。 do

語句組。 迴圈直到迴圈條件。

在這兩種形式中，只有當迴圈條件為 false 而不是 true 時，才能執行迴圈。

2、for...下乙個結構。

如果你確切地知道要執行多少個迴圈，你應該使用 for...。Next 結構，它使用乙個計數器變數，其值隨每次執行迴圈而增加或減少。

迴圈的語法如下：

對於計數器 = 初始值到最終值 [步長增量]。

語句組。 下乙個 [計數器]。

如果增量為負，則初始值必須大於或等於最終值，否則迴圈內語句無法執行一次。 如果未設定增量，則預設值為 1。

3. 退出迴圈。

有時，當在迴圈執行過程中滿足某個條件，而測試條件中沒有給出該條件，並且您想退出迴圈而不等待迴圈結束以節省時間時，可以使用 exit 語句直接退出 do 迴圈或 for 迴圈的公告。

它的語法形式是：

do[while|直到迴圈條件]。

語句組。 exit do

語句組。 loop

和。 對於計數器 = 初始值到最終值 [步長增量]。

語句組。 exit for

語句組。 下乙個 [計數器]。

Exit do 和 exit for 在查詢資料時特別有用，一旦找到一定的數字，就可以立即退出迴圈而不是繼續迴圈。

實際上，它是 x=3 + 6 +6=15

選擇b過程：每次為i=1到4，使x=4，所以最外層的4個週期，前3個結果都在下乙個週期，使x恢復為4，所以忽略前3個週期，只看i=4時的時間。

每次 j = 1 到 3 使 x=3，所以當執行到 j= 1 到 3 的下乙個句子時，x 變為 3，因此 j 的 3 個週期忽略前兩個，只看最後乙個時間。

當 i=4、j=3 和 k=2 個迴圈時，當 k=1.

x=x+6 即 x=3+6 = 9

當 k=2.

x=x+6 即 x=9+6 = 15

在完整週期結束時，通過列印 x 輸出 15，因此選擇 b

i=1x=4

j=1x=3

k=1x=3+6=9

k=2x=9+6=15

j=2x=3

k=1x=3+6=9

k=2x=9+6=15

依次按下 x，每次得到 15 的結果選擇 b

前兩個迴圈是無稽之談，因為必須重新分配它們，所以只考慮第三個迴圈。

15。條目 x 的第乙個值為 4

輸入第二個得到 3

進入第三個迴圈 x=3+6，然後 x=9+6

然後迴圈重複，結果是一樣的。

最終結果是15