HOME > VBA高速化 > 【第5位】不要行の削除

エクセルVBA高速化ランキング【第5位】


では、さっそく今回は高速化ランキングの続き、第5位の発表です。


時間の掛かる【不要行の削除】を高速化する簡単テクニック



エクセルでデータの加工や集計などをやっていると、どうしても不要な行と いうものがあいだ間に出てきます。


私が依頼をうけて診断したVBAシステムの中でも、

「このマクロ処理、妙に時間かかってるなぁ~」

と思ったら、データ処理をしながらそういった要らない行を見つける度に行 削除しにいっていた。といった例は実に多いです。

不要なデータをその行ごと削除するというのは、結構時間が掛かってしまう 処理の一つです。


そこで、簡単なプログラム例を挙げますと、
下記のサンプル1では、仮にA列にデータが無かったら不要なデータという ことで判断してそのデータ行を行削除する。といった簡単な処理プログラム の例です。(B列には必ずデータが入っているものとします。)


サンプル1
―――――――――――――――――――――――――+
    Application.ScreenUpdating = False
    i = 1
    Do While Range("B" & i).Value <> ""
        a = Trim(ActiveCell.Value)
        If Range("A" & i).Value = "" Then
            Rows(i).Delete Shift:=xlUp
        Else
            i = i + 1
        End If
    Loop
―――――――――――――――――――――――――+


今回のベンチマークでは、2万行のデータのうち8千行が不要データであると いうテストデータを用いて実測を行なってみました。


サンプル1の測定結果は、34秒でした。
(テスト時間節約のため、ご覧の様に1行目に画面更新の非表示を入れた上 での結果です。)


このサンプルの様に、その他のことは一切していなくても行削除だけで30秒 以上も掛かるという結果になります。

通常は、このループ処理の中で他に色々なデータ加工処理が加わることが多 いと思いますが、私の経験ではたかだか1万行程度の処理で10分以上も反応 なく待たされるというダメな(?)プログラムというのをこれまで何本となく 見てきました。



で、これを高速化するために、下記のサンプル2のような方法を用います。


サンプル2
―――――――――――――――――――――――――+
    n = Cells(Rows.Count, "A").End(xlUp).Row
    Cells.Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="<>"
    Rows("1:" & n).Select
    Selection.Copy
    Sheets.Add
    Rows("1:1").Select
    ActiveSheet.Paste
    Range("A1").Select
    Application.CutCopyMode = False
―――――――――――――――――――――――――+


サンプル2の結果では、1.3秒です。
30秒以上掛かっていた処理がわずか1秒少々に短縮できたことになります。


このサンプル2では、処理時間の掛かる行削除は行なわずにエクセルのオー トフィルタ機能を使って必要行のみ(この場合は「空白以外のセル」のみ) を抽出した上で、それを新しい別のシートにコピーするといった方法を用い ています。

この方法なら、不要な行を一瞬で排除した形の同じデータシートを簡単かつ 一瞬で作る事ができます。


ちなみにこれは、データの並び替え機能を使っても似たようなことはできる と思いますが、並び替えを使った場合、場合によってはデータの順番が変わ ってしまう危険性もありますので、オートフィルタを使った方が安全だと 思います。(同時にデータソートもしたいという場合には、逆に好都合では ありますが。。。)



今回はこれで終了です。



----------【サンプルテストの実行環境】----------

   PCスペック:Pentium4 1.8GHz
   OS    :Windows XP
   Excel   :Microsoft Excel2003 or 2002

----------------- r(-●_●-) -----------------



この記事は、「GoGo エクセルマクロをはじめよう!」を運営するWATエクセルカスタマイズセンターが実施した速度計測 ベンチマークテストによる結果を基にした高速化手法テクニックを順位付けして発表するものです。 (2007年発行の「エクセルVBA技術通信」のバックナンバー記事からの抜粋)




NEXT >>
画面更新の非表示
【コラム】間違いだらけのマクロ高速化手順

目次へ戻る
 

 


マクロ初心者(入門者)の皆さんへ

こんにちは、「Go!Go! エクセルマクロをはじめよう!」筆者の三太郎です。
私はこの道25年、現役バリバリのベテランSE(システムエンジニア)をしています。 なので、業界にどっぷり染まってしまった IT業界人 です。(笑)

マクロ(エクセルのプログラミング)がどれだけ便利なものなのか・・・ ということは、 皆さんもうよくお分かりいただけてる(!?)ものと思いますが、でも 「やっぱ、中々取っつき難い、ハードルが高い、素人には難しい。」 そう感じている方も多いかと思います。

エクセルをほぼ1日中使ってる人が多い職場であっても、マクロを使える人はほとんど居ません。 (30人の職場で精々1人か2人居ればいいほうかと思います。。) 私は、そのような現状(PC仕事の非効率)を改善して、日本にもっと効率良いIT化の機運を 高めて行きたい!そう願って、今から十数年前にこのようなメルマガ講座を始めました。

マクロを始める為の条件は、エクセル上級者ではありません! 頻繁にエクセルを使ってる人、 ただそれだけです。エクセルの操作レベルはまったく関係がありませんので、 エクセルユーザーの全ての皆さんが当メルマガ講座の参加対象者です。

パソコン仕事で この上なく便利なエクセルのマクロ というものを、もっと多くの人に知って欲しい、使って貰いたい。その想いだけで、長年メルマガの 無料配信を続けてきました。今では、この分野では異例とも言える1万人を超える大勢の皆さんに ご登録いただいているメルマガ講座に成長いたしました。 読者の皆さんからのご声援のお陰です。本当、ありがとうございます。

当メルマガ講座では、簡単に出来るマクロ作成法のコツとその手順を教えています。 とにかく作って、動かす。だから楽しくなってきます。 VBAのカタカナ用語や難しい仕組みの理解、構文暗記といった従来型の不必要な勉強は一切しません! なぜなら、エクセル作業の自動化にその必要は一切ないからです。 初心者がすぐに挫折するカタカナ用語羅列のマクロ勉強なんて、殆どの人には役に立ちません!

マクロとは、エクセルの作業を自動化する為の道具に過ぎません! マクロを組む為に難しいプログラムの仕組みや わけのわからないカタカナ専門用語を覚える必要など毛頭ないわけです。 私はこれまで十数年間、大勢の読者に教えてきて、Excel自動化に成功した沢山の人を生み出してきた 経験で、そう断言します! (本屋に並ぶVBA参考書のライターレベルの人の言うことを真に受けて、 あなたに必要のない”勉強の為の勉強”をしてしまわぬよう、 くれぐれもご注意ください。)

ここでは、「これからマクロを始めてみようかな?」と思ってる方や、 すでにどこかで勉強して「すぐに挫折してしまった・・(>_<)」という方に、 安心して勉強のできる方法とその実習環境とが用意されています。 もし、あなたが過去に挫折した経験者であれば、きっと私が常々言っている 勉強すべき事とすべきでない事 その違い(ここの初心者学習環境の素晴らしさ・・)というものがすぐに分かっていただけるだろうと思います。

マクロ(VBA)というのは多義に渡ります。アマチュアのサンデープログラマーから ベテランの上級者やプロに至るまで、実に幅が広いものです。 初学者には到底 必要のない 難しい部分まで勉強してしまうから当然、 必ずずぐに挫折する事になります。

残念ながら、「まだピカピカの小学一年生(初心者)に、いきなり掛け算や割り算はおろか、 三角関数や微分積分までも教えてしまうような痛ましい光景」を、ネットでも参考書でもセミナーでも、 VBAの世界ではたくさん目にします。

だから、「何を勉強するか」ではなく「何を勉強しないか」 初心者にはその正しい選択が重要なんです。勉強の範囲を 初心者の領域(Excel業務の効率化)だけに絞ってやりさえすれば 、さほど難しく考える必要はありません。それで、難しく、さっぱりちんぷんかんぷんだと思っていたマクロが 楽しく、 どんどん楽しく、勉強できるようになります。

→ エクセルマクロを10分で理解する!(YouTube動画)


あなたもこの三太郎式マクロ勉強法で、面倒なExcel仕事の自動化を ぜひ、この他にはない画期的な方法で実現してください。あなたの 参加を(下記無料メルマガへのご登録を)お待ちしてます!! (少々、力説し過ぎて話長くなりました。すみません。m(__)m)

 
最新号 は、下記にアドレス登録すると無料配信されます。

▼マクロ講座の登録はこちら((無料)) まぐまぐ
Go!Go! エクセルマクロをはじめよう! (マガジンID:0000135169)   
メルマガ登録
  メールアドレス:

ロジック編ランキング

  • プログラムのロジックを駆使したVBA高速化の王道テクニックを公開。 (現在準備中...)

 

読者数1万人達成しました!

エクセルで 最大級の
メールマガジン。
まぐまぐ殿堂入り

最新号は 今すぐ ↓↓↓ 登録

メールアドレス:

Powered by
まぐまぐ

完全まぐまぐ配信なので登録安心です!