1樓：網友
什麼意思？看不懂你要表達什麼呀。
請教excel vba高手，如何按行迴圈一段**直到某內容則停止
2樓：網友
sub test()
for i=1 to 10
for j=1 to range("a:a").offset(,i-1).end(3).row
if cells(j,i)="停止" thengoto 停止。
elseif cells(j,i)<>"" then'複製end if
next j
next i
exit sub
停止：'停止**段。
end sub
3樓：網友
dim rag as range,i as integer,arri=1for each rag in range("a2:c26")if >0 then
arr(i)=
i=i+1end if
next至此資料都收集到arr陣列。
excel2007 vba 無限迴圈、停止迴圈、延時。
4樓：陽光上的橋
秒可能會讓你的excel受不了，我測試的時候發現機器變得很忙，**如下：
5樓：網友
該**只能生成1秒。秒還有待研究。
在excel中如何判斷vba迴圈,達到條件時中止迴圈
6樓：q城裡城外
啟動excel後按alt+f11啟動vba環境，並在左側點選右鍵→插入→使用者窗體。在工具欄中，新增按鈕到窗體：
雙擊按鈕，並新增如下**。
private sub commandbutton1_click()dim lastrow, i as longwith sheets(1)
lastrow = sheets(1).
for i = 1 to lastrow
if = .range("a" & i).value then.range("a" & i).selectexit for
end if
nextend with
end sub
在vba中執行視窗，測試結果為輸入10，a列單元格的10被選中：
7樓：網友
private sub commandbutton1_click()dim inttemp as long
dim i as long
inttemp = int(
for i = 1 to 65534
if , 1) = inttemp then, 1).select
exit for
end if
nextend sub
sheet3要換成你的資料所在表。
excel vba程式進入死迴圈，怎麼能強制終止
8樓：網友
一種是按esc 看看能不能停止，不能的話就強制關閉excel程式吧。
用vba迴圈開啟指定資料夾中的各個excel，執行對應的巨集操作後關閉。期間一直報找不到檔案。
9樓：網友
那肯定就是檔案路徑不對嘍 你完全可以msgbox cstr(varfilelist(l)) 來看看這個變數具體是什麼內容 核對下就清楚了。
vba如何終止do until迴圈
10樓：網友
可以設個變數在迴圈中累加，當它累加到指定值時，就中斷迴圈。指定值一定要大於你的判斷條件可能的迴圈次數。
11樓：太極健
這裡舉個簡單的例子。
sub aa()
dox = x + 1
loop until x <>1
msgbox x
end sub
意思是每一次迴圈x的值+1，當x<>1的時候退出迴圈實際上就只有乙個1，所以迴圈一次就退出了。
你根據你的實際情況修改即可。
sub aa()
dox = x + 1
loop until x > 10
msgbox x
end sub
同理，這是當x>10的時候退出迴圈。
vba反覆迴圈程式，如何使excel中的影象反覆出現消失？**如下
12樓：網友
不明覺厲！要怎樣「反覆出現消失」？
另外，這段**好……蛋疼，改下先：
sub again()
range(cells(30, 25), cells(40, 30)).= rgb(255, 0, 0)
range(cells(40, 20), cells(50, 30)).= rgb(255, 0, 0)
range(cells(50, 21), cells(68, 28)).= rgb(255, 0, 0)
range(cells(68, 22), cells(95, 30)).= rgb(255, 0, 0)
range(cells(96, 28), cells(125, 32)).= rgb(255, 0, 0)
range(cells(125, 30), cells(138, 36)).= rgb(255, 0, 0)
end sub
excel用vba巨集中用for迴圈將一列滿足條件的後面加上需要的數值比如
直接寫個公式就可以了。假如你那個1在的列是b，在c裡寫公式if b1 1,a 空 然後填充就可以了。如果一定要用vba,那就讀出來單元格的內容，然後根據內容填充就可以了。sub aaa for i 1 to range a65536 end xlup row if cells i,1 張 and c...
如何一開啟Excel就執行VBA
在workbook open事件中寫入 或者在auto open事件中寫入 1.將excel巨集安全性改為 低 開啟有vba 的工作簿時，就不會提示是否啟用巨集 2.將需要首先執行的vba 寫在workbook open事件裡面 或許你需要的是一種，或者你要的是這兩種 在workbook open事...
EXCEL巨集的迴圈問題
sub macro4 dim i as integer for i 132 to 140 step 4range cells i 1,3 cells i 3,3 select selection.copy cells i,6 select selection.pastespecial paste x...