する質問をすることでしか得られない、回答やアドバイスがある。182お世話になっております。実行してみると、すごく遅いです。処理が終わるまで、133秒程度かかり、マクロ実行中は、Excelがフリーズしたような状態になります。データー量としては、3,000行程度です。(これだと普通にExcelの関数を使った方が早い状態です)そこで、処理を高速化するために、コードをどのように修正していけば良いでしょうか?このマクロを作ることにより、結構、ループや条件分岐や変数の概念が分かるようになり、かなり勉強になりました。高速化を図りたいですね。↓今回作成し、実行したコード↓'作業前データーは、A~F列に貼り付ける。'作業後データーは、I~N列に貼り付ける。'作業前データーの空白チェック。'空白があった場合は、空白に-を入れる。'作業後データーの空白チェック。'空白があった場合は、空白に-を入れる。'C列を元に、K列のMACアドレスのチェックを行う。'差分があった場合、G列に×を入れる。'K列を元に、C列のMACアドレスのチェックを行う。'差分があった場合、H列に×を入れる。'H列に"×"がるものデーター(H列~N列)をP列~V列へ移動させる。attachmentクリップ0気になる質問をクリップするクリップした質問は、後からいつでもマイページで確認できます。クリップした質問に回答があった際、通知やメールを受け取ることができます。自分も答えを知りたい質問者以外のユーザにも役立つ評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。質問の評価を上げたことを取り消します低評価-評価を下げられる数の上限に達しました評価を下げることができません1日5回まで評価を下げられます1日に1ユーザに対して2回まで評価を下げられます質問の評価を下げるteratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。コメントをしてください。送信する質問の評価を下げる機能の利用条件この機能を利用するためには、以下の事項を行う必要があります。17:39こちらの質問が他のユーザから「やってほしいことだけを記載した丸投げの質問」という指摘を受けました「質問を編集する」ボタンから編集を行い、調査したこと・試したことを記入していただくと、回答が得られやすくなります。件sort評価が高い順sort新着順sort古い順link+2まずは以下のページの、1.無駄な表示を止めるをやってみてはどうでしょうか?簡単だけど効果は大きいです。VBA高速化テクニックそれでも遅い場合は、無駄な処理やロジックをひとつづつ見直していく必要があります。その場合も、上記のサイトの、2.からの項目が大変参考になります。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。commentコメント投稿link+2ついに完成されたのですね!お疲れ様です。ステップインでpipiさんが作成したコードを実行したところ、MACアドレスの差分チェックに時間が掛かってしまっているようです。対策としては、K列にC列と異なる値があるか1行1行チェックするのではなく、FindメソッドでまとめてC列をチェックすれば、かなりの高速化が図れるのではないかと思います。1Loopまた、_katoさんのアドバイスにある無駄な表示を止めるというのも効果的な方法です。データ移動処理の高速化に貢献してくれるはずです。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。18:11アドバイス有難うございます。オブジェクト変数を学習し、もっと高速に処理できるように書き換えてみます。アドバイス有難うございます。オブジェクト変数を学習し、もっと高速に処理できるように書き換えてみます。キャンセル完了するlinkcheckベストアンサー+1抜本的な解決になるかわかりませんが・・。G列とH列に一度「X」を入れて値が同じなら空白に書き直しているのが気になりました。最初にG列とH列をすべて空白を書き込んだうえで、値が同じでないものについて「X」を入れるようにしたほうが良いと思います。Do※H列も同じようにやってください。あとは、プログラムのどの部分で処理に時間がかかっているかを確認するためにステップインを使うのが良いです。F8を実施して途中まで実行させることができます。評価が高い回答ほどページの上位に表示されます。remove低評価0回答の評価を下げる下記のような回答は推奨されていません。評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。18:11アドバイス有難うございます。アドバイス有難うございます。パスが見つかりません。0マクロの表追加について。頂いたご意見への回答は行っておりません。