使用PasteValues運行到錯誤 - 1004'應用程序定義的或對象定義的錯誤'

運行到錯誤1004，試圖將單元格值複製並粘貼到自身上（以消除公式並僅獲取值）。當我將它記錄在工作表上時工作正常，但當我在子程序中實現它時，它不起作用。發生在PasteSpecial行錯誤：使用PasteValues運行到錯誤 - 1004'應用程序定義的或對象定義的錯誤'

If i = ws_count Then 
    'ws_count - 2 allows us to place the new tab before the last sheet in the data file (admin) 
    Sheets(twomonthsago).Copy Before:=Sheets(ws_count - 2) 
    Sheets(twomonthsago & " (2)").Name = lastmonth & " test" 
    Sheets(twomonthsago).Cells.Copy 
    Sheets(twomonthsago).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 
End If

我也試過直接粘貼之前選擇Range("A1")，仍然得到錯誤。我所有的變量都分配了有效的字符串，所以這不是問題。

來源

2017-07-12 dwirony

你可以做'表（twomonthsago）.Cells.PasteSpecial ...'太 – BruceWayne

直接指定。

替換這些：

Sheets(twomonthsago).Cells.Copy 
Sheets(twomonthsago).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

有了：

With Sheets(twomonthsago).UsedRange 
    .Value = .Value 
End With

來源

2017-07-12 21:01:51

嗯哦，得到了一個「內存不足」嘗試後發生錯誤。 – dwirony

然後讓我們降低單元的數量。請參閱編輯。 –

瞧，修好了！謝謝一堆。恭喜突破50k順便說一句。 – dwirony

使用PasteValues運行到錯誤 - 1004'應用程序定義的或對象定義的錯誤'

回答

相關問題