2

この VBA コードは、Excel 2013 (複数の異なるマシン) で実行されています。

Sub CopyStaticData()
    Application.ScreenUpdating = False
    Sheets("Data Input").Range("Input_Station_ID").Copy
    Sheets("Data Received").Range("Data_Station_ID").PasteSpecial Paste:=xlPasteValues
    ...

ただし、Excel 2016 では、最後の行で実行時エラーがスローされます。

エラー 1004: オブジェクト 'Range' のメソッド 'PasteSpecial' が失敗しました

xlPasteValues を明示的なコード (-4163) に置き換えてみましたが、役に立ちませんでした。

何か案は？Microsoft の互換性の問題の可能性はありますか?

4

1 に答える 1

2

値のみを貼り付ける場合は、コピーを使用しないことをお勧めします。

代わりに、 に単純化しRangeB.value = RangeA.valueます。

簡単に、速く、トリッキーなクリップボードがなく、小さな 1 行で書かれています。

于 2015-11-22T16:12:48.513 に答える