処理速度 (ID:88839)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 えぇと。 ObjSheetという変数の中身は、(Worksheetではなく)Workbookオブジェクトですか? > この1ステップに１秒くらいかかるんです。 シートに、いろいろな書式設定や式があれば、もっと時間がかかる場合も ありますし、逆に情報が単純なら、一瞬で完了する場合もあります。 アンチウィルス系のソフトが、実行速度の障害となるケースもありますね。 > これって普通ですか？ と言われても、べジー田さんがお使いのExcelシートの内容や 環境構成などを一切知りませんので、何とも答えようがありません。 とりあえず、 ・新規ブックでも遅いのか(空のSheet1から空のSheet2へのコピー) ・他のPCで実行した時も遅いのか ・実行速度に影響を与えるようなソフトが入っていないか ・手動でコピーを行った時にも遅いのか などを調べてみましょう。 ちなみに下記のコードを試してみたところ、 当方の環境では平均 0.57813秒で実行されました。 Private Sub Main() Dim T1 As Single, T2 As Single T1 = Timer Dim O As Object Dim B As Object Set O = CreateObject("Excel.Application") O.Visible = True O.SheetsInNewWorkbook = 3 Set B = O.Workbooks.Add() B.Worksheets(1).Range("B7:Y12").Copy B.Worksheets(2).Range("B7:Y12") B.Saved = True B.Close Set B = Nothing O.Quit Set O = Nothing T2 = Timer Debug.Print FormatNumber(T2 - T1, 5) End Sub