如何更新For..next的最初變數

用户53918

各位大神好

1. Dim D As Long
   
2. 
   
3. D = [A65535].End(xlUp).Row
   
4. 
   
5. For i = 1 To D
   
6. 
   
7. Range("A" & i + 1) = 1
   
8. 
   
9. D = [A65535].End(xlUp).Row
   
10. 
    
11. next

复制代码

小弟有一個for..next的程式碼

假如我一開始設定
for i = 1 to D，D可能一開始只有1而已
但是在條件達成後，會多插入一個欄位，然後D會變成2
可是對for next來講，他只會跑到D = 1就結束了，並不會跑到D = 2

想請問各位大神，有沒有辦法讓for next一開始設定的變數，隨著公式一直增加呢？
拜託各位大神了

yeminqiang

do....loop

leoparddi

像你说的这样不就成死循环了吗，就是A2=1,A3=1,A4=1……An=1

用户53918

leoparddi 发表于 2017-5-18 11:34
像你说的这样不就成死循环了吗，就是A2=1,A3=1,A4=1……An=1

大大你好

文章內的範例只是舉例而已

實際上的應用並不會成為死循環，不知道大大有沒有什麼方法呢？