VBA 執行時錯誤 1004 應用程式定義或物件定義錯誤

也許該程式不相容，您可以嘗試其他版本。 此外，建議參考以下程式要求進行配置。

或者右鍵單擊要執行的程式，然後選擇“相容性”以在相容模式下進行嘗試。

.range("a2").resize（m， 5） 用於重新定義區域，不能為其賦值。

VBA 執行時錯誤 1004 應用程式定義或物件定義錯誤是由安裝錯誤引起的，解決方法如下：

1. 先開啟乙個檔案。

2. 單擊“檔案選項”、“信任中心”、“信任中心設定”。

3. 開啟“信任中心”對話方塊的“巨集設定”。

4. 選中“信任對 VBA 專案物件模型的訪問”，然後單擊“確定”。 不會出現執行時錯誤 1004 提示。

估計你面前有乙個強制宣告語句：option explicit，而你的 s1 和 s4 沒有宣告，所以有錯誤。 刪除該句子或宣告所有變數。

此外，從**可以看出乙個重要的問題，即<而（，1）。""r1的值在迴圈中不變，所以1）永遠不會變，如果條件滿足，就會變成乙個無限迴圈。此外，雖然 （，1） <""這句話的外括號是多餘的。

sheets(1).range("a1:h").

end(xlup).select 是顯而易見的，它應該改為 sheets（1）。range("a1:

h1").end(xlup).選擇，你缺少乙個 1，它是 range（"a1:

h1"哼。 採用它...

嘗試在此處更改它：

for g = 1 to

cells(.range("b65536").end(xlup).row + 1, 1)

Next 前面是 WB

修改如下：g = 1 至

cells(.range("b65536").end(xlup).row + 1, 1)

next

range(cells(i, j))

此表單用於區域：

range(cell1，cell2)

我沒有發現問題，但是我重複了很多次並給出了提示，所以我重新啟動excel檢視。

定義鍵行變數時，鍵行的值為 0，如果 worksheets（i+1）。cells(key_row, 3) <"" then

如果未在此語句之前為鍵行賦值，則鍵行的值為 0，但單元格中的兩個引數均不為 0，如果為 0，則會發生錯誤。

range(cells(i, j))

此表單用於區域：

range(cell1，cell2)

連長，什麼情況？ 有這麼複雜？

我去看看。

Excel 執行時錯誤 1004，應用程式定義或物件定義錯誤，是由於巨集設定問題造成的。

解決方法和操作步驟如下：

1.第一步，以Excel 2016為例，點選工具欄中的“檔案”選單，然後進入下一步，見下圖。

2.第二步，在彈出的列表中選擇“選項”，然後進入下一步，見下圖。

3. 步驟3，完成以上步驟後，選擇介面左側的“信任中心”選項，然後點選右側的“信任中心設定”按鈕，然後進入下一步，見下圖。

4. 第四步：完成以上步驟後，選擇介面左側的“巨集設定”選項，勾選“信任訪問VBA工程物件模型”項，點選“確定”，見下圖。 這樣就解決了問題。

這句話有問題：setrng=sheets（3）range（cells（1+i，1），cells（3+i，4）） 在你的語句中，range（） 的父物件是 sheets（3），cells（） 的父物件是當前的活動工作表，當 sheets（3） 不在活動表中時，cells（） 和 range（） 的父物件被搞砸了，這在 VBA 中是非法的。

在你的**中，我沒有定義。

請看下面的段落。

if n mod 2 = 0 then

i = 1 + / 2, 0) +1) / 5, 0) *4

j = m mod 5

if j = 0 then

j = 5end if

end if

sheets("sheet5").cells(m, n) = sheets("sheet1").cells(i, j)

第一次在迴圈中執行這段時，當 m mod 2 不等於 0 時，程式不會給 i 任何值，這意味著 i 仍然是乙個空值。

接下來，執行工作表（"sheet5").cells(m, n) = sheets("sheet1").cells(i, j)

將出現錯誤。

被困為我沒有價值。

從丟擲的異常來看，工作表沒有正常定義，請確認你的工作表名稱是否正確，點選工作表名稱得到**，看看是否能正確獲取！

什麼是 SheetIndex？ 指定的工作表是否存在？