1樓：宋語雙羨麗
這一句有問題：setrng=sheets(3).range(cells(1+i,1),cells(3+i,4))在你的語句裡，range()的母物件是sheets(3)，而cells()的母物件是當前活動工作表，當sheets(3)不是活動表裡，cells()和range()的母物件交叉混亂了，在vba裡是非法
2樓：不想起名字了
在你的**中 i 沒有定義。
看下面這一段
if n mod 2 = 0 then
i = 1 + worksheetfunction.roundup(n / 2, 0) + worksheetfunction.rounddown((m - 1) / 5, 0) * 4
j = m mod 5
if j = 0 then
j = 5
end if
end if
sheets("sheet5").cells(m, n) = sheets("sheet1").cells(i, j)
迴圈中第一次執行此段**時，當 m mod 2 不等於0時 ，程式並沒有給 i任何值，也就是說這時 i 還是一個 空值時
接下來來執行 sheets("sheet5").cells(m, n) = sheets("sheet1").cells(i, j)
就會出現錯誤
困為 i 沒有值。
應用程式錯誤，應用程式錯誤怎麼辦
優化大師問題 系統效能優化 磁碟快取優化 縮短關閉無響應程式的等待時間 windows xp自動關閉停止響應的 應用程式 縮短應用程式出錯的等待響應時間 windows xp關機時自動清理頁面檔案 啟用大系統快取 禁用頁面檔案 木馬或病毒問題 這類程式為了控制系統往往不負責任地修改系統，從而導致作業...
應用程式錯誤
這種情況中毒的可能性很少 我這說的都是解決方法加一點理論，如果你想學理論可以看一下長篇大論，軟體方面大概就是程式衝突，系統有問題，原因是這樣 記憶體被分配為一個個地址，這個地址用到的時候軟體衝突導致記憶體寫不進，就會出 現這種情況。如果你最近裝了什麼新軟體 謝了試試，還有可能是系統有問題了，比如少了...
DNF出現應用程式錯誤，DNF出現應用程式錯誤
從新做一下系統吧，原因有以下幾種種。主機沒有長期處理灰塵導致程式異常錯誤 系統長久老化，導致檔案錯誤 系統不支援或者是防火牆不支援tp掃描 主機外掛鬆動 導致檔案不能讀取 系統版本檔案不支援執行 這裡有一半是應為系統問題所有買一張貴點的系統碟重新安裝一下系統，應為主機出現問題很少，幾乎是系統的c盤檔...