Excel 2010 のマクロ実行時に Paste メソッドでエラーが発生してしまう。

Question

コピー元シートのデータをコピー先シートに単純にコピーするマクロを実行しています。

なにが原因なのかわからないため、困っています。教えていただければ助かります。

Sub 組織情報()

' 従業員マスターからグループ別情報一覧を作る

    Dim i As Long, i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long

    Application.ScreenUpdating = False

' グループ別情報一覧新シートにグループ別情報一覧原型シートをコピーする

    Sheets("グループ別情報一覧原型").Select

    Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("グループ別情報一覧新").Select

　　Cells.Select

    ActiveSheet.Paste　　　　　　　　　　　　　←①ここでエラーが発生

    Application.CutCopyMode = False

エラー内容：　

実行時エラー　’-2147417848（80010108）

Ｐａｓｔｅ’メソッドは失敗しました：’_Worksheet’オブジェクト

実行環境

Windows7 Professional Service Pack1

Excel2010　ﾊﾞｰｼﾞｮﾝ　14.07145.5000（32ﾋﾞｯﾄ）

Office Standard 2010

いろいろ試してみましたが、エラーになってしまいます。

試み１：　①の前のCells.SelectをRange("A1").Selectに変更してみましたが結果は同じでした。

試み２：　①の前にタイマーカウントで１０秒まつコードを実施してみましたが結果は同じでした。

Answer 1

2003版までと違ってとんでもなく巨大なsheetになっているためでしょう。

   Sheets("グループ別情報一覧原型").Select

    Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("グループ別情報一覧新").Select

　　Cells.Select

    ActiveSheet.Paste　　

　　　↓

　使っているセル範囲だけコピーしてそのまま目的のシートへ貼り付ければエラーにならないかもしれません。　下記は１行で、左側はコピー元　右側はpast先です。

   Sheets("グループ別情報一覧原型").UsedRange.Copy    Sheets("グループ別情報一覧新")..Range("A1")

Answer 2

そのコピーしようとしている表に何か問題があるかもしれませんね。

手動で、

グループ別情報一覧原型のシートを選択→すべてのセルを選択→コピー→グループ別情報一覧新のシートを選択→すべてのセルを選択→貼り付け

ではエラーにならないのでしょうか？

それが出来たら、試しに

・コピーする方のシートを変更してみる

・貼り付ける方のシートを変更してみる

・コピーする範囲を変更してみる

・貼り付ける範囲を変更してみる

など、その辺から何が原因か特定していくとよいです。

Answer 3

2003版までと違ってとんでもなく巨大なsheetになっているためでしょう。

   Sheets("グループ別情報一覧原型").Select

    Cells.Select

    Application.CutCopyMode = False

    Selection.Copy

    Sheets("グループ別情報一覧新").Select

　　Cells.Select

    ActiveSheet.Paste　　

　　　↓

　使っているセル範囲だけコピーしてそのまま目的のシートへ貼り付ければエラーにならないかもしれません。　下記は１行で、左側はコピー元　右側はpast先です。

   Sheets("グループ別情報一覧原型").UsedRange.Copy    Sheets("グループ別情報一覧新")..Range("A1")

ご指摘ありがとうございます。

コピー元の範囲を指定して、実施してみましたら、エラーは発生しませんでした。

やはり、”Cells.Select”では、巨大なSheetになっていたようです。同じようなコピーの仕方でおこなっている別の箇所も範囲を指定するように変更しました。

助かりました。ありがとうございました。

Answer 4

そのコピーしようとしている表に何か問題があるかもしれませんね。

手動で、

グループ別情報一覧原型のシートを選択→すべてのセルを選択→コピー→グループ別情報一覧新のシートを選択→すべてのセルを選択→貼り付け

ではエラーにならないのでしょうか？

それが出来たら、試しに

・コピーする方のシートを変更してみる

・貼り付ける方のシートを変更してみる

・コピーする範囲を変更してみる

・貼り付ける範囲を変更してみる

など、その辺から何が原因か特定していくとよいです。

ご指摘ありがとうございます。

手動で、おこなってみましたら、同じエラーが発生しました。

【＜グループ別情報一覧原型のシートを選択→すべてのセルを選択→コピー→グループ別情報一覧新のシートを選択→すべてのセルを選択→貼り付け】

ですので、コピー元を使っているセル範囲だけコピーするように変更をして実施しましたら、エラーは回避され、コピーできました。

助かりました。ありがとございました。