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 沒有值。
應用程式定義或物件定義錯誤，應用程式定義或物件定義錯誤 excel
軟體版本 office2007 方法如下 在vba中如果使用了系統不認可的物件表示方法等，例如下面的range表示方法，系統就不認可 這樣，在執行程式時，就會提示錯誤 將 中的錯誤更正，用正確的表示方法來使用物件或應用程式，就不會出錯了 樓主一定是初次接觸vba。if cells row1,a 日期...
開啟網頁老提示記憶體應用程式錯誤。
你好，電腦出現 該記憶體不能為read 這是你安裝的 軟體 和電腦中的 記憶體 有衝突！1。電腦裡有 木馬或病毒 干擾，360安全衛士 和 360防毒雙引擎版 或 金山衛士 和 金山毒霸 建議 全盤掃描 病毒和木馬，修補電腦上的 高危 和 重要 的 系統漏洞 系統修復 一鍵修復！外掛清理 立即清理 ...
應用程式錯誤怎麼辦，經常彈出應用程式錯誤怎麼辦
低拋高吸 如果是開機這樣的，看下面的方法 如果你說解除安裝了 1 執行輸入msconfig回車，開啟系統配置實用程式，在啟動專案中查詢一個名為 rsdefense.exe 如果有將它前面的鉤去掉，然後按應用確定 如果沒有跳過 2 執行輸入regedit回車開啟登錄檔，選編輯查詢一個名為 rsdefe...