1樓：七色海潮
把你的 第一個 exit for 刪除掉就好了。， exit for 意思是跳出 迴圈了。
要不就是你第一個next i 之前的 if 因沒有endif 而 報的錯
2樓：我的王是金閃閃
你的**有問題。邏輯上有問題。
excel**提示next沒有fou
3樓：zzllrr小樂
改一下即可
with sheets("庫存資料") '相同的**、庫位，合併一行
for i = 2 to .range("a65536").end(xlup).row
if .cells(i, 1) & .cells(i, 9) = cells(7, 3) & cells(7, 11) then
.cells(i, 6) = .cells(i, 6) + cells(7, 8)
else
exit for『這裡怎麼退出i再執行下面語句
end if
next i
range(cells(7, 3), cells(7, 11)).copy.cells(.
range("a65536").end(xlup).row + 1, 1).
pastespecial paste:=xlpastevalues
end with
4樓：
sub test()
with sheets("庫存資料") '相同的**、庫位，合併一行r = .range("a65536").end(xlup).
rowsr = cells(7, 3) & cells(7, 11)for i = 2 to r
if .cells(i, 1) & .cells(i, 9) = sr then
.cells(i, 6) = .cells(i, 6) + cells(7, 8)
else
r = r + 1
.cells(r, 1).resize(, 9).value = cells(7, 3).resize(, 9).value
end if
next
end with
end sub
不知道你是不是這個意思?
excel執行巨集後無結果也不提示錯誤時什麼原因？
5樓：
只從**上來看，a 的資料和 e 列的資料是不一樣的。我的感覺是 a 列的單元格不是居中，所以基本上是靠左排列。但沒有到最左邊，說明最左面通常是有空格存在。
若真的是這樣的話，if 塊的條件永遠不成立。
6樓：匿名使用者
我試過了，可以用的啊，我沒有改一個**。
執行後，c列和d列就有資料了。如圖：
建議你：1、看錶的名字是否為：現金流量表20102、再看a和e列，格式上是否有特殊情況。
7樓：匿名使用者
為什麼要用巨集，用公式還快點
在c2輸入=vlookup($a2,$e:$g,3,)d2輸入=vlookup($a2,$e:$g,2,)然後往下拉填充
excel 2003 錄製巨集如下 需要新增 for next 迴圈語句 迴圈1000次
8樓：
錄製巨集的時候應該用相對引用
然後直接加
for i = 1 to 10000
…………
……next
excel巨集中for迴圈相關問題諮詢
9樓：匿名使用者
dim i
for i = 1 to 100
if range("o" & i) = "" then 『不等「」就直接跳到end if後的**了。
』等於空值要執行的**寫在這裡就行了。
end if
next
10樓：匿名使用者
dim i
for i = 1 to 100
if range("o" & i) <> "" thengoto nexti
end if
nexti:
next
DNF執行時電腦自動重啟，DNF執行時電腦自動重啟
1 可能是系統或程式間有不相容的地方，開機按f8不動到高階選項出現在鬆手，選 最近一次的正確配置 回車修復，還不行按f8進入安全模式還原一下系統或重灌系統。2 cpu或其它硬體溫度過高 記憶體 顯示卡不相容或故障引起的。3 硬碟有壞道了，請用系統自帶的功能或軟體修復磁碟，或格式化硬碟重新分割槽重灌系...
visual basic 執行時錯誤
因為我平時也經常用巨集處理資料,所以,個人認為出現這種情況要能有以下幾種原因 檔案的位置,檔名,excel標籤頁的名字 如sheet1,sheet2或是其它名字 是否符合巨集的規範。檔案裡有資料格式與巨集規定的不一致，比如a1單元格中應該是 數值型 的，卻寫了文字字元。或是其它地方複製過來，有空格 ...
金蝶KIS標準版，憑證查詢，提示「執行時錯誤
這個跟系統沒有關係的，也不是軟體出現問題，可以開啟其它帳套，不會出現這個情況，可以看出現在開啟的帳套，內部glvch憑證表出現了問題 首先，先把帳套複製一份，再開啟復制的帳套用來測試 開啟後，選單欄 檔案 帳套維護 帳套修復，看下能否修復成功，成功率不高，不過也建議試下 標準版每月結賬的時候，都會提...