エクセルでセルのコピーに時間がかかる

Question

Excel2010、2013でマクロを含むセルのコピーが時間がかかる

富士通さんのPCに変えて　Win7にoffice2013を入れたのですが　マクロ組んだセルのコピー、ペーストをマウスの右クリックで行うと２つのセルを１回コピーするのに２分弱かかります　ただし　ショートカット（Ctrl+C、Ctrl+V)を使うとすぐに貼り付け終了できます　これはoffice側の問題？なのでしょうか

ただ　自作PCでWin7にoffice2013を入れたPCで試したら　マウスの右クリックで普通に動いているのですが　ほかの既製品のPCないので試せない状態です

あと　富士通さんのPCにWin7にoffice2010を入れたのでも試したら同じ現象は起きます

マウスの右クリック作業するのと　ショウトカットで作業するのと　コマンド的に違うのですか

とりあえずですが　他に必要事項とかあれば連絡もらえればしらべます

Answer 1

DreamyCatさん　ありがとうございます

上のほうにかいているものは　ちょっと他の人に確認してもらいます

PCに関しては　今年７月に購入したi3 32bit,i3 64bit 今年1月購入したi5 32bit　全て同じ現象なんです

ただ　ショートカットキー（ctrl+C,ctrl+V)を使うと何秒って感じでは使えるのです

マウスの右クリックを使うと現象がでるので　困っているのです 

セキュリティはマイクロソフトのつかっています　OFFでも同じ現象おきます

Answer 2

お世話になります

マクロを組んだセルで　表示のマクロのボタンをさわると

マクロ名　Macro1　Macro2　ボタン3_Click の３つの名前がでます

とりあえず　Macro1を編集で表示した中身コピーしました

　Sub Macro1()

'

' Macro1 Macro

' マクロ記録日 : 2004/5/21  ユーザー名 : 嘉門

'

'

Dim A(5, 9, 14)

For I = 1 To 5

  For J = 1 To 9

    For K = 1 To 14

       A(I, J, K) = Cells(10 * (I - 1) + 312 + J, K + 4)

    Next K

  Next J

Next I

    Range("E3:R11").Select

    Selection.ClearContents

    Range("E13:R21").Select

    Selection.ClearContents

    Range("E23:R31").Select

    Selection.ClearContents

    Range("E33:R41").Select

    Selection.ClearContents

    Range("E43:R51").Select

    Selection.ClearContents

    Range("E53:R61").Select

    Selection.ClearContents

    Range("E63:R71").Select

    Selection.ClearContents

    Range("E73:R81").Select

    Selection.ClearContents

    Range("E83:R91").Select

    Selection.ClearContents

    Range("E93:R101").Select

    Selection.ClearContents

    Range("E103:R111").Select

    Selection.ClearContents

    Range("E113:R121").Select

    Selection.ClearContents

    Range("E123:R131").Select

    Selection.ClearContents

    Range("E133:R141").Select

    Selection.ClearContents

    Range("E143:R151").Select

    Selection.ClearContents

    Range("E153:R161").Select

    Selection.ClearContents

    Range("E163:R171").Select

    Selection.ClearContents

    Range("E173:R181").Select

    Selection.ClearContents

    Range("E183:R191").Select

    Selection.ClearContents

    Range("E193:R201").Select

    Selection.ClearContents

    Range("E203:R211").Select

    Selection.ClearContents

    Range("E213:R221").Select

    Selection.ClearContents

    Range("E223:R231").Select

    Selection.ClearContents

    Range("E233:R241").Select

    Selection.ClearContents

    Range("E243:R251").Select

    Selection.ClearContents

    Range("E253:R261").Select

    Selection.ClearContents

    Range("E263:R271").Select

    Selection.ClearContents

    Range("E273:R281").Select

    Selection.ClearContents

    Range("E283:R291").Select

    Selection.ClearContents

    Range("E293:R301").Select

    Selection.ClearContents

    Range("E303:R311").Select

    Selection.ClearContents

    Range("E313:R321").Select

    Selection.ClearContents

    Range("E323:R331").Select

    Selection.ClearContents

    Range("E333:R341").Select

    Selection.ClearContents

    Range("E343:R351").Select

    Selection.ClearContents

    Range("E353:R361").Select

    Selection.ClearContents

 For I = 1 To 5

  For J = 1 To 9

    For K = 1 To 14

       Cells(10 * (I - 1) + 2 + J, K + 4) = A(I, J, K)

    Next K

  Next J

Next I

Range("A1").Select

End Sub

以上ですが　これでよかったのですか？あとPCのほう　確認してみます

Answer 3

narisu19900403 さん、こんにちは。

富士通製以外の別の PC では問題の動作は見られないということなのですね。

その他のことについても状況を詳しく書いていただいて、ありがとうございます。

書き込んでいただいた内容から、マクロの処理の内容や富士通製の PC の共通したアプリケーションといった点を確認してみるとよいかもしれません。

まず、マクロについての確認なのですが、こちらのフォーラムではファイルの受け渡しなどは行っていないので、マクロのコードをそのまま書いてみてはいかがでしょう。

対象の Excel ブックを開き、 [開発] タブ > Visual Basic でマクロコードが確認できると思うので、コードをそのまま貼り付けて返信をしてみるとよいと思います。 

アプリケーション要因かを確認する方法は、以下の情報を参考に常駐アプリケーションを解除してみる方法を試してみるとよいと思います。

手順1 から 15 までを試してみて、症状に変化があるかを確認してみてください。

参考:\[Windows 8.1/8\] 常駐アプリケーションを解除する方法を教えてください。

※ 手順13 のところに注意点が書かれているので、必ず確認をお願いします。

※ 確認した後は設定を有効に戻してください。

試してみた結果など、追加の返信をお待ちしています。

Answer 4

返信ありがとうございます

　*.xlsm形式のＥｘｃｅｌブックのファイルです

で　その中のマクロを組んだセルのみ　症状がでるのですが

ファイルを開いた時点で動いているのか　自分が組んだものでいないため　ちょっとわからないのですが

マクロを組んでいるセルを右クリックでコピー、ペーストしたら出ます

あと　同じブックの中でも　ただ文字を入れているセルに関してはぜんぜん症状はおきません

ただ　マウスの右クリックでペーストしたら２分くらいかかるのに　Ctrl+Vで作業したはすぐ終わる

時間差はセルの関係でおきるものですか？ 同じ作業しているとおもいますが

自作ＰＣで同じ作業してみましたが　症状起きませんでした（ＡＭＤ　ＦＸ8　32bit)

富士通さんのＰＣで試した９台　全滅でした（i3 32bit 64bit  ,i5 32bit）

エクセルファイル送れというのであれば　送れるのですが

Answer 5

​narisu19900403 さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

セルのコピーと貼りつけをマウスの右クリックから行うと時間がかかってしまうということなのですね。

まず、この問題の動作について何点か確認をさせてくださいね。

マクロを含んだ *.xlsm 形式の Excel ブックだと問題の症状がみられるということでしょうか ?

それとも、マクロを実行させた後にコピー & ペーストを行うと遅くなってしまうということでしょうか ?

もし、マクロを実施後に問題の動作が見られるということなら、どのような処理をマクロで実行しているのかも解るとよいと思います。

よろしければお手元の状況について、追加で書いてみてくださいね。

また、問題点がより解りやすくなると思うので、以下のことについても合わせて追記をしてみるとよいと思います。

・ 問題の動作がみられる Excel ブックのファイル形式は何か

(例: *.xls 、 *.xlsm など)

・ 通常の Excel ブックでは問題はないか 

(*.xlsx 形式のブックでも確認をしてみてください。)

narisu19900403 さんからの返信をお待ちしていますね。