1樓：空城思曠
使用動態陣列：例如：
定義： public arrtemp() as string初始化： redim arrtemp(0) as string存資料時：
arrtemp(ubound(arrtemp))="aaa"
redim preserve arrtemp(ubound(arrtemp)+1)
使用時： for i =0 to ubound(arrtemp)-1 step 1
msgbox arrtemp(k)
next i
詳細不？可以給分了吧？謝謝！
2樓：匿名使用者
'用字典吧
sub t()
dim dic as object,i as integerset dic=createobject("scripting.dictionary")
i=1with worksheets("sheet1")do while .cells(i,4).value<>""
if .cells(i,4).value=45 thendic(i)=""
end if
i=i+1
loop
end with
rownumber=dic.keys
end sub
'陣列sub t2()
dim i as integer,j as integer,rownumber()
j=1with worksheets("sheet1")i=.cells(1,4).end(xldown).
rowredim rownumber( 1 to i)for i=1 to ubound(rownumber)if .cells(i,4).value=45 thenrownumber(j)=.
cells(i,4)j=j+1
end if
loop
end with
end sub
3樓：芥菜時代
vba 中 do while loop 用法
4樓：阿豪呦
vba 中do while loop用法如下：
vba中如果不知道重複多少次，使用 do...loop 語句。
do...loop 語句重複執行某段**直到條件是 true 或條件變成 true。
重複執行**直到條件是 true
使用 while 關鍵字來檢查 do... loop 語句的條件。
do while i>10
'some code
loop
如果 i 等於 9，上述迴圈內的**將終止執行。
do'some code
loop while i>10
這個迴圈內的**將被執行至少一次，即使 i 小於 10。
重複執行**直到條件變成 true
使用 until 關鍵字來檢查 do...loop 語句的條件。
do until i=10
'some code
loop
如果 i 等於 10，上述迴圈內的**將終止執行。
do'some code
loop until i=10
do until i=10
i=i-1
if i<10 then exit do
loop
這個迴圈內的**，只要 i 不為 10 且 i 大於 10 時都將被執行。
擴充套件資料：
while 關鍵字用於檢查 do...loop 語句中的條件。有兩種方式檢查條件：
在進入迴圈之前檢查條件（如下面的 chkfirstwhile 示例）；或者在迴圈至少執行完一次之後檢查條件（如下面的 chklastwhile 示例）。
在 chkfirstwhile 過程中，如果 mynum 的初始值被設定為 9 而不是 20，則永遠不會執行迴圈體中的語句。在 chklastwhile 過程中，迴圈體中的語句只會執行一次，因為條件在檢查時已經為 false。
sub chkfirstwhile()
dim counter,mynum，counter = 0，mynum = 20
do while mynum > 10，mynum = mynum - 1，counter = counter + 1
loop
msgbox 迴圈重複了 & counter & 次。
end sub，sub chklastwhile()
dim counter,mynum
counter = 0，mynum = 9
do mynum = mynum - 1
counter = counter + 1
loop while mynum > 10
msgbox 迴圈重複了 & counter & 次。
end sub
重複執行語句直到條件變為 true
5樓：匿名使用者
doloop
就是一直迴圈
dox=x+1
loop
那麼就是個死迴圈 一直迴圈
所以要用while 設定個條件 當滿足條件才迴圈do while x<100
x=x+1
loop
那麼就是當x<100 的時候就一直迴圈
6樓：
do while 條件
迴圈體loop
7樓：匿名使用者
do迴圈語句的幾種形式:
1. do while i>1 '條件為true時執行... ... '要執行的語句
loop
2.do until i>1 '條件為false時執行... ... '要執行的語句
loop
3.do
... ... '要執行的語句
loop while i>1 '條件為true時執行4.do
... ... '要執行的語句
loop until i>1 '條件為false時執行5.while...wend 語句
while i>1 '條件為true時執行... ... '要執行的語句
wend
VBA如何對偶數行求和，如何用VBA進行求和
1 首先，在excel中新建資料 2 然後，在電腦鍵盤上按快捷鍵alt f11，從而excel進入vba介面。3 接著，在excel的vba介面依次點選插入 模組，從而進入 編寫的介面。4 最後，在 編寫的介面輸入 sub合計20 dim a do until sheet2.cells a,2 sh...
如何用VBA編寫，把工作表中相同字串標記上顏色，非常感謝
姓王的 dim i j n b ra as rangeset ra activesheet.usedrangera.font.colorindex 4105n 3 for i 1 to ra.count 1b 0 if n 18 then n 3 a ra i font.colorindexif r...
vba中如何輸入大括號，vba 中間帶大括號 陣列公式 怎麼寫
上善若水 cells 10,i formulaarray max if s g g b11,s n n 在vba中陣列公式的大括號，也就是ctrl shift enter組合鍵，是通過.formulaarray實現的 注意區別一般的公式.formula 一個多月了，解決問題就採納，別磨磨唧唧了 ce...