PasteValuesを使用してエラー1004 'Application DefinedまたはObject Defined Error'になる

Question

エラー1004で、セル値をコピーして貼り付ける（式を削除して値を取得する）。シートに記録するときにうまく動作します。サブルーチンで実装するとうまく動作しません。エラーがPasteSpecial行で発生します

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")を選択しようとしました。すべての変数には有効な文字列が割り当てられているため、問題はありません。

Answer 1

直接割り当てます。

これらを交換してください：

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

で：

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