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 沒有值。
提示「應用程式錯誤」，提示應用程式錯誤，是怎麼回事！
這個你點取消或者確定是不是螢幕上的圖示什麼都沒了然後過一會就出來了？如果是的話就沒什麼問題，這是電腦使用久了系統過熱的原因！這個是應用程式本身的問題，重新安裝正確的應用程式即可解決。開啟軟體時跳出提示說應用程式錯誤怎麼辦？1.首先排除病毒原因，使用防毒軟體,比如最新版本的360防毒快速查殺3 5分鐘...
應用程式錯誤
解決應用程式錯誤的方法步驟 1.首先排除病毒原因，使用最新版本的金山毒霸快速查殺3 5分鐘，根據檢查結果，點選立即處理。2.如果應用程式出錯的提示是缺少某個檔案，那就可能是這個檔案損壞，根據這個元件查詢是哪個系統元件損壞，重新安裝相關元件，恢復 程式檔案，一般即可解決。3.若是相關軟體自身的元件缺失...
應用程式錯誤怎麼辦，經常彈出應用程式錯誤怎麼辦
低拋高吸 如果是開機這樣的，看下面的方法 如果你說解除安裝了 1 執行輸入msconfig回車，開啟系統配置實用程式，在啟動專案中查詢一個名為 rsdefense.exe 如果有將它前面的鉤去掉，然後按應用確定 如果沒有跳過 2 執行輸入regedit回車開啟登錄檔，選編輯查詢一個名為 rsdefe...