行削除のマクロについて

質問

科目　　　　　金額　科目　　金額　　　摘要　
　　　　　　　　　　　　　　　　　　　　　　　2370~1-05-5615(01-59
工具備品費　　 10　　現金　　30　　　　1/21工具
注文品受入　　　20　　　　　　　　　　　　 1/22ガラス取付

このような仕訳データが大量にあるのですが、摘要欄の一番上の「2370~1-05-5615(01-59」
という値のある行を削除してスッキリさせたいです。

摘要欄の値は上記の一種類だけではなく、「23」から始まる数値が無数にあります。
2370~1-10-12283(91-1　やら他の数値がありますが、必ず23から始まります。

摘要欄はZ列にあり、2～22013行あります。

オートフィルタでは件数が多すぎて解決できませんでした。
マクロで解決したいのですが、お詳しい方、お願いいたします。

回答No.2

chonami · ベストアンサー

マクロではありませんが、

Ctrl＋F（検索ダイアログ）で該当文字をすべて検索→下にすべてのアドレスが並ぶ
→Shiftを押しながら一番下のデータをクリックし全部選択
→検索ダイアログを閉じる
→Ctrl＋-（マイナスキー）→行全体を選択→OK

と言うのは如何でしょうか？

お礼

ありがとうございます。

マクロなしでもバッチリ削除できました。「Ctrl+-」は以後も有効に使えそうです！
これからも、より効率的に仕事がこなせるように努力します。

回答No.1

mu2011

一例です。
対象シートタブ上で右クリック→コードの表示→以下のコードを貼り付け→Ｆ５キー押下でお試しください。
念の為に対象シートをコピーして保存しておいて下さい。

Sub 行削除()
For i = Cells(Rows.Count, "E").End(xlUp).Row To 1 Step -1
If Cells(i, "E") Like "23*" Then Rows(i).Delete
Next
End Sub

お礼

ありがとうございます。

しかし、やり方がまずかったのか、反映されませんでした。
式の意味も解らなくてお恥ずかしいです。もっと勉強します・・・