レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。

ひろしさんの投稿

(投稿ID: 4359)

いつもお世話になっております。
行の削除について、質問があります。

下記のように、A列に"行削除"と文字が発見されたら、
対象の列を削除させるマクロを作成しました。
しかし、データ数が膨大になると(20,000行以上とか)
処理時間が、かなり掛かってしまうようです。

データ数が、多い場合は別の方法が良いのでしょうか？
ご教授頂けると幸いです。

Sub gyo_sakujo()

    Dim gyo As Long
    Dim gmax As Long
    gmax = Range("A" & Rows.Count).End(xlUp).Row
    
    For gyo = gmax To 2 Step -1
        If Range("A" & gyo).Value = "行削除" Then
            Range("A" & gyo).EntireRow.Delete
        End If
    Next
End Sub

よろしくお願いします。

2019/02/06 00:05

小川慶一さんのコメント

(コメントID: 5988)

ひろしさん:

たとえば、以下の要領で複数行をまとめて削除することもできます。

Sub hoge()
    Dim cFm As Long
    Dim cTo As Long
    cFm = 3
    cTo = 17
    Range("A" & cFm & ":A" & cTo).EntireRow.Delete
End Sub

なので、以下の流れになるかと思います。

[1] 削除対象行に印をつけていく
[2] 印のある列で並べ替える
[3] 上述の要領で削除する

あとは、削除じゃなくてオートフィルタでも十分なら、オートフィルタしてしまうとか。
オートフィルタのマクロについては発展編１で取り扱っています。

本動画でもそういうアレンジを紹介すればできたのですが、あまりいろいろ脱線していると本論がおろそかになるので、触れずにいました。

2019/02/06 02:25

ひろしさんのコメント

(コメントID: 5989)

ありがとうございます。
早速、教えて頂いた手順で実行してみます。

基本をベースとして、色々アレンジする習慣をつけます。
また、講座を復習し実践を重ね、引き出しを増やしていきたいと思います。

2019/02/06 04:52

小川慶一さんのコメント

(コメントID: 5990)

ひろしさん:

他の動画で学んだことにヒントはないか？と考える習慣をつけましょう！

2019/02/07 00:18

田中宏明さんのコメント

(コメントID: 6008)

ひろしさん:

基礎編に出てこないやり方になりますが、引き出しを増やすという意味で、以下手順で処理できる方法を紹介します。
　[1] 削除対象行をRngオブジェクトに入れる
　[2] 削除は最後にまとめて行う

Sub gyo_sakujo()
 
    Dim gyo As Long
    Dim gmax As Long
    gmax = Range("A" & Rows.Count).End(xlUp).Row
    
    Dim Rng As Range 'Rngオブジェクト変数
     
    For gyo = gmax To 2 Step -1
        If Range("A" & gyo).Value = "行削除" Then
            If Rng Is Nothing Then
                'Rngオブジェクト変数に行設定（最初に見つかった行）
                Set Rng = Rows(gyo)
            Else
                'Rngオブジェクト変数に行追加（以降に見つかった行）
                Set Rng = Union(Rng, Rows(gyo))
            End If
        End If
    Next

    If Not Rng Is Nothing Then
        'Rngオブジェクト変数に入れた行を一括削除
        Rng.Delete
    End If

End Sub

2019/02/11 02:12

５倍速！メールマガジン

このメールマガジンの詳細はこちら

受講生の声

たった1ヶ月で人生が劇的に変わりました

佐藤信さん

役員クラスの方から高い評価を受けるようになりました。

佐賀県 - 岩本徹さん

今までまったく知らなかったショートカットキーを使いまくっています。

東京都 - 鷹觜慶さん

年齢60才間近、営業で外回りの時間が多い私でも退社時間が1-2時間程度早くなりました。

東京都 - 宗内隆明さん

受講前もすでにパソコン得意でしたが、そんな私でも受講して本当に良かったと思えた講座です。

東京都 - 佐伯とも子さん

ここまで包括的に仕事に役立つ深い学びを受けれた講座は初めてでした

東京都 - 飯田倫子さん

受講生の声一覧へ

サイト運営者紹介

小川慶一講師/教材/システム開発者紹介

この学習サイトの教材制作、サポート、システム開発をすべてやっています。

より詳しい紹介はこちら

ショートカットワーク報告

2025年03月26日 22:33

CommaToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月26日 22:12

QuoteToXls-excel
ゴールド賞を達成したこと

cat22さん

2025年03月24日 22:28

QuoteToXls-excel
マイペースでも続いていること

cat22さん

2025年03月19日 20:10

TxtToXls-excel
初回でゴールド賞をとれた！

cat22さん

2025年03月18日 20:52

CommaSpaceToXls
プラチナ賞をとれたこと！

cat22さん

ショートカットワーク報告へ

ショートカットワークコメント

2025年04月16日 08:30

CommaToXls-excel
だいぶ間が空いてしまいました。すみません。実務での活用状況についても報告に含めていただければと …

小川慶一さん

2025年03月18日 09:07

CommaToXls
> エスケープ文字をつけ忘れてうまくいかなくてもあきらめなかったところ「自分ならできる」という…

小川慶一さん

2025年03月18日 09:06

QuoteToXls
> FnとWinキーを押し間違えてウィンドウ表示が変ってしまうところそのこと自体は問題ありませ…

小川慶一さん

2025年03月15日 13:23

TxtToXls
着実に上達されていると感じます (^^

小川慶一さん

2025年02月26日 16:37

TabTo-excel
> Ctrl＋Fn+Shift+End これは大変ですよ。僕も、4キー同時打鍵はしたくありませ…

小川慶一さん

ショートカットワーク一覧へ

コーディングワーク報告

2025年04月02日 21:01

複数の表の間でのマッチング
何も見なくてもスラスラ解けた

cat22さん

2025年04月02日 20:47

複数列の中から、最大値の格納されたセルの情報を出力する
昨日より早くかけたこと

cat22さん

2025年04月02日 20:37

最大値の格納されたセルの情報を出力する
昨日よりスピードがあがった

cat22さん

2025年04月01日 22:03

複数列の中から、最大値の格納されたセルの情報を出力する
動画の真似をしてかけたこと

cat22さん

2025年04月01日 21:27

最大値の格納されたセルの情報を出力する
（１）で類似問題を実施しているので、思ったより早く解けた

cat22さん

コーディングワーク報告へ

コーディングワークコメント

2025年04月16日 08:32

複数の表の間でのマッチング
実務での活用状況どうでしょうか。細かい操作ミスについては気にしないでください。速やかに無意識に修…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
別のところでも書きましたが、イメージトレーニング大切です。次に出てきたときには瞬時に対応するぞ！…

小川慶一さん

2025年03月18日 09:10

文字列を加工してデータ転記する(その4)
こういうのは慣れです (^^

小川慶一さん

2025年03月18日 09:09

文字列を加工してデータ転記する(その4)
別海も悪いはないです。両方のパターンを自在に使い分けられるようになるとさらによいですね！

小川慶一さん

2025年03月18日 09:06

文字列を加工してデータ転記する(その5)
イメージトレーニングしましょう！

小川慶一さん

コーディングワークへ