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

用户53918 · 发表于 2017-5-17 14:53

本帖最后由用户53918 于 2017-5-17 14:56 编辑

各位大神好

Dim D As Long
D = [A65535].End(xlUp).Row
For i = 1 To D
Range("A" & i + 1) = 1
D = [A65535].End(xlUp).Row
next

复制代码

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

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

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

yeminqiang · 发表于 2017-5-17 15:07

do....loop

leoparddi · 发表于 2017-5-18 11:34

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

用户53918 · 发表于 2017-5-18 17:43

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

大大你好

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

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

		自动登录	找回密码
密码			免费注册